📄 文本框输入顺序.htm
字号:
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<TITLE>
文本框输入顺序
</TITLE>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=VBScript>
<!--
sub windows_onload
Form1.Text1.Focus
end sub
Sub text1_onkeypress
If Window.Event.KeyCode = 13 Then
Form1.Text2.Focus
End If
End Sub
Sub text2_onkeypress
If Window.Event.KeyCode = 13 Then
Form1.Text3.Focus
End If
End Sub
Sub text3_onkeypress
If Window.Event.KeyCode = 13 Then
Form1.Text4.Focus
End If
End Sub
Sub text4_onkeypress
If Window.Event.KeyCode = 13 Then
Form1.button1.Focus
End If
End Sub
sub button1_0nclick
dim txt1,txt2,txt3,txt4 ,alltxt
txt1=Form1.Text1.value
txt2=Form1.Text2.value
txt3=Form1.Text3.value
txt4=Form1.Text4.value
alltxt="文本框一输入的数据为:"+txt1+vbcrlf
alltxt=alltxt+"文本框二输入的数据为:"+txt2+vbcrlf
alltxt=alltxt+"文本框三输入的数据为:"+txt3+vbcrlf
alltxt=alltxt+"文本框四输入的数据为:"+txt4
msgbox alltxt
end sub
sub button1_onkeypress
If Window.Event.KeyCode = 13 Then
button1_0nclick
End If
End Sub
-->
</SCRIPT>
</HEAD>
<BODY bgcolor=NavajoWhite>
<form id=Form1>
<center>
<p>文本框一<INPUT id=text1 name=text1></p><br>
<p>文本框二<INPUT id=text2 name=text2></p><br>
<p>文本框三<INPUT id=text3 name=text3></p><br>
<p>文本框四<INPUT id=text4 name=text4></p><br>
<INPUT id=button1 name=button1 type=button value="提交">
</form>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -