ZooFlow: WIP Clipboard Watcher integration

Windows/Hotkey.vb

@@ -0,0 +1,84 @@
+Imports System.Windows.Forms
+
+Public Class Hotkey
+    Implements IMessageFilter
+
+    Private _OwnerForm As Form
+    Private _HotkeyList As New Dictionary(Of Short, HotKeyObject)
+    Private _HotkeyIDList As New Dictionary(Of String, Short)
+
+    ''' <summary>
+    ''' Diesem Event wird immer die zugewiesene HotKeyID übergeben, wenn eine HotKey Kombination gedrückt wurde.
+    ''' </summary>
+    Public Event HotKeyPressed(ByVal HotKeyID As String)
+
+    ''' <summary>
+    ''' Definiert verfügbare Modfier Keys
+    ''' </summary>
+    Public Enum ModfierKey As Integer
+        MOD_ALT = 1
+        MOD_CONTROL = 2
+        MOD_SHIFT = 4
+        MOD_WIN = 8
+    End Enum
+
+    Sub New(ByVal pOwnerForm As Form)
+        _OwnerForm = pOwnerForm
+        Application.AddMessageFilter(Me)
+    End Sub
+
+    ''' <summary>
+    ''' Diese Funktion fügt einen Hotkey hinzu und registriert ihn auch sofort
+    ''' </summary>
+    ''' <param name="pKeyCode">Den KeyCode für die Taste</param>
+    ''' <param name="pModifiers">Die Zusatztasten wie z.B. Strg oder Alt, diese können auch mit OR kombiniert werden</param>
+    ''' <param name="pHotKeyID">Die ID die der Hotkey bekommen soll um diesen zu identifizieren</param>
+    Public Sub AddHotKey(ByVal pKeyCode As Keys, ByVal pModifiers As ModfierKey, ByVal pHotKeyID As Integer)
+        If _HotkeyIDList.ContainsKey(pHotKeyID) = True Then
+            Exit Sub
+        End If
+
+        Dim oHotkeyId As Short = NativeMethods.GlobalAddAtom(pHotKeyID)
+        _HotkeyIDList.Add(pHotKeyID, oHotkeyId)
+        _HotkeyList.Add(oHotkeyId, New HotKeyObject(pKeyCode, pModifiers, pHotKeyID))
+
+        NativeMethods.RegisterHotKey(_OwnerForm.Handle, oHotkeyId, _HotkeyList(oHotkeyId).Modifier, _HotkeyList(oHotkeyId).HotKey)
+    End Sub
+
+    ''' <summary>
+    ''' Diese Funktion entfernt einen Hotkey und deregistriert ihn auch sofort
+    ''' </summary>
+    ''' <param name="pHotKeyID">Gibt die HotkeyID an welche entfernt werden soll</param>
+    Public Sub RemoveHotKey(ByVal pHotKeyID As Integer)
+        If _HotkeyIDList.ContainsKey(pHotKeyID) = False Then
+            Exit Sub
+        End If
+
+        Dim oHotkeyId As Short = _HotkeyIDList(pHotKeyID)
+        _HotkeyIDList.Remove(pHotKeyID)
+        _HotkeyList.Remove(oHotkeyId)
+        NativeMethods.UnregisterHotKey(_OwnerForm.Handle, CInt(oHotkeyId))
+        NativeMethods.GlobalDeleteAtom(oHotkeyId)
+    End Sub
+
+    Private Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage
+        If m.Msg = NativeMethods.WM_HOTKEY Then
+            If Clipboard.GetText().Trim() <> String.Empty Then
+                RaiseEvent HotKeyPressed(_HotkeyList(CShort(m.WParam)).HotKeyID)
+            End If
+        End If
+    End Function
+
+    Public Class HotKeyObject
+        Public Property HotKey() As Keys
+        Public Property Modifier() As ModfierKey
+        Public Property HotKeyID() As String
+        Public Property AtomID() As Short
+
+        Sub New(ByVal NewHotKey As Keys, ByVal NewModifier As ModfierKey, ByVal NewHotKeyID As String)
+            HotKey = NewHotKey
+            Modifier = NewModifier
+            HotKeyID = NewHotKeyID
+        End Sub
+    End Class
+End Class