📄 6_3.htm
字号:
<HTML>
<HEAD><TITLE>使用键盘事件</TITLE></HEAD>
<BODY><H3>使用键盘事件</H3><HR>
按键:<INPUT name=Text1 type=Text Size=20>
控制键:<INPUT name=Text2 type=Text Size=10><P>
ASCII码:<INPUT name=Text3 type=Text Size=10>
键值:<INPUT name=Text4 type=Text Size=10><P>
<SCRIPT FOR=Text1 EVENT=onKeypress LANGUAGE="VBScript">
Text3.value =window.event.Keycode
</SCRIPT>
<SCRIPT FOR=Text1 EVENT=onKeydown LANGUAGE=VBScript>
Text1.Value = ""
Text2.Value = ""
Text4.value = keycode
</SCRIPT>
<SCRIPT FOR=Text1 EVENT=onKeyup LANGUAGE=VBScript>
keycode=window.event.Keycode
alt=window.event.altKey
Ctrl=window.event.CtrlKey
Shift=window.event.ShiftKey
Select Case True
Case Alt
Text2.value = "Alt"
Text1.Value = chr(keycode)
Case Ctrl
Text2.value = "Ctrl"
Text1.Value = chr(keycode)
Case Shift
Text2.value = "Shift"
Text1.Value = chr(keycode)
End select
Select Case True
Case keycode=13
Text1.Value = "回车键"
Case keycode=8
Text1.Value = "退格键"
Case keycode=27
Text1.Value = "ESC"
End select
</SCRIPT>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -