Per Hotkey geöffneter Form Fokus geben

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von SystemUnknow.

    Per Hotkey geöffneter Form Fokus geben

    Siehe Titel.
    Wenn irgendein anderes Fenster den Fokus hat, und ich mein Anwendungsfenster z.B. mit STRG + Leertaste aufrufe, hat es nicht den Fokus, selbst wenn TopMost = True ist.
    Ich hab schon so ziemlich alles versucht, z.B. im Load- und Shown-Event Me.Focus einzusetzen, oder mit der SetFocus-API zu arbeiten, funktioniert alles nicht.
    Gibts ne Möglichkeit, das trotzdem hinzukriegen?

    VB.NET-Quellcode

    1. Public Class Hub
    3. Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer
    4. Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer) As Integer
    5. Public Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hwnd As IntPtr) As Integer
    6. Public Const WM_HOTKEY As Integer = &H312
    7. Public Const VK_SPACE As Integer = &H20
    9. Enum KeyModifier
    10. None = 0
    11. Alt = &H1
    12. Control = &H2
    13. Shift = &H4
    14. Winkey = &H8
    15. End Enum 'This enum is just to make it easier to call the registerHotKey function: The modifier integer codes are replaced by a friendly "Alt","Shift" etc.
    17. Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    18. If m.Msg = WM_HOTKEY Then
    19. Select Case m.WParam.ToInt32
    20. Case 1337
    21. If Form1.Visible Then
    22. Form1.Close()
    23. Else
    24. Form1.Show()
    25. End If
    26. End Select
    27. End If
    28. MyBase.WndProc(m)
    29. End Sub
    31. Private Sub Hub_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    32. RegisterHotKey(Me.Handle, 1337, KeyModifier.Control, VK_SPACE)
    33. End Sub
    35. Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
    36. Me.Close()
    37. End Sub
    38. End Class

    In Form Load/Show wird nicht funz, Focus mit Tastenkombinationen setzen.
    Du brauchst ein zusätzlichen Event der im hintengrund läuft und wartet bis du Tastenkombination drückst.
    Wäre mit Timer zu lösen oder wenn du kein Teimer haben wilst, dann KeyboardHooks verwenden.

Facebook
Telefonspende