Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then 'F1
Form2.Show
ElseIf KeyCode = vbKey1 And Shift = 2 Then 'Ctrl+1
Form2.Show
End If
End Sub
这个只是简单的方法，如果要更高级的，比如在其他软件的界面上按下F1，也能打开你的软件的Form2，就要用到系统全局热键了，在此忽略不表。
设置菜单的快捷键
你猜我猜你猜不猜
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024