vb.net全局热键 vb中热键是什么意思

有关VB.NET keypress 事件的问题

定义两个变量

Private run As Boolean = False'过程是否在运行

Private Key_L As Boolean = False'L键是否按下

变通方法：加定时器，要执行的过程放在定时器中调用

keypress事件只检测某个键是否按下

在家里没有VS，引用我以前的例子给你，定义的是全局键盘，也就是在程序不激活的状态也能执行

下面是完整代码： ----按下L键过程xx只会执行一次，直到过程执行完成才再次响应

Public Class Form1

Private run As Boolean = False

Private Key_L As Boolean = False

Public Declare Auto Function RegisterHotKey Lib "user32.dll" Alias _

"RegisterHotKey" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Boolean

Public Declare Auto Function UnRegisterHotKey Lib "user32.dll" Alias _

"UnregisterHotKey" (ByVal hwnd As IntPtr, ByVal id As Integer) As Boolean

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'注册全局热键

RegisterHotKey(Handle, 0, 7, Keys.C)

RegisterHotKey(Handle, 1, Nothing, Keys.L)

' 0=nothing 1 -alt 2-ctrl 3-ctrl+alt 4-shift 5-alt+shift 6-ctrl+shift 7-ctrl+shift+alt

End Sub

Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed

UnRegisterHotKey(Handle, 0)

UnRegisterHotKey(Handle, 1)

End Sub

Protected Overrides Sub WndProc(ByRef m As Message)

If m.Msg = 786 Then

If m.WParam.ToInt32 = 1 Then

Key_L = True

'MsgBox(m.Msg "我1")

ElseIf m.WParam.ToInt32 = 0 Then

MsgBox(m.Msg "我2")

End If

'TextBox1.Text = " " m.Msg

End If

MyBase.WndProc(m)

End Sub

Sub xx()

run = True

Button1.Enabled = False

For i = 0 To 100

TextBox1.Text = i.ToString

Threading.Thread.Sleep(1)

Application.DoEvents()

Next

Button1.Enabled = True

Key_L = False

run = False

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If run = True Then Exit Sub

If Key_L = True Then xx()

End Sub

End Class

相关问答

Q1: vb.net 全局热键

见下面的代码

Public Class Form1

    Public Declare Auto Function RegisterHotKey Lib "user32.dll" Alias "RegisterHotKey" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Boolean

    Public Declare Auto Function UnRegisterHotKey Lib "user32.dll" Alias "UnregisterHotKey" (ByVal hwnd As IntPtr, ByVal id As Integer) As Boolean

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '注册全局热键 

        RegisterHotKey(Handle, 0, 0, Keys.F4)

        '第3个参数意义： 0=nothing 1 -alt 2-ctrl 3-ctrl+alt 4-shift 5-alt+shift 6-ctrl+shift 7-ctrl+shift+alt

    End Sub

    Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed

        UnRegisterHotKey(Handle, 0)

    End Sub

    Protected Overrides Sub WndProc(ByRef m As Message)

        If m.Msg = 786 Then

            Me.Activate()

        End If

        MyBase.WndProc(m)

    End Sub

End Class

Q2: VB.NET添加快捷键

vb.net全局热键你是要在程序里面按q相当于单击按钮

还是焦点不在程序里面vb.net全局热键的时候任意按q实现这个功能vb.net全局热键？

要是前者的话楼上的已经正解

要是后者的话需要全局钩子实现

vb.net全局热键的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb中热键是什么意思、vb.net全局热键的信息别忘了在本站进行查找喔。