VB中 按下键盘A相当按下按钮Command1,请提供代码,谢谢!
展开全部
Private Sub Command2_Click()
MsgBox "A"
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("A") Or KeyAscii = Asc("a") Then Call Command2_Click
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
MsgBox "A"
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("A") Or KeyAscii = Asc("a") Then Call Command2_Click
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询