主页

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

coward_c 2003-01-06 06:15:33

我这样写的

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删除就可以响应方向键了

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

...全文

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

coward_c 2003-01-10

搞定了,结帐!

回复赞

coward_c 2003-01-06

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

回复赞

coward_c 2003-01-06

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

回复赞

zyl910 2003-01-06

改成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 2003-01-06

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

我这样写的

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

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

回复赞

coward_c 2003-01-06

谢各位赐教了

马上结帐

回复赞