Switch case Tastenabfrage klappt nicht

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von RushDen.

    Switch case Tastenabfrage klappt nicht

    Hi Leute.
    Ich wollte mal fragen, warum bei folgendem Event nichts passiert wenn ich eine Taste drücken.
    Die textbox bleibt leer, und wenn ich A drücke kommt auch keine MSGBOX.
    Hier mal der code:

    VB.NET-Quellcode

    1. Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
    3. Select Case e.KeyCode
    4. Case Keys.A
    5. TextBox1.Text = TextBox1.Text + "a"
    7. MsgBox("a")
    8. Case Keys.Q
    9. TextBox1.Text = TextBox1.Text + "q"
    11. Case Keys.W
    12. TextBox1.Text = TextBox1.Text + "w"
    14. Case Keys.E
    15. TextBox1.Text = TextBox1.Text + "e"
    17. Case Keys.R
    18. TextBox1.Text = TextBox1.Text + "r"
    20. Case Keys.T
    21. TextBox1.Text = TextBox1.Text + "t"
    23. Case Keys.Z
    24. TextBox1.Text = TextBox1.Text + "z"
    26. Case Keys.U
    27. TextBox1.Text = TextBox1.Text + "u"
    29. Case Keys.I
    30. TextBox1.Text = TextBox1.Text + "i"
    32. Case Keys.O
    33. TextBox1.Text = TextBox1.Text + "o"
    35. Case Keys.P
    36. TextBox1.Text = TextBox1.Text + "p"
    38. Case Keys.D
    39. TextBox1.Text = TextBox1.Text + "d"
    42. Case Keys.S
    43. TextBox1.Text = TextBox1.Text + "s"
    45. Case Keys.F
    46. TextBox1.Text = TextBox1.Text + "f"
    48. Case Keys.G
    49. TextBox1.Text = TextBox1.Text + "g"
    51. Case Keys.H
    52. TextBox1.Text = TextBox1.Text + "h"
    54. Case Keys.J
    55. TextBox1.Text = TextBox1.Text + "j"
    57. Case Keys.K
    58. TextBox1.Text = TextBox1.Text + "k"
    60. Case Keys.L
    61. TextBox1.Text = TextBox1.Text + "l"
    63. Case Keys.Y
    64. TextBox1.Text = TextBox1.Text + "y"
    66. Case Keys.X
    67. TextBox1.Text = TextBox1.Text + "x"
    69. Case Keys.C
    70. TextBox1.Text = TextBox1.Text + "c"
    72. Case Keys.V
    73. TextBox1.Text = TextBox1.Text + "v"
    75. Case Keys.B
    76. TextBox1.Text = TextBox1.Text + "b"
    78. Case Keys.N
    79. TextBox1.Text = TextBox1.Text + "n"
    81. Case Keys.M
    82. TextBox1.Text = TextBox1.Text + "m"
    84. Case Keys.Alt
    85. TextBox1.Text = TextBox1.Text + " <Alt> "
    87. Case Keys.Back
    88. TextBox1.Text = TextBox1.Text + " <Zurück> "
    90. Case Keys.CapsLock
    91. TextBox1.Text = TextBox1.Text + " <Grosschreib> "
    93. Case Keys.Control
    94. TextBox1.Text = TextBox1.Text + " <Strg> "
    96. Case Keys.Delete
    97. TextBox1.Text = TextBox1.Text + " <Löschen> "
    99. Case Keys.Down
    100. TextBox1.Text = TextBox1.Text + " <Runter> "
    102. Case Keys.Enter
    103. TextBox1.Text = TextBox1.Text + " <Enter> " + vbCrLf
    105. Case Keys.Escape
    106. TextBox1.Text = TextBox1.Text + " <Escape> "
    108. Case Keys.F1
    109. TextBox1.Text = TextBox1.Text + " <F1> "
    111. Case Keys.F2
    112. TextBox1.Text = TextBox1.Text + " <F2> "
    114. Case Keys.F3
    115. TextBox1.Text = TextBox1.Text + " <F3> "
    117. Case Keys.F4
    118. TextBox1.Text = TextBox1.Text + " <F4> "
    120. Case Keys.F5
    121. TextBox1.Text = TextBox1.Text + " <F5> "
    123. Case Keys.F6
    124. TextBox1.Text = TextBox1.Text + " <F6> "
    126. Case Keys.F7
    127. TextBox1.Text = TextBox1.Text + " <F7> "
    129. Case Keys.F8
    130. TextBox1.Text = TextBox1.Text + " <F8> "
    132. Case Keys.F9
    133. TextBox1.Text = TextBox1.Text + " <F9> "
    135. Case Keys.F10
    136. TextBox1.Text = TextBox1.Text + " <F10> "
    138. Case Keys.F11
    139. TextBox1.Text = TextBox1.Text + " <F11> "
    141. Case Keys.F12
    142. TextBox1.Text = TextBox1.Text + " <F12> "
    144. Case Keys.F13
    145. TextBox1.Text = TextBox1.Text + " <F13> "
    147. Case Keys.LButton
    148. TextBox1.Text = TextBox1.Text + " <Maus links> "
    150. Case Keys.LControlKey
    151. TextBox1.Text = TextBox1.Text + " <Strg links> "
    153. Case Keys.Left
    154. TextBox1.Text = TextBox1.Text + " <Links> "
    156. Case Keys.NumLock
    157. TextBox1.Text = TextBox1.Text + " <NumLock> "
    159. Case Keys.NumPad0
    160. TextBox1.Text = TextBox1.Text + " <0> "
    162. Case Keys.NumPad1
    163. TextBox1.Text = TextBox1.Text + " <1> "
    165. Case Keys.NumPad2
    166. TextBox1.Text = TextBox1.Text + " <2> "
    168. Case Keys.NumPad3
    169. TextBox1.Text = TextBox1.Text + " <3> "
    171. Case Keys.NumPad4
    172. TextBox1.Text = TextBox1.Text + " <4> "
    174. Case Keys.NumPad5
    175. TextBox1.Text = TextBox1.Text + " <5> "
    177. Case Keys.NumPad6
    178. TextBox1.Text = TextBox1.Text + " <6> "
    180. Case Keys.NumPad7
    181. TextBox1.Text = TextBox1.Text + " <7> "
    183. Case Keys.NumPad8
    184. TextBox1.Text = TextBox1.Text + " <8> "
    186. Case Keys.NumPad9
    187. TextBox1.Text = TextBox1.Text + " <9> "
    189. Case Keys.PageDown
    190. TextBox1.Text = TextBox1.Text + " <Bild runter> "
    192. Case Keys.PageUp
    193. TextBox1.Text = TextBox1.Text + " <Bild rauf> "
    195. Case Keys.RButton
    196. TextBox1.Text = TextBox1.Text + " <Maus rechts> "
    198. Case Keys.Return
    199. TextBox1.Text = TextBox1.Text + " <Return> "
    201. Case Keys.Right
    202. TextBox1.Text = TextBox1.Text + " <Rechts> "
    204. Case Keys.Shift
    205. TextBox1.Text = TextBox1.Text + " <Shift> "
    207. Case Keys.Up
    208. TextBox1.Text = TextBox1.Text + " <Hoch> "
    210. Case Keys.Space
    211. TextBox1.Text = TextBox1.Text + (" ")
    212. End Select
    218. End Sub

    Ich hoffe ihr könnt mihr helfen. Ich habe bestimmt nur was ganz simples übersehen, finde es aber nicht.
    Danke schonmal.
    shutdown

    shutdown schrieb:

    Ich habe bestimmt nur was ganz simples übersehen
    Gib Deiner Form im Designer KeyPreview = True.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende