Vb6.0中如何设置一个按键键等于command1

更新时间2019-08-08 23:57:22

Private Sub Command1_Click()
 Print "OK"
 
End Sub

'注意要设Form的KeyPreview为true

Private Sub Form_KeyPress(key As Integer)

If key = Asc("a") Then ‘当你按下a键
Command1_Click  '调用Command1
End If

End Sub