DerStauner
Erfahrenes Mitglied
Ich versuche, ein global key class hinzukriegen für meine Anwendung. Dies habe ich im Internet gefunden:
Und dazu die Verwendung:
So, ich nehme an, DieFunktion kann z. B. das Load Ereignis eines Forms sein, damit STRG+F12 ein globalet Hotkey wird. Und im Eventauslöser kommt, was das Programm machen muss, wenn man STRG+F12 drückt. Und ich möchte, dass wenn man diese Tastenkombination drückt, dann das Checkbox1.Click Event ausgeführt wird. Aber das krieg ich nicht hin, ich bekomme die Fehlermeldung:
Fehler 1 Der AddressOf-Operand muss dem Namen einer Methode entsprechen (ohne Klammern).
Und wenn ich Checkbox1_Click benutze, dann:
Fehler 1 Die Signatur der Private Sub CheckBox1_Click(sender As Object, e As System.EventArgs)-Methode ist mit dem Delegaten "Delegate Sub HitEventHandler()" nicht kompatibel.
Wo liegt das Problem
Code:
Public Class Hotkey
Inherits System.Windows.Forms.Form
Private Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As IntPtr, _
ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As _
Integer
Private Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As _
IntPtr, ByVal id As Integer) As Integer
Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" _
(ByVal lpString As String) As Short
Private Declare Function GlobalDeleteAtom Lib "kernel32" (ByVal nAtom As _
Short) As Short
Public Class MODKeys
Public Const MOD_ALT As Integer = 1
Public Const MOD_CONTROL As Integer = 2
Public Const MOD_SHIFT As Integer = 4
Public Const MOD_WIN As Integer = 8
End Class
Dim hotkeyID As Short
Public Sub New(ByVal sKey As System.Windows.Forms.Keys,Optional ByVal _
Modulate As Long = 0)
RegisterGlobalHotKey(sKey,Modulate)
End Sub
Private Sub RegisterGlobalHotKey(ByVal hotkey As System.Windows.Forms.Keys, _
ByVal modifiers As Integer)
Try
Dim atomName As String = _
AppDomain.GetCurrentThreadId.ToString("X8") & Me.Name
hotkeyID = GlobalAddAtom(atomName)
RegisterHotKey(Me.Handle, hotkeyID, modifiers, CInt(hotkey))
Catch ex As Exception
UnregisterGlobalHotKey()
End Try
End Sub
Private Sub UnregisterGlobalHotKey()
If Me.hotkeyID <> 0 Then
UnregisterHotKey(Me.Handle, hotkeyID)
GlobalDeleteAtom(hotkeyID)
hotkeyID = 0
End If
End Sub
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
MyBase.WndProc(m)
Const WM_HOTKEY As Integer = &H312
If m.Msg = WM_HOTKEY Then
RaiseEvent Hit
End If
End Sub
Public Event Hit
End ClassUnd dazu die Verwendung:
Code:
Private Sub DieFunktion()
Dim HotKeyElement As New Hotkey(System.Windows.Forms.Keys.F12,2) ' 2 = STRG
AddHandler HotKeyElement.Hit, AddressOf Eventauslöser
End Sub
Private Sub Eventauslöser()
' Hier kommt alles rein
End SubSo, ich nehme an, DieFunktion kann z. B. das Load Ereignis eines Forms sein, damit STRG+F12 ein globalet Hotkey wird. Und im Eventauslöser kommt, was das Programm machen muss, wenn man STRG+F12 drückt. Und ich möchte, dass wenn man diese Tastenkombination drückt, dann das Checkbox1.Click Event ausgeführt wird. Aber das krieg ich nicht hin, ich bekomme die Fehlermeldung:
Fehler 1 Der AddressOf-Operand muss dem Namen einer Methode entsprechen (ohne Klammern).
Und wenn ich Checkbox1_Click benutze, dann:
Fehler 1 Die Signatur der Private Sub CheckBox1_Click(sender As Object, e As System.EventArgs)-Methode ist mit dem Delegaten "Delegate Sub HitEventHandler()" nicht kompatibel.
Wo liegt das Problem
