15.6.10.3. Поля ввода (Text, TextArea, Password)
Методы Blur/Focus, Select ‑потеря/установка фокуса, выделение текста в поле.
Примерработы с полями (рис. 15.6.10.3.1).
Рис.
15.6.10.3.1. Вид страницы с полями ввода
<HTML>
<HEAD><TITLE>Пример полей ввода</TITLE>
<SCRIPT LANGUAGE=“VBScript“>
SubKnopka1_OnClick‘обработка кнопки добавления поля в область
Document.Form1.TextA.Value = Document.Form1.TextA.Value + _
Document.Form1.TextT.Value: Document.Form1.TextT.Value = ““
End Sub
Sub Knopka2_OnClick: Document.Form1.TextA.Select: End Sub ‘выделение
SubParol_OnChange‘добавление текста пароля в область редактирования
Document.Form1.TextA.Value = Document.Form1.TextA.Value + _
“Пароль: “+Document.Form1.Parol.Value: Document.Form1.Parol.Value=““
End Sub
</SCRIPT>
</HEAD>
<BODY>
<FORM NAME=“Form1“>
<P ALIGN=“CENTER“><TEXTAREA ROWS=“3“ COLS=“50“
NAME=“TextA“> Начальное значение области </TEXTAREA> </P>
<P ALIGN=“CENTER“>
<INPUT TYPE=“TEXT“ NAME=“TextT“ VALUE=“Начальное значение“>
<FONT COLOR=“BLUE“ SIZE=“3“>
<B>Текстовое поле</B></FONT><BR>
<INPUT TYPE=“PASSWORD“ NAME=“Parol“>
<FONT COLOR=“BLUE“ SIZE=“3“>
<B>Пароль</B></FONT><BR> </P>
<P ALIGN=“CENTER“>
<INPUT TYPE=“BUTTON“ NAME=“Knopka1“ VALUE=“Добавить в область“>
<INPUT TYPE=“BUTTON“ NAME=“Knopka2“
VALUE=“Выделить область“> </P>
</FORM>
</BODY>
</HTML>
15.6.10.4. Списки выбора (Select)
Свойства
Length‑ число элементов в списке.
SelectIndex‑ номер выбранного элемента массиваOptions(отсчет с нуля).
Options‑ массив элементов списка, который имеет следующие свойства: число элементов в списке (Length), признак выбора (1) или не выбора (0) элемента (Selected), номер выбранного элемента (SelectIndex), значение элемента (Text).
Методы Focus/Blur ‑ активизация/деактивизация элемента списка.
Примериспользования списка арифметических операторов при работе калькулятора (рис. 15.6.10.4.1).
Рис.
15.6.10.4.1. Вид страницы калькулятора
<HTML>
<HEAD><TITLE>Калькулятор</TITLE>
<SCRIPT LANGUAGE=“VBScript“>
SubVih_OnClick‘обработка кнопки вычисления
oper=Document.Form1.Oper.Options _
(Document.Form1.Oper.SelectedIndex).Text
x=CDbl(Document.Form1.X.Value): y=CDbl( Document.Form1.Y.Value)
SelectCaseoper‘вычисление результата
Case “+“ : r= x+y : Case “-“ : r=x-y : Case “*“ : r=x*y : Case “/“ : r=x/y
Case “^“ : r=x^y : Case “ln“: r=LOG(x)
End Select
Document.Form1.R.Value=r ‘вывод результата в поле R
End Sub
</SCRIPT>
</HEAD>
<BODY>
<P ALIGN=“CENTER“> <FONT SIZE=“5“>Калькулятор</FONT></P>
<FORM NAME=“Form1“> <P ALIGN=“CENTER“>
<INPUT TYPE=“TEXT“ SIZE=“12“ NAME=“X“> <BR>
<SELECT NAME=“Oper“ SIZE=“1“> <OPTION> + <OPTION> -
<OPTION>*<OPTION>/<OPTION>^ <OPTION>ln </SELECT> <BR>
<INPUT TYPE=“TEXT“ SIZE=“21“ NAME=“Y“> <BR> = <BR>
<INPUT TYPE=“TEXT“ SIZE=“21“ NAME=“R“> </P>
<P ALIGN=“CENTER“>
<INPUT TYPE=“button“ NAME=“Vih“ VALUE=“Вычислить“>
<P ALIGN=“CENTER“> <INPUT TYPE=“reset“ NAME=“Ohistit“
VALUE=“Очистить“> </P>
</FORM>
</BODY>
</HTML>