⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 6_3.htm

📁 ASP 网页数据库短训教程源码
💻 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 + -