RegisterGlobalHotkey - Hotkeys, systemweit: Schlanke Wrapper-Klasse für komfortable Nutzung

    • VB.NET

    Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Agent.

      RegisterGlobalHotkey - Hotkeys, systemweit: Schlanke Wrapper-Klasse für komfortable Nutzung

      Hallo com,

      hier mal meine Wrapper-Klasse für Hotkeys.
      Wenn ich demnächst meine FARunTime release, wird sie Bestandteil sein.

      Sie ist Option Stict On-gültig (wurde mit default an geschrieben; wie das geht, steht hier unter punkt 7)

      Bei nachfragen zu speziellen Code-Abschnitten einfach Fragen ;)
      Die Deklarationen gibt es für .NET am besten bei P/Invoke.NET

      VB.NET-Quellcode

      1. Imports System.Windows.Forms
      2. Imports System.Runtime.InteropServices
      4. Namespace WinServices
      5. Public Class HotKeyProvider
      6. Implements IMessageFilter
      8. #Region "WinAPI"
      9. <DllImport("user32.dll")> Private Shared Function RegisterHotKey(ByVal Hwnd As IntPtr, ByVal ID As Integer, ByVal Modifiers As Integer, ByVal Key As Integer) As Integer
      10. End Function
      11. <DllImport("user32.dll")> Private Shared Function UnregisterHotKey(ByVal Hwnd As IntPtr, ByVal ID As Integer) As Integer
      12. End Function
      13. <DllImport("kernel32.dll")> Private Shared Function GlobalAddAtomA(ByVal IDString As String) As Short
      14. End Function
      15. <DllImport("kernel32.dll")> Private Shared Function GlobalDeleteAtom(ByVal Atom As Short) As Short
      16. End Function
      17. Private Const WM_HOTKEY As Integer = &H312
      18. #End Region
      19. ''' <summary>
      20. ''' Raised when a Hooked Hotkey is pressed. Gives the ID of the Hotkey for identification.
      21. ''' </summary>
      22. ''' <param name="hkID">The ID of the Hotkey, wich was pressed</param>
      23. ''' <remarks></remarks>
      24. Public Event HotKeyPressed(ByVal hkID As Short)
      25. Private parent As Form
      26. Private hotkeys As List(Of HK_DATA)
      28. Private Function GetHKByID(ByVal hkID As Short) As HK_DATA
      29. For Each hkd As HK_DATA In hotkeys
      30. If hkd.ID = hkID Then Return hkd
      31. Next
      32. Throw New HotKeyNotFoundException(CStr(hkID), "A Hotkey with the given System ID did not exist or was already Unhooked.")
      33. End Function
      34. Private Function GetHKByName(ByVal hkName As String) As HK_DATA
      35. For Each hkd As HK_DATA In hotkeys
      36. If hkd.AssociatedName = hkName Then Return hkd
      37. Next
      38. Throw New HotKeyNotFoundException(hkName, "A Hotkey with the given Name did not exist or was already Unhooked.")
      39. End Function
      40. ''' <summary>
      41. ''' Unhooks a Hotkey
      42. ''' </summary>
      43. ''' <param name="hotkeyID">ID of the Hotkey</param>
      44. ''' <remarks></remarks>
      45. Public Sub Unhook(ByVal hotkeyID As String)
      46. Dim iID As Integer = GetHKByName(hotkeyID).pInternalID
      47. hotkeys(iID).Destroy(parent)
      48. hotkeys.RemoveAt(iID)
      49. End Sub
      50. ''' <summary>
      51. ''' Hooks a global Hotkey
      52. ''' </summary>
      53. ''' <param name="hk">Structure describing the Hotkey with ID, Keys and Modifier Keys</param>
      54. ''' <remarks></remarks>
      55. Public Overloads Sub Hook(ByVal hk As Hotkey)
      56. hotkeys.Add(New HK_DATA(hk.HotKeyID, hotkeys.Count))
      57. RegisterHotKey(parent.Handle, hotkeys.Last.ID, hk.KeyModifier, hk.KeyCombo)
      58. End Sub
      59. ''' <summary>
      60. ''' Hooks a global Hotkey
      61. ''' </summary>
      62. ''' <param name="id">ID of the hotkey, given with the HotKeyPressed event</param>
      63. ''' <param name="keycombo">Key-combination for the Hotkey</param>
      64. ''' <param name="keymodifier"><c>Optional.</c> Additional keys to be pressed, Link them with [Or]</param>
      65. ''' <remarks></remarks>
      66. Public Overloads Sub Hook(ByVal id As String, ByVal keycombo As Keys, Optional ByVal keymodifier As Hotkey.Modifier = Hotkey.Modifier.None)
      67. Hook(New Hotkey(id, keycombo, keymodifier))
      68. End Sub
      69. ''' <summary>
      70. ''' Unhooks all hooked Hotkeys. Use this upon Application quitting
      71. ''' </summary>
      72. ''' <remarks></remarks>
      73. Public Sub UnHookAll()
      74. For i = hotkeys.Count - 1 To 0 Step -1
      75. hotkeys(i).Destroy(parent)
      76. hotkeys.RemoveAt(i)
      77. Next
      78. End Sub
      80. Public Sub New(ByVal parentForm As Form)
      81. parent = parentForm
      82. Application.AddMessageFilter(Me)
      83. hotkeys = New List(Of HK_DATA)
      84. End Sub
      86. Public Class HotKeyNotFoundException
      87. Inherits Exception
      88. Dim pM As String
      89. Dim pValue As String
      90. Public Sub New(ByVal paramValue As String, ByVal msg As String)
      91. pM = msg
      92. pValue = paramValue
      93. End Sub
      94. Public Overrides ReadOnly Property Message As String
      95. Get
      96. Return pM & " The actual value was:" & pValue
      97. End Get
      98. End Property
      99. End Class
      101. Private Structure HK_DATA
      102. Dim pID As Short
      103. Dim pAssocName As String
      104. Dim pInternalID As Integer
      105. Public Property ID As Short
      106. Get
      107. Return pID
      108. End Get
      109. Set(ByVal value As Short)
      110. pID = value
      111. End Set
      112. End Property
      113. Public Property AssociatedName As String
      114. Get
      115. Return pAssocName
      116. End Get
      117. Set(ByVal value As String)
      118. pAssocName = value
      119. End Set
      120. End Property
      121. Public Property InternalID As Integer
      122. Get
      123. Return pInternalID
      124. End Get
      125. Set(ByVal value As Integer)
      126. pInternalID = value
      127. End Set
      128. End Property
      129. Public Sub New(ByVal name As String, ByVal internalID As Integer)
      130. pAssocName = name
      131. pID = GlobalAddAtomA(pAssocName)
      132. pInternalID = internalID
      133. End Sub
      134. Public Sub Destroy(ByVal p As Form)
      135. UnregisterHotKey(p.Handle, CInt(pID))
      136. GlobalDeleteAtom(pID)
      137. pInternalID = -1
      138. End Sub
      139. End Structure
      140. Public Structure Hotkey
      141. Dim pHK As Keys
      142. Dim pMod As Modifier
      143. Dim pID As String
      144. Public Enum Modifier As Integer
      145. None = 0
      146. Alt = 1
      147. Control = 2
      148. Shift = 4
      149. WindowsKey = 8
      150. End Enum
      151. Public Property KeyCombo As Keys
      152. Get
      153. Return pHK
      154. End Get
      155. Set(ByVal value As Keys)
      156. pHK = value
      157. End Set
      158. End Property
      159. Public Property KeyModifier As Modifier
      160. Get
      161. Return pMod
      162. End Get
      163. Set(ByVal value As Modifier)
      164. pMod = value
      165. End Set
      166. End Property
      167. Public Property HotKeyID As String
      168. Get
      169. Return pID
      170. End Get
      171. Set(ByVal value As String)
      172. pID = value
      173. End Set
      174. End Property
      175. Public Sub New(ByVal ID As String, ByVal key As Keys, ByVal modkeys As Modifier)
      176. pID = ID
      177. pHK = key
      178. pMod = modkeys
      179. End Sub
      180. End Structure
      181. Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean Implements System.Windows.Forms.IMessageFilter.PreFilterMessage
      182. If m.Msg = WM_HOTKEY Then
      183. RaiseEvent HotKeyPressed(GetHKByID(CShort(m.WParam)).ID)
      184. End If
      185. Return False
      186. End Function
      187. End Class
      188. End Namespace


      Im Anhang noch die Datei dazu.
      Dateien

    Facebook
    Telefonspende