Question

VB 如何把键盘的按键和按钮控件结合？

VB 问题！ 比如 我想做2个按钮 分别n1 ,n2 。 分别对应向上和向下箭头 按键盘就启动按钮控件，该如何做啊？ 最好能写一小段代码。。。。 教材上只讲了回车和退出键，没有别的例子，请高手指教！ 感激不尽！！

Answer 1

如果用按钮的话，不好实现，因为如果窗体中间有按钮的话，窗体不接受方向键的事件，可以用标签来代替按钮。 给窗体两个标签，分别是label1,label2,输入如下代码看看： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 38 Then Label1_Click If KeyCode = 40 Then Label2_Click End Sub Private Sub Label1_Click() Print "向上" End Sub Private Sub Label2_Click() Print "向下" End Sub 如果想做的好看一点，可以用图片框来代替按钮，不过如果用picture控件的话，必须把窗体的KeyPreview属性设置为true才行。 抛砖引玉，但愿高手有更好的解决办法。 用api监控键盘事件也可以实现按钮的看盘控制，但是太麻烦了。
麻烦采纳，谢谢!

Answer 2

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 38 Then Label1_Click If KeyCode = 40 Then Label2_Click End Sub Private Sub n1_Click() Msgbox "上" End Sub Private Sub n2_Click() Msgbox "下" End Sub Private Sub n1_KeyDown(KeyCode As Integer, Shift As Integer) Form_KeyDown KeyCode, 0 End Sub Private Sub n2_KeyDown(KeyCode As Integer, Shift As Integer) Form_KeyDown KeyCode, 0 End Sub '这样子不管焦点在什么控件上都可以了