VB快捷键问题：按下数字键1-9，选定按钮？

Question

我写了一个VB界面，里面用Frame控件分割成几个部分，因为想对某几个Button进行快捷访问，比如用小键盘的1、2、3...9直接选定Button，代码要怎么写？
比如，有一个Button为“1 AAAAA“，我点了小键盘的“1”键后，则选中该Button，要怎么做？
使用&的方式我知道，但需要按两个键，不想采用这种方式。

Answer 1

建立个数组按钮控件(0~9)Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim k As Long
  k = KeyCode Mod 48
  If k < 10 Then
    Command1(k).SetFocus '假设你的按钮名称为command1
  End If
End SubPrivate Sub Form_Load()
  Form1.KeyPreview = True
End Sub

Answer 2

首先设置窗体的KeyPriview为true然后Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 49 Then
     MsgBox "按下了数字键1"
  End If
End Sub