?? modkeycheck.bas
字號(hào):
Attribute VB_Name = "ModKeyCheck"
Option Explicit
Public Function KeyCheck(ByVal intKey As Integer, keyType As String) As Integer
'global function to check keystrokes
If keyType = "Alpha" Then
Select Case intKey
Case 65 To 90 'A to Z
KeyCheck = intKey
Case 97 To 122 'a to z
KeyCheck = intKey
Case vbKey0 To vbKey9
KeyCheck = intKey
Case vbKeyBack
KeyCheck = intKey
Case vbKeySpace
KeyCheck = intKey
Case Asc(".")
KeyCheck = intKey
Case Else
KeyCheck = 0
End Select
ElseIf keyType = "Num" Then
Select Case intKey
Case Asc("0") To Asc("9")
KeyCheck = intKey
Case vbKeyBack
KeyCheck = intKey
Case Asc(".")
KeyCheck = 0
Case Else
KeyCheck = 0
End Select
End If
End Function
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -