1.6.10.1. Кнопки (Button, Reset, Submit)
Существуют три типа кнопок: обычная (Button), сброса значений элементов формы (Reset) и передачи данных из формы на сервер (Submit).
Метод Click программно имитирует щелчок пользователя по кнопке без генерации события OnClick.
Пример работы с кнопками (рис. 1.6.10.1.1). В поле NadpisKnopka3 вводится наименование нижней кнопки Knopka3. Верхняя кнопка Knopka1 заменяет название кнопки Knopka3. Средняя кнопка Knopka2 выводит свойства кнопки Knopka3. Кнопка Knopka3 передает данные на сервер.
<HTML><HEAD><TITLE>Работа с кнопками</TITLE>
<SCRIPT LANGUAGE=“VBScript“>
Sub Knopka1_OnClick ‘формирование имени нижней кнопки Knopka3
Document.Form1.Knopka3.Value=Document.Form1.NadpisKnopka3.Value
End Sub
Sub Knopka2_OnClick ‘вывод сообщения со свойствами нижней кнопки
NS = chr(13) + chr(10)
S = “Имя кнопки: “ & Document.Form1.Knopka3.Name & NS & _
“Число элементов в форме: “ & _
Document.Form1.Knopka3.Form.Elements.Length & NS & _
“Надпись на кнопке: “ & Document.Form1.Knopka3.Value
MsgBox s,0, “Свойства нижней кнопки“
End Sub
Sub Knopka3_OnClick: Alert “Щелчок по нижней кнопке“: End Sub
</SCRIPT></HEAD><BODY BGCOLOR=“WHITE“>
<FORM NAME=“Form1“>
<P ALIGN=“CENTER“>
<INPUT TYPE=“TEXT“ NAME=“NadpisKnopka3“ VALUE=““>
<INPUT TYPE=“BUTTON“ NAME=“Knopka1“
VALUE=“Заменить надпись нижней кнопки“></P>
<P ALIGN=“CENTER“> <INPUT TYPE=“BUTTON“
NAME=“Knopka2“ VALUE=“Вывести свойства нижней кнопки“></P>
<P ALIGN=“CENTER“>
<INPUT TYPE=“submit“NAME=“Knopka3“VALUE=“Кнопка Submit“></P>
</FORM></BODY>
</HTML>
Р
исунок
- 1.6.10.1.1. Вид страницы после нажатия
средней кнопки
1.6.10.2. Переключатели (CheckBox, Radio)
Свойство Checked ‑ выбран (True) или нет (False) переключатель.
Метод Click программно имитирует щелчок пользователя по кнопке без генерации события OnClick.
Пример работы с двумя независимыми переключателями и с кнопками установки, сброса всех флажков и вывода установленных флажков.
<HTML><HEAD><TITLE>Независимые переключатели</TITLE>
<SCRIPT LANGUAGE=“VBScript“>
Sub Knopka1_OnClick ‘обработка кнопки установки всех флажков
For i=0 to 1:Document.Form1.Elements(i).Checked=True:Next:End Sub
Sub Knopka2_OnClick ‘обработка кнопки сброса всех флажков
For i=0 to 1: Document.Form1.Elements(i).Checked=False:Next:End Sub
Sub Knopka3_OnClick ‘обработка кнопки вывода выбранных флажков
NS=chr(13)+chr(10): S=“Выбраны флажки: “+NS
For i=0 to 1: If Document.Form1.Elements(i).Checked Then _
S=S+Document.Form1.Elements(i).Value+NS
Next: Alert S: End Sub
</SCRIPT></HEAD>
< BODY>
<FORM NAME=“Form1“><P ALIGN=“CENTER“>
<TABLE> <TD>Флажок 1<TD><INPUT TYPE=“checkbox“
NAME=“Flag1“ VALUE=“1“><TR>
<TD>Флажок 2<TD><INPUT TYPE=“checkbox“
NAME=“Flag2“ VALUE=“2“><TR> </TABLE> </P>
<P ALIGN=“CENTER“> <INPUT TYPE=“BUTTON“ NAME=“Knopka1“
VALUE=“Установить все флажки“>
<INPUT TYPE=“BUTTON“ NAME=“Knopka2“ VALUE=“Сброс флажков“>
<INPUT TYPE=“BUTTON “NAME=“Knopka3“ VALUE=“Вывод флажков“> </P>
</FORM>
</BODY>
</HTML>
Пример работы с двумя зависимыми переключателями (изменения цвета фона формы) и с кнопкой восстановления первоначального вида.
<HTML>
<HEAD><TITLE>Зависимые переключатели</TITLE>
<SCRIPT LANGUAGE=“VBScript“>
Sub RadioColor(i)‘обработка события OnClick для i‑го переключателя
If i = 0 Then Document.BgColor=“Red“ ‘выбран первый переключатель
If i = 1 Then Document.BgColor=“Green“ ‘выбран второй переключатель
End Sub
Sub Knopka_OnClick ‘обработка кнопки восстановления формы
Document.BgColor = “White“
Document.Forms(0).Elements(0).Checked = True
End Sub
</SCRIPT>
</HEAD>
<BODY BGCOLOR=“WHITE“>
<FORM METHOD=“POST“> <P ALIGN=“CENTER“>
<FONT SIZE=“6“>Цвет фона</FONT></P> <P ALIGN=“CENTER“>
<INPUT TYPE=“radio“ ONCLICK=“RadioColor(0)“
CHECKED NAME=“CvetFona“ VALUE=“K“
<FONT SIZE=“4“>Красный</FONT> <BR>
<INPUT TYPE=“radio“ ONCLICK=“RadioColor(1)“
CHECKED NAME=“CvetFona“ VALUE=“Z“
<FONT SIZE=“4“>Зеленый</FONT></P>
<P ALIGN=“CENTER“><INPUT TYPE=“BUTTON“
NAME=“Knopka“ VALUE=“Сброс“></P>
</FORM>
</BODY>
</HTML>