Option Explicit
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = Asc("A") Then '按下A键
Call sub_xxxx1
ElseIf KeyCode = Asc("B") Then '按下B键
Call sub_xxxx2
End If
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
vb6.0按钮控件数组怎么设置快捷键(
最新推荐文章于 2022-06-13 14:57:37 发布