vb6,按键盘不同的键触发不同的Command事件
在编写计算器时，希望按下数字键1触发command1(1)事件，按+触发command2（1）事件。搜索复制...
在编写计算器时，希望按下数字键1触发command1(1)事件，按+触发command2（1）事件。
搜索
复制 展开
搜索
复制 展开
1个回答
展开全部
先把form的KeyPreview=True
再：
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 49 Then
MsgBox "1"
Call Command1_Click
End If
If KeyAscii = Asc("+") Then
MsgBox "+"
Call Command2_Click
End If
End Sub
再：
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 49 Then
MsgBox "1"
Call Command1_Click
End If
If KeyAscii = Asc("+") Then
MsgBox "+"
Call Command2_Click
End If
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
