vb6.0按钮控件数组怎么设置快捷键(

发布时间：2020-12-16 23:02:25 所属栏目：大数据来源：网络整理

导读：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 =

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!