0

我再次请求帮助！

我希望能够注册从隐藏表单运行的多个热键。当按下 ALT+UPKEY 时，下面示例程序的热键会切换第二种形式。现在它可以正常运行，但是当我取消注释隐藏程序的代码时，热键不再起作用。任何人都知道我在哪里出错了，或者可能知道如何从隐藏程序中切换第二个表单？与往常一样，提前感谢您的帮助。

Public Class Form1

Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer
Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer) As Integer
Public Const WM_HOTKEY As Integer = &H312

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    If m.Msg = WM_HOTKEY Then
        Form2.Show()
    End If

    MyBase.WndProc(m)

End Sub


Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    Call UnregisterHotKey(Me.Handle, 9)

End Sub


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Call RegisterHotKey(Me.Handle.ToInt32, 0, &H1, 38) '<-- registers specific hotkeys

    'Me.KeyPreview = True
    'Me.ShowInTaskbar = False
    'Me.ShowIcon = False
    'Me.Visible = False

End Sub
End Class
4

0 回答 0