还是关于有command的form上方向键无响应的问题

Question

你让他怎样响应，显示 click吗？？
你得让command1有焦点

Answer 1

哦,那个click只是让大家知道有一个按钮在上面Debug.Print KeyCode这个是我想要的响应其他的键都有响应,就是方向键和enter没有好象是因为方向键和enter键可以直接作用于button,但是tab又有响应的

Answer 2

估计是keycode 不包含这两个吧，哈哈，我乱说的，不知道是不是，我知道keyascii中有回车的

Answer 3

包含的啊上下左右分别是
36 38 37 40  恩,好象是这样的,因为没有command的时候可以检测到enter 是 32 也是好象是,忘记了,哈哈

Answer 4

将Form的KeyPreview设置为True试试看

Answer 5

Form1.KeyPreview = True
是不是这么设置啊.

Answer 6

是的，就是Keypreview，在Form的属性页里有的。它能首先截获发往form上任何控件的案件消息。

Answer 7

而且enter键按下以后也没有执行
Debug.Print KeyCode而是直接执行的command1里面的debug.print("click")

Answer 8

第一，要求你窗体上除了Command外，还有别的可以接受焦点的控件
第二，要求你的的那个该死的Command不能设置为Default并且保证KeyPreview属性为True这样应该是不会产生你所说的情况的。

Answer 9

有了一点新进展,不过还是不行刚才灵机一动(主要是因为没有关窗户,又突然刮风.....)想到在command1下面检测一下
就把代码改成
Option Explicit
Private Sub Command1_Click()Debug.Print keycode
Debug.Print ("click")
End Sub
Private Sub Form_KeyDown(keycode As Integer, Shift As Integer)
Debug.Print keycode
End SubPrivate Sub Form_Load()
Form1.KeyPreview = True
End Sub当点击command1的时候说变量没有定义(我规定了必须先定义变量,希望养成好习惯),于是我就在调试窗口加了一个Dim keycode As Integer在command1里面,结果惊讶的发现可以检测到方向键了,但是当我退出去再次按f5以后(这时Dim keycode As Integer还是在command1里面),又检测不到方向键了.........
简直是开玩笑啊!~

Answer 10

哦!首先感谢 programart_life(理论派)同志仗义相助!然后小声儿问一下,不知道应该怎么样才可以把那个该死的command设置为非default 啊!还有"要求你窗体上除了Command外，还有别的可以接受焦点的控件"我在窗体上又加了一个command2,可是现在一按方向键就是再两个command上跑来跑去了......
还望赐教我这个新手.....再次感谢!

Answer 11

哦!我看了一下
加了一个
Command1.Default = False可是还是不可以啊