给你说个简单好用的办法把
'1添加一个Timer时间控件
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
'申明api
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = ((GetAsyncKeyState(vKeyCode) < 0))
End Function
Private Sub Form_Load()
Timer1.Interval = 100 '定时检测
Me.Visible = False
End Sub
Private Sub Timer1_Timer()
If MyHotKey(vbKeyO) Then Me.Visible = True
'还可以换成调用其他函数
End Sub
百度搜热键
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024