VB.NET实现老板键

Public Class Form1

    Public Const WM_HOTKEY = &H312

    Public Const MOD_ALT = &H1

    Public Const MOD_CONTROL = &H2

    Public Const MOD_SHIFT = &H4

    Public Const GWL_WNDPROC = (-4)

    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, MOD_CONTROL, Asc("T"))

    End Sub

 

    Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed

        UnregisterHotKey(Handle, 0)

    End Sub

 

    Protected Overrides Sub WndProc(ByRef m As Message)

        If m.Msg = WM_HOTKEY Then

            If Visible Then

                Hide()

            Else

                Show()

            End If

        End If

        MyBase.WndProc(m)

    End Sub

End Class