1,451
社区成员
发帖
与我相关
我的任务
分享高手们！请问这样要用API吗？
请问如果想在TEXTBOX里面怎么样才能接收到这几个键：UP、DOWN、LEFT、RIGHT？
用KeyPress事件不能检测到这几个键按下了！请大哥大姐们指点一下小弟。。。！
用KeyPress事件不能检测到这几个键按下了！请大哥大姐们指点一下小弟。。。！
...全文
请发表友善的回复…
发表回复
northwolves 2003-10-28
- 打赏
- 举报
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
'Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
' Select Case KeyCode
' Case vbKeyLeft
' MsgBox "←"
' Case vbKeyRight
' MsgBox "→"
' Case vbKeyUp
' MsgBox "↑"
' Case vbKeyDown
' MsgBox "↓"
' End Select
'End Sub
'Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
' Select Case KeyCode
' Case vbKeyLeft
' MsgBox "←"
' Case vbKeyRight
' MsgBox "→"
' Case vbKeyUp
' MsgBox "↑"
' Case vbKeyDown
' MsgBox "↓"
' End Select
'End Sub
Me.KeyPreview = True
End Sub
'Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
' Select Case KeyCode
' Case vbKeyLeft
' MsgBox "←"
' Case vbKeyRight
' MsgBox "→"
' Case vbKeyUp
' MsgBox "↑"
' Case vbKeyDown
' MsgBox "↓"
' End Select
'End Sub
'Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
' Select Case KeyCode
' Case vbKeyLeft
' MsgBox "←"
' Case vbKeyRight
' MsgBox "→"
' Case vbKeyUp
' MsgBox "↑"
' Case vbKeyDown
' MsgBox "↓"
' End Select
'End Sub
aha99 2003-10-28
- 打赏
- 举报
楼上的有道理，keypress有时候确实需要用keydown 和keyup来实现
rainstormmaster 2003-10-27
- 打赏
- 举报
用KeyDown结合keyup事件
flc 2003-10-27
- 打赏
- 举报
在keydown里可以实现的测试如下：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37
MsgBox "hehehe"
Case 38
MsgBox "hahaha"
End Select
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37
MsgBox "hehehe"
Case 38
MsgBox "hahaha"
End Select
End Sub
flc 2003-10-27
- 打赏
- 举报
KEYDOWN好象可以的
flc 2003-10-27
- 打赏
- 举报
好象可以吧
关注
关注
online 2003-10-27
- 打赏
- 举报
keydown和keyup事件提供了最低级的键盘响应
可用这些事件来监测keypress事件无法监测到的情况
如:UP、DOWN
可用这些事件来监测keypress事件无法监测到的情况
如:UP、DOWN
