再请教关于方向键的响应问题

[coward_c]

我这样写的

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox (KeyCode)
End Sub


其他的键都可以响应,就是方向键不响应,请问是为什么呢?

如果我写成

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox (KeyCode)
End Sub

并把command1删除就可以响应方向键了

那么是不是只要我有按钮就不能对方向键做出响应呢?望赐教

[zmcpu]

因为按钮默认获得焦点,方向键可用来移动焦点.但你的窗体中只有一个控件

[用户 昵称]

form1.keypreview=true

[kjah]

up
没错~
form1.keypreview=true '窗体先接收键盘事件

[redwrite]

up

[coward_c]

谢各位赐教了

马上结帐

[coward_c]

不好,我实验了但是还是不可以啊

我这样写的

Option Explicit


Private Sub Command1_Click()
MsgBox ("click")
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox (KeyCode)
End Sub

Private Sub Form_Load()
Form1.KeyPreview = True
End Sub


还是得不到方向键的响应,望再赐教!!

[zyl910]

改成Debug.Print
在调试窗口看看结果


Option Explicit


Private Sub Command1_Click()
Debug.Print ("click")
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Debug.Print KeyCode
End Sub

Private Sub Form_Load()
Form1.KeyPreview = True
End Sub

[coward_c]

还是没有响应啊!
要不要我把文件发给你?

[coward_c]

其他键都有响应,就是方向键没有响应啊

[coward_c]

搞定了,结帐!