【文件属性】:
文件名称:VB按键码查看器 VB 按键 keycode 下载 c++
文件大小:48KB
文件格式:EXE
更新时间:2012-11-05 05:33:21
VB 按键 keycode 下载 c++
查看 vb keycode
Private Sub Form_Load()
Check1.Value = 1
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Check1.Value = 1 Then
MsgBox KeyCode
ElseIf Check2.Value = 1 Then
MsgBox Shift
End If
Dim ShiftDown, AltDown, CtrlDown, Txt
ShiftDown = (Shift And vbShiftMask) > 0
AltDown = (Shift And vbAltMask) > 0
CtrlDown = (Shift And vbCtrlMask) > 0
If KeyCode = vbKeyF2 Then ' 显示键组合.
If ShiftDown And CtrlDown And AltDown Then
Txt = "SHIFT+CTRL+ALT+F2."
ElseIf ShiftDown And AltDown Then
Txt = "SHIFT+ALT+F2."
ElseIf ShiftDown And CtrlDown Then
Txt = "SHIFT+CTRL+F2."
ElseIf CtrlDown And AltDown Then
Txt = "CTRL+ALT+F2."
ElseIf ShiftDown Then
Txt = "SHIFT+F2."
ElseIf CtrlDown Then
Txt = "CTRL+F2."
ElseIf AltDown Then
Txt = "ALT+F2."
ElseIf Shift = 0 Then
Txt = "F2."
End If
Text1.Text = "You pressed " & Txt
End If
End Sub
网友评论
- 前些天没时间,今天看了,还是不错,有些键无法识别