6_3.htm

来自「ASP 网页数据库短训教程源码」· HTM 代码 · 共 43 行

HTM
43
字号
<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 + =
减小字号Ctrl + -
显示快捷键?