
VB keydown
PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfShift=1AndvbKeyF6ThenPrint"再...
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 1 And vbKeyF6 Then Print "再见"
End Sub
以上,为什么我按shift+alt或F6都会输出再见的?我要的效果是同时按着三个键才输出再见吖.
请求帮忙~
打错喇,shift=5吖…… 展开
If Shift = 1 And vbKeyF6 Then Print "再见"
End Sub
以上,为什么我按shift+alt或F6都会输出再见的?我要的效果是同时按着三个键才输出再见吖.
请求帮忙~
打错喇,shift=5吖…… 展开
2个回答
展开全部
同时按下Shift+Alt
Shift 值就是 5
F5可以获取 KeyCode 值是 116
F7也可以获取 KeyCode 值是 118
F6有他的特殊性无法被获取
你可以试一下
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 5 And KeyCode = 116 Then Print "再见"
End Sub
这样 同时按下 Shift+Alt+F5 才 Print "再见"
If Shift = 1 And vbKeyF6 Then Print "再见"
这句 应该是
If Shift = 1 And KeyCode = vbKeyF6 Then Print "再见"
吧
Shift 值就是 5
F5可以获取 KeyCode 值是 116
F7也可以获取 KeyCode 值是 118
F6有他的特殊性无法被获取
你可以试一下
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 5 And KeyCode = 116 Then Print "再见"
End Sub
这样 同时按下 Shift+Alt+F5 才 Print "再见"
If Shift = 1 And vbKeyF6 Then Print "再见"
这句 应该是
If Shift = 1 And KeyCode = vbKeyF6 Then Print "再见"
吧
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询