Char eines Keys ermitteln

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von luckyracer8.

    Char eines Keys ermitteln

    Meine Frage - Kann man irgendwie den wert einer gedrückten taste ermitteln -dass das bei den buchstaben geht is mir natürlich klar- aber bei tasten wie + ist der string dann "plus" :(. Und nein ich möchte nicht ermitteln, was für eine Taste gedrückt wurde :) -sondern den Wert der Taste. z.B. so:

    gedrückte tasten: Q und AltGr -> zu ermittelter char: "@"

    gedrückte tasten: A und shift -> zu ermittelnder char: "A"

    gedrückte taste: P -> zu ermittelnder char: "p"

    gedrückte tasten: + und AltGr -> zu ermittelnder char "~"

    Ich hoffe ihr könnt mir helfen, denn ich möchte nicht alle taste einzeln abfragen und dann einen Wert ermitteln das dauert nähmlich zu lange :S

    Such Dir eine entsprechende Tabelle oder
    Mach Dir ein kleines Testprogramm mit einr TextBox, dort leitest Du das KeyDown-Ereignis ab und trägst alle möglichen Parameter in entsprechende Labels.
    Das geht fast am schnellsten.
    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!

    Etwas unfangreicher:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Declare Function MapVirtualKey Lib "user32.dll" Alias "MapVirtualKeyA" (ByVal uCode As UInt32, ByVal uMapType As UInt32) As UInt32
    3. Const MAPVK_VK_TO_VSC As UInt32 = &H0
    4. Const MAPVK_VSC_TO_VK As UInt32 = &H1
    5. Const MAPVK_VK_TO_CHAR As UInt32 = &H2
    6. Const MAPVK_VSC_TO_VK_EX As UInt32 = &H3
    7. Const MAPVK_VK_TO_VSC_EX As UInt32 = &H4
    9. Structure TastenCodes
    10. Dim ChrValue As String
    11. Dim Character As String
    12. Dim VbNetName As String
    13. Dim KeyCode As System.Windows.Forms.Keys
    14. Dim KeyValue As Integer
    15. End Structure
    17. Private Sub TextBox1_KeyUpDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
    18. Dim NewTaste As New TastenCodes
    19. NewTaste.KeyValue = e.KeyValue
    20. NewTaste.ChrValue = Chr(e.KeyValue)
    21. NewTaste.KeyCode = e.KeyCode
    22. NewTaste.Character = TextBox1.Text
    23. NewTaste.VbNetName = e.KeyCode.ToString
    25. Dim text As String = sender.Text
    27. If (NewTaste.ChrValue.Trim = "") Then
    28. NewTaste.ChrValue = "-"
    29. End If
    31. TextBox2.Text = NewTaste.KeyValue
    32. TextBox3.Text = NewTaste.ChrValue
    33. TextBox4.Text = NewTaste.KeyCode
    34. TextBox5.Text = NewTaste.Character
    35. TextBox6.Text = NewTaste.VbNetName
    37. TextBox7.Text = "| " & NewTaste.ChrValue & " | " & NewTaste.VbNetName & " |"
    38. Clipboard.Clear()
    39. Clipboard.SetText(TextBox7.Text)
    41. TextBox7.Text = Convert.ToChar(NewTaste.KeyCode)
    43. Dim uu As UInt32 = MapVirtualKey(e.KeyCode, MAPVK_VK_TO_CHAR)
    44. TextBox8.Text = Chr(uu)
    46. TextBox1.Text = ""
    47. End Sub
    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!

    Danke! Werd ich gleich mal ausprobieren :)

    Edit: Ist aber nicht ganz was ich meine :(
    Ich will aus z.b. OemPlus + ermitteln und wenn auch noch Shift gedrückt ist * usw. So wie es passiert, wenn jmd. etwas in eine TextBox schreibt. Bloß das ich halt keine Textbox habe.

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

    Bastlerlösung:
    Eine Combobox mit Auswahl "ALT","SHIFT", usw.
    Eine Textbox für das Zeichen,
    eine Textbox für die Ausgabe.
    ein Button zum starten.

    Beim Buttonklick wird die Zusatztaste ermittelt (Shift, usw..), das Zeichen ermittelt.
    Dann mit Textbox.Focus auf die Ausgabetextbox gehen, und die oben ermittelten Zeichen per Sendkeys schicken.

    Funktioniert prima, gerade getestet.

    Willst Du fertigen Code abgreifen? :thumbdown:
    Willst Du Deine Hausaufgaben von uns gemacht haben? :thumbdown:
    Was ist, wenn Du einen Einser bekommst und den kopierten Code nicht verstehst? :thumbdown:
    Ergreife die Initiative. :thumbsup:
    Suche eigene Lösungen. :thumbsup:
    Betrachte unsere Posts als Anstoß für eine eigene Lösung, nicht aber als Lösung.
    Mach es selbst. :thumbup:
    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!

    Willst Du fertigen Code abgreifen?

    Nein, ich hab nur nicht ganz verstanden was er meint :(
    Willst Du Deine Hausaufgaben von uns gemacht haben?

    Nein, is Privat :D
    Was ist, wenn Du einen Einser bekommst und den kopierten Code nicht verstehst?

    Den Code würde ich dann warscheinlich verstehen :thumbsup:
    Ergreife die Initiative.

    Dazu muss ich verstehen was er meint
    Suche eigene Lösungen.

    Das hab ich versucht und die einzige, die mir eingefallen ist, ist die gewesen, jeder Taste die Zeichen selbst zuzuweisen.

    So, hab das ganze jetzt auf meine art und weise gemacht (:D) und falls es jmd braucht, hier ist es:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim AltGrPressed = False
    3. Private Sub KeyDown(ByVal Key As System.Windows.Forms.Keys) Handles WasWeisIch.KeyDown
    5. If Key = Windows.Forms.Keys.RMenu Then
    6. AltGrPressed = True
    7. End If
    9. If (Key >= 65 And Key <= 90) Then
    10. Select Case Key
    11. Case Windows.Forms.Keys.Q
    12. addtext("q", "Q", "@")
    13. Case Windows.Forms.Keys.E
    14. addtext("e", "E", "€")
    15. Case Windows.Forms.Keys.M
    16. addtext("m", "M", "µ")
    17. Case Else
    18. addtext(Key.ToString)
    19. End Select
    20. ElseIf (Key >= 48 And Key <= 57) Then
    21. Select Case Key
    22. Case Windows.Forms.Keys.D1
    23. addtext("1", "!")
    24. Case Windows.Forms.Keys.D2
    25. addtext("2", """", "²")
    26. Case Windows.Forms.Keys.D3
    27. addtext("3", "§", "³")
    28. Case Windows.Forms.Keys.D4
    29. addtext("4", "$")
    30. Case Windows.Forms.Keys.D5
    31. addtext("5", "%")
    32. Case Windows.Forms.Keys.D6
    33. addtext("6", "&")
    34. Case Windows.Forms.Keys.D7
    35. addtext("7", "/", "{")
    36. Case Windows.Forms.Keys.D8
    37. addtext("8", "(", "[")
    38. Case Windows.Forms.Keys.D9
    39. addtext("9", ")", "]")
    40. Case Windows.Forms.Keys.D0
    41. addtext("0", "=", "}")
    42. End Select
    44. ElseIf Key >= 96 And Key <= 105 Then
    45. addtext(Key.ToString.Substring(6))
    46. Else
    47. Select Case Key
    48. Case Windows.Forms.Keys.Space
    49. addtext(" ")
    50. Case Windows.Forms.Keys.Return
    51. addtext(vbNewLine)
    52. Case Windows.Forms.Keys.Add
    53. addtext("+")
    54. Case Windows.Forms.Keys.Subtract
    55. addtext("-")
    56. Case Windows.Forms.Keys.Divide
    57. addtext("/")
    58. Case Windows.Forms.Keys.Multiply
    59. addtext("*")
    60. Case Windows.Forms.Keys.Decimal
    61. addtext(",")
    62. Case Windows.Forms.Keys.Back
    63. addtext("back")
    64. Case Windows.Forms.Keys.Oemtilde
    65. addtext("ö")
    66. Case Windows.Forms.Keys.Oem1
    67. addtext("ü")
    68. Case Windows.Forms.Keys.Oem7
    69. addtext("ä")
    70. Case Windows.Forms.Keys.OemOpenBrackets
    71. addtext("ß", "?", "\")
    72. Case Windows.Forms.Keys.Oem5
    73. addtext("^", "°")
    74. Case Windows.Forms.Keys.Oem6
    75. addtext("´", "`")
    76. Case Windows.Forms.Keys.Oemcomma
    77. addtext(",", ";")
    78. Case Windows.Forms.Keys.OemPeriod
    79. addtext(".", ":")
    80. Case Windows.Forms.Keys.Oemplus
    81. addtext("+", "*", "~")
    82. Case Windows.Forms.Keys.OemQuestion
    83. addtext("#", "'")
    84. Case Windows.Forms.Keys.OemMinus
    85. addtext("-", "_")
    86. Case Windows.Forms.Keys.OemBackslash
    87. addtext("<", ">", "|")
    88. End Select
    89. End If
    90. End Sub
    92. Sub addtext(text As String, Optional shiftpressedkey As String = "", Optional altgrpressedkey As String = "")
    93. If text = "back" Then
    94. Try
    95. TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Count - 1)
    96. Catch
    97. End Try
    98. Else
    99. If Not shiftpressedkey = "" Then
    100. If AltGrPressed Then
    101. TextBox1.Text += altgrpressedkey
    102. ElseIf (Not My.Computer.Keyboard.ShiftKeyDown And Not My.Computer.Keyboard.CapsLock) Or (My.Computer.Keyboard.ShiftKeyDown And My.Computer.Keyboard.CapsLock) Then
    103. TextBox1.Text += text
    104. Else
    105. TextBox1.Text += shiftpressedkey
    106. End If
    107. Else
    108. If (Not My.Computer.Keyboard.ShiftKeyDown And Not My.Computer.Keyboard.CapsLock) Or (My.Computer.Keyboard.ShiftKeyDown And My.Computer.Keyboard.CapsLock) Then
    109. TextBox1.Text += text.ToLower
    110. Else
    111. TextBox1.Text += text.ToUpper
    112. End If
    113. End If
    114. End If
    115. End Sub


    Der Code funktioniert für alle tasten auf meiner (!) Tastatur.
    Mag sein das es GurkenCode ist, aber ich habs halt schnell gemacht.

    RodFromGermany schrieb:

    Willst Du Deine Hausaufgaben von uns gemacht haben?

    Nein, aber vielleicht hab ich sie jetzt für jemanden anderen gemacht :thumbsup:

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „luckyracer8“ ()

Facebook
Telefonspende