vb怎么设置全局热键

发布网友发布时间：2022-04-28 11:29

共1个回答

热心网友时间：2023-05-21 20:36

我不知道你想要怎样的效果，应该是下面的效果吧
我弄过的，可以的
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Dim key1 As Integer
Const keycode1 As Integer = 121

Private Sub Form_Load()
key1 = GetKeyState(keycode1)
Timer1.Interval = 10
Timer1.Enabled = True
Me.Visible = False
End Sub

Private Sub Timer1_Timer()
If GetKeyState(keycode1) <> key1 Then
MsgBox "你按下了热键"
key1 = GetKeyState(keycode1)
End If
End Sub
你要按F10的，就会看到效果啦

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com