Question

在VB里怎样将键盘事件设置成鼠标单击事件

具体说是这样的，用VB做了一介面，上面有N个按键，分别设为A B C D。我在键盘上按一下A就等同于用鼠标单击介面的A，按键盘上的B就等同于鼠标单击介面的B。具体怎样弄，详细点。谢谢。
A B C D 上面各做一个灯，按下A灯亮一下并向串口发出二进制的1，按下B ，B灯亮一下，并向串口发出2。灯亮的时间是0.5S。依次类推，到20位，

Answer 1

'★★★★★★部分内容发贴给过滤了，不全的内容请看图片

Private Sub cmdA_Click()

  '这是A命令按钮的单击事件，请在这里添加具体处理过程

End Sub

Private Sub cmdB_Click()

  '这是B命令按钮的单击事件，请在这里添加具体处理过程

End Sub

Private Sub cmdC_Click()

  '这是C命令按钮的单击事件，请在这里添加具体处理过程

End Sub

Private Sub cmdD_Click()

  '这是D命令按钮的单击事件，请在这里添加具体处理过程

End Sub

Private Sub cmdA_KeyUp(KeyCode As Integer, Shift As Integer) '这是A命令按钮的按键事件，为了使焦点在其它控件上也能响应，需要在窗体其它能获得焦点的控件的KeyUp事件也加入下面的调用命令

  KeyUpToDo KeyCode, Shift '调用处理过程

End Sub

Private Sub KeyUpToDo(KeyCode As Integer, Shift As Integer) '这是具体的处理过程

  Select Case UCase(Chr(KeyCode))

     Case

Answer 2

我简单写了一下
控件有两个：CommandA、CommandB
Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Sub CommandA_Click()
MsgBox "a"
End Sub

Private Sub CommandB_Click()
MsgBox "b"
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then
CommandA_Click
ElseIf KeyCode = vbKeyB Then
CommandB_Click
End If
End Sub

希望对你有帮助