Hook Problem -> Text wird nicht in Textbox1 angezeigt

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von christophkrner.

    Hook Problem -> Text wird nicht in Textbox1 angezeigt

    Hallo,

    ich hab ein kleines Problem mit meinem Hook, ich find ihn einfach nicht. Warum funktioniert er nur bei Großgeschriebenen Tasten wie z.B. A,B und nicht bei a,b??


    Mein Code:

    VB.NET-Quellcode

    1. Public Class Form1
    4. Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
    5. Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
    6. Private Const Key_NONE As Integer = &H0
    7. Private Const WM_HOTKEY As Integer = &H312
    9. Protected Overrides Sub WndProc(ByRef m As Message)
    10. 'die messages auswerten
    11. If m.Msg = WM_HOTKEY Then
    12. 'hier wird entschieden welcher hotkey es war
    13. 'einfach die übergebene id auswerten
    14. Select Case m.WParam
    16. Case 1
    17. TextBox1.Text = TextBox1.Text & "Q"
    18. Case 2
    19. TextBox1.Text = TextBox1.Text & "W"
    20. Case 3
    21. TextBox1.Text = TextBox1.Text & "E"
    22. Case 4
    23. TextBox1.Text = TextBox1.Text & "R"
    24. Case 5
    25. TextBox1.Text = TextBox1.Text & "T"
    26. Case 6
    27. TextBox1.Text = TextBox1.Text & "Z"
    28. Case 7
    29. TextBox1.Text = TextBox1.Text & "U"
    30. Case 8
    31. TextBox1.Text = TextBox1.Text & "I"
    32. Case 9
    33. TextBox1.Text = TextBox1.Text & "O"
    34. Case 10
    35. TextBox1.Text = TextBox1.Text & "P"
    36. Case 11
    37. TextBox1.Text = TextBox1.Text & "Ü"
    38. Case 12
    39. TextBox1.Text = TextBox1.Text & "A"
    40. Case 13
    41. TextBox1.Text = TextBox1.Text & "S"
    42. Case 14
    43. TextBox1.Text = TextBox1.Text & "D"
    44. Case 15
    45. TextBox1.Text = TextBox1.Text & "F"
    46. Case 16
    47. TextBox1.Text = TextBox1.Text & "G"
    48. Case 17
    49. TextBox1.Text = TextBox1.Text & "H"
    50. Case 18
    51. TextBox1.Text = TextBox1.Text & "J"
    52. Case 19
    53. TextBox1.Text = TextBox1.Text & "K"
    54. Case 20
    55. TextBox1.Text = TextBox1.Text & "L"
    56. Case 21
    57. TextBox1.Text = TextBox1.Text & "Ö"
    58. Case 22
    59. TextBox1.Text = TextBox1.Text & "Ä"
    60. Case 23
    61. TextBox1.Text = TextBox1.Text & "Y"
    62. Case 24
    63. TextBox1.Text = TextBox1.Text & "X"
    64. Case 25
    65. TextBox1.Text = TextBox1.Text & "C"
    66. Case 26
    67. TextBox1.Text = TextBox1.Text & "V"
    68. Case 27
    69. TextBox1.Text = TextBox1.Text & "B"
    70. Case 28
    71. TextBox1.Text = TextBox1.Text & "N"
    72. Case 29
    73. TextBox1.Text = TextBox1.Text & "M"
    74. Case 30
    75. TextBox1.Text = TextBox1.Text & ","
    76. Case 31
    77. TextBox1.Text = TextBox1.Text & "."
    78. Case 32
    79. TextBox1.Text = TextBox1.Text & " "
    80. Case 33
    81. TextBox1.Text = TextBox1.Text & vbNewLine ' Enter
    82. Case 34
    83. TextBox1.Text = TextBox1.Text & "0"
    84. Case 35
    85. TextBox1.Text = TextBox1.Text & "1"
    86. Case 36
    87. TextBox1.Text = TextBox1.Text & "2"
    88. Case 37
    89. TextBox1.Text = TextBox1.Text & "3"
    90. Case 38
    91. TextBox1.Text = TextBox1.Text & "4"
    92. Case 39
    93. TextBox1.Text = TextBox1.Text & "5"
    94. Case 40
    95. TextBox1.Text = TextBox1.Text & "6"
    96. Case 41
    97. TextBox1.Text = TextBox1.Text & "7"
    98. Case 42
    99. TextBox1.Text = TextBox1.Text & "8"
    100. Case 43
    101. TextBox1.Text = TextBox1.Text & "9"
    102. Case 44
    103. TextBox1.Text = TextBox1.Text & "1"
    104. Case 45
    105. TextBox1.Text = TextBox1.Text & "2"
    106. Case 46
    107. TextBox1.Text = TextBox1.Text & "3"
    108. Case 47
    109. TextBox1.Text = TextBox1.Text & "4"
    110. Case 48
    111. TextBox1.Text = TextBox1.Text & "5"
    112. Case 49
    113. TextBox1.Text = TextBox1.Text & "6"
    114. Case 50
    115. TextBox1.Text = TextBox1.Text & "7"
    116. Case 51
    117. TextBox1.Text = TextBox1.Text & "8"
    118. Case 55
    119. TextBox1.Text = TextBox1.Text & "9"
    120. Case 53
    121. TextBox1.Text = TextBox1.Text & "0"
    122. End Select
    123. End If
    124. MyBase.WndProc(m)
    125. End Sub
    127. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    128. 'die tab taste wieder freigeben
    129. UnregisterHotKey(Me.Handle, 1)
    130. UnregisterHotKey(Me.Handle, 2)
    131. UnregisterHotKey(Me.Handle, 3)
    132. UnregisterHotKey(Me.Handle, 4)
    133. UnregisterHotKey(Me.Handle, 5)
    134. UnregisterHotKey(Me.Handle, 6)
    135. UnregisterHotKey(Me.Handle, 7)
    136. UnregisterHotKey(Me.Handle, 8)
    137. UnregisterHotKey(Me.Handle, 9)
    138. UnregisterHotKey(Me.Handle, 10)
    139. UnregisterHotKey(Me.Handle, 11)
    140. UnregisterHotKey(Me.Handle, 12)
    141. UnregisterHotKey(Me.Handle, 13)
    142. UnregisterHotKey(Me.Handle, 14)
    143. UnregisterHotKey(Me.Handle, 15)
    144. UnregisterHotKey(Me.Handle, 16)
    145. UnregisterHotKey(Me.Handle, 17)
    146. UnregisterHotKey(Me.Handle, 18)
    147. UnregisterHotKey(Me.Handle, 19)
    148. UnregisterHotKey(Me.Handle, 20)
    149. UnregisterHotKey(Me.Handle, 21)
    150. UnregisterHotKey(Me.Handle, 22)
    151. UnregisterHotKey(Me.Handle, 23)
    152. UnregisterHotKey(Me.Handle, 24)
    153. UnregisterHotKey(Me.Handle, 25)
    154. UnregisterHotKey(Me.Handle, 26)
    155. UnregisterHotKey(Me.Handle, 27)
    156. UnregisterHotKey(Me.Handle, 28)
    157. UnregisterHotKey(Me.Handle, 29)
    158. UnregisterHotKey(Me.Handle, 30)
    159. UnregisterHotKey(Me.Handle, 31)
    160. UnregisterHotKey(Me.Handle, 32)
    161. UnregisterHotKey(Me.Handle, 33)
    162. UnregisterHotKey(Me.Handle, 34)
    163. UnregisterHotKey(Me.Handle, 35)
    164. UnregisterHotKey(Me.Handle, 36)
    165. UnregisterHotKey(Me.Handle, 37)
    166. UnregisterHotKey(Me.Handle, 38)
    167. UnregisterHotKey(Me.Handle, 39)
    168. UnregisterHotKey(Me.Handle, 40)
    169. UnregisterHotKey(Me.Handle, 41)
    170. UnregisterHotKey(Me.Handle, 42)
    171. UnregisterHotKey(Me.Handle, 43)
    172. UnregisterHotKey(Me.Handle, 44)
    173. UnregisterHotKey(Me.Handle, 45)
    174. UnregisterHotKey(Me.Handle, 46)
    175. UnregisterHotKey(Me.Handle, 47)
    176. UnregisterHotKey(Me.Handle, 48)
    177. UnregisterHotKey(Me.Handle, 49)
    178. UnregisterHotKey(Me.Handle, 50)
    179. UnregisterHotKey(Me.Handle, 51)
    180. UnregisterHotKey(Me.Handle, 52)
    181. UnregisterHotKey(Me.Handle, 53)
    184. End Sub
    186. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    191. 'die tab taste abfangen
    192. RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.Q)
    193. RegisterHotKey(Me.Handle, 2, Key_NONE, Keys.W)
    194. RegisterHotKey(Me.Handle, 3, Key_NONE, Keys.E)
    195. RegisterHotKey(Me.Handle, 4, Key_NONE, Keys.R)
    196. RegisterHotKey(Me.Handle, 5, Key_NONE, Keys.T)
    197. RegisterHotKey(Me.Handle, 6, Key_NONE, Keys.Z)
    198. RegisterHotKey(Me.Handle, 7, Key_NONE, Keys.U)
    199. RegisterHotKey(Me.Handle, 8, Key_NONE, Keys.I)
    200. RegisterHotKey(Me.Handle, 9, Key_NONE, Keys.O)
    201. RegisterHotKey(Me.Handle, 10, Key_NONE, Keys.P)
    202. RegisterHotKey(Me.Handle, 11, Key_NONE, Keys.OemSemicolon) 'Ü
    203. RegisterHotKey(Me.Handle, 12, Key_NONE, Keys.A)
    204. RegisterHotKey(Me.Handle, 13, Key_NONE, Keys.S)
    205. RegisterHotKey(Me.Handle, 14, Key_NONE, Keys.D)
    206. RegisterHotKey(Me.Handle, 15, Key_NONE, Keys.F)
    207. RegisterHotKey(Me.Handle, 16, Key_NONE, Keys.G)
    208. RegisterHotKey(Me.Handle, 17, Key_NONE, Keys.H)
    209. RegisterHotKey(Me.Handle, 18, Key_NONE, Keys.J)
    210. RegisterHotKey(Me.Handle, 19, Key_NONE, Keys.K)
    211. RegisterHotKey(Me.Handle, 20, Key_NONE, Keys.L)
    212. RegisterHotKey(Me.Handle, 21, Key_NONE, Keys.Oemtilde) 'Ö
    213. RegisterHotKey(Me.Handle, 22, Key_NONE, Keys.OemQuotes) 'Ä
    214. RegisterHotKey(Me.Handle, 23, Key_NONE, Keys.Y)
    215. RegisterHotKey(Me.Handle, 24, Key_NONE, Keys.X)
    216. RegisterHotKey(Me.Handle, 25, Key_NONE, Keys.C)
    217. RegisterHotKey(Me.Handle, 26, Key_NONE, Keys.V)
    218. RegisterHotKey(Me.Handle, 27, Key_NONE, Keys.B)
    219. RegisterHotKey(Me.Handle, 28, Key_NONE, Keys.N)
    220. RegisterHotKey(Me.Handle, 29, Key_NONE, Keys.M)
    221. RegisterHotKey(Me.Handle, 30, Key_NONE, Keys.Oemcomma) ',
    222. RegisterHotKey(Me.Handle, 31, Key_NONE, Keys.OemPeriod) '.
    223. RegisterHotKey(Me.Handle, 32, Key_NONE, Keys.Space)
    224. RegisterHotKey(Me.Handle, 33, Key_NONE, Keys.Enter)
    225. RegisterHotKey(Me.Handle, 34, Key_NONE, Keys.D0)
    226. RegisterHotKey(Me.Handle, 35, Key_NONE, Keys.D1)
    227. RegisterHotKey(Me.Handle, 36, Key_NONE, Keys.D2)
    228. RegisterHotKey(Me.Handle, 37, Key_NONE, Keys.D3)
    229. RegisterHotKey(Me.Handle, 38, Key_NONE, Keys.D4)
    230. RegisterHotKey(Me.Handle, 39, Key_NONE, Keys.D5)
    231. RegisterHotKey(Me.Handle, 40, Key_NONE, Keys.D6)
    232. RegisterHotKey(Me.Handle, 41, Key_NONE, Keys.D7)
    233. RegisterHotKey(Me.Handle, 42, Key_NONE, Keys.D8)
    234. RegisterHotKey(Me.Handle, 43, Key_NONE, Keys.D9)
    236. RegisterHotKey(Me.Handle, 44, Key_NONE, Keys.NumPad1)
    237. RegisterHotKey(Me.Handle, 45, Key_NONE, Keys.NumPad2)
    238. RegisterHotKey(Me.Handle, 46, Key_NONE, Keys.NumPad3)
    239. RegisterHotKey(Me.Handle, 47, Key_NONE, Keys.NumPad4)
    240. RegisterHotKey(Me.Handle, 48, Key_NONE, Keys.NumPad5)
    241. RegisterHotKey(Me.Handle, 49, Key_NONE, Keys.NumPad6)
    242. RegisterHotKey(Me.Handle, 50, Key_NONE, Keys.NumPad7)
    243. RegisterHotKey(Me.Handle, 51, Key_NONE, Keys.NumPad8)
    244. RegisterHotKey(Me.Handle, 52, Key_NONE, Keys.NumPad9)
    245. RegisterHotKey(Me.Handle, 53, Key_NONE, Keys.NumPad0)
    246. End Sub

    Das habe ich deshalb gemacht, weil bei meinem Kassenprogramm sollen die Zusätze sofort automatisch, ohne irgendwo hin zu klicken, anzeigen. Außerdem habe ich noch die Hooks programmiert.

    Back to the Topic:

    Was ist mein Fehler??

    Dein Code ist ja generell furchtbar... Probier mal sowas:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
    3. Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
    4. Private Const Key_NONE As Integer = &H0
    5. Private Const WM_HOTKEY As Integer = &H312
    7. Protected Overrides Sub WndProc(ByRef m As Message)
    8. If m.Msg = WM_HOTKEY Then
    9. Dim c As Char = Chr(m.WParam.ToInt32)
    10. If Not (My.Computer.Keyboard.ShiftKeyDown Xor My.Computer.Keyboard.CapsLock) Then
    11. c = Char.ToLower(c)
    12. End If
    13. Label1.Text &= c
    14. End If
    15. MyBase.WndProc(m)
    16. End Sub
    18. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    19. For i As Integer = 1 To 255
    20. If i = 20 Then Continue For
    21. RegisterHotKey(Me.Handle, i, Key_NONE, i)
    22. Next
    23. End Sub
    25. Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    26. For i As Integer = 1 To 255
    27. UnregisterHotKey(Me.Handle, i)
    28. Next
    29. End Sub
    30. End Class

    So wird erstmal nur groß geschrieben, wenn Capslock aktiviert ist. Shift will noch nicht, aber das müsstest du selbst rauskriegen können.

    Generell stellt sich aber die Frage, warum du nicht KeyPreview der Form enablest und dann z.B. im Keydown-Event die Tasten abfragst. Dann läuft das auch mit Shift direkt. Und dann ist es auch egal, ob das Textfeld angewählt ist, nur das Fenster muss aktiviert sein.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „kevin89“ ()

Facebook
Telefonspende