15.6.10.1. Кнопки (Button, Reset, Submit)
Существуют три типа кнопок: обычная (Button), сброса значений элементов формы (Reset) и передачи данных из формы на сервер (Submit).
Метод Clickпрограммно имитирует щелчок пользователя по кнопке без генерации событияOnClick.
Примерработы с кнопками (рис. 15.6.10.1.1). В полеNadpisKnopka3вводится наименование нижней кнопкиKnopka3. Верхняя кнопкаKnopka1заменяет название кнопкиKnopka3. Средняя кнопкаKnopka2выводит свойства кнопкиKnopka3. КнопкаKnopka3передает данные на сервер.
<HTML><HEAD><TITLE>Работа с кнопками</TITLE>
<SCRIPT LANGUAGE=“VBScript“>
SubKnopka1_OnClick‘формирование имени нижней кнопкиKnopka3
Document.Form1.Knopka3.Value=Document.Form1.NadpisKnopka3.Value
EndSub
SubKnopka2_OnClick‘вывод сообщения со свойствами нижней кнопки
NS = chr(13) + chr(10)
S = “Имя кнопки: “ & Document.Form1.Knopka3.Name & NS & _
“Число элементов в форме: “ & _
Document.Form1.Knopka3.Form.Elements.Length & NS & _
“Надпись на кнопке: “ & Document.Form1.Knopka3.Value
MsgBoxs,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>
Р
ис.
15.6.10.1.1. Вид страницы после нажатия
средней кнопки
15.6.10.2. Переключатели (CheckBox,Radio)
Свойство Checked‑ выбран (True) или нет (False) переключатель.
Метод Clickпрограммно имитирует щелчок пользователя по кнопке без генерации событияOnClick.
Примерработы с двумя независимыми переключателями и с кнопками установки, сброса всех флажков и вывода установленных флажков.
<HTML><HEAD><TITLE>Независимые переключатели</TITLE>
<SCRIPT LANGUAGE=“VBScript“>
SubKnopka1_OnClick‘обработка кнопки установки всех флажков
For i=0 to 1:Document.Form1.Elements(i).Checked=True:Next:End Sub
SubKnopka2_OnClick‘обработка кнопки сброса всех флажков
For i=0 to 1: Document.Form1.Elements(i).Checked=False:Next:End Sub
SubKnopka3_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“>
SubRadioColor(i)‘обработка событияOnClickдляi‑го переключателя
Ifi= 0ThenDocument.BgColor=“Red“ ‘выбран первый переключатель
Ifi= 1ThenDocument.BgColor=“Green“ ‘выбран второй переключатель
EndSub
SubKnopka_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>