Hallo zusammen es gibt dinge die offenbar unbegreiflich sind.
Symptome er geht jedesmal in den Return bereich gleichgültig ob Return, neben den Nummern Tasten die Enter Taste anwende.
Habe 4 Methoden probiert und keine schlägt an.
Würde mich auf eine Vernünftige Lösung freuen und ein guter Beispielcode um das problem zu beheben ist immer willkommen.
Spoiler anzeigen
mfg.
Xiantrius
Symptome er geht jedesmal in den Return bereich gleichgültig ob Return, neben den Nummern Tasten die Enter Taste anwende.
Habe 4 Methoden probiert und keine schlägt an.
Würde mich auf eine Vernünftige Lösung freuen und ein guter Beispielcode um das problem zu beheben ist immer willkommen.
VB.NET-Quellcode
- Private variableMap_v1 As New Dictionary(Of String, Keys) From {
- {"Key_Enter", Keys.Enter},
- {"Key_Return", Keys.Return}
- }
- Private variableMap_v2 As New Dictionary(Of String, String) From {
- {"Key_Enter", "13"},
- {"Key_Return", "13"}
- }
- Dim variableName_Enter As String = "Key_Enter"
- Dim variableName_Return As String = "Key_Return"
- Private Sub TextBox5_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox5.KeyDown
- 'Methode 1 Fehlgeschlagen
- 'If e.KeyCode = Keys.Return Then '&HD
- ' TextBox5.Text = "Return-Taste"
- 'ElseIf e.KeyCode = Keys.Enter Then
- ' TextBox5.Text = "Enter-Taste"
- 'End If
- 'Methode 2 Fehlgeschlagen
- 'If variableMap.ContainsKey(variableName_Return) Then
- ' ' Die Return-Taste wird verwendet
- ' TextBox5.Text = "Return-Taste"
- 'ElseIf variableMap.ContainsKey(variableName_Enter) Then
- ' ' Die Enter-Taste wird verwendet
- ' TextBox5.Text = "Enter-Taste"
- 'End If
- 'Methode 3 Fehlgeschlagen
- 'If variableMap.ContainsKey(variableName_Return) AndAlso variableMap(variableName_Return) = Keys.Return Then
- ' ' Die Return-Taste wird verwendet
- ' TextBox5.Text = "Return-Taste"
- 'ElseIf variableMap.ContainsKey(variableName_Enter) AndAlso variableMap(variableName_Enter) = Keys.Enter Then
- ' ' Die Enter-Taste wird verwendet
- ' TextBox5.Text = "Enter-Taste"
- 'End If
- 'Methode 4 Fehlgeschlagen
- If variableMap_v2.ContainsKey("Key_Return") Then
- ' Die Return-Taste wird verwendet
- TextBox5.Text = "Return-Taste"
- ElseIf variableMap_v2.ContainsKey("Key_Enter") Then
- ' Die Enter-Taste wird verwendet
- TextBox5.Text = "Enter-Taste"
- End If
- TextBox5.Text &= " # HexWert " & Hex(e.KeyValue.ToString())
- End Sub
- [/spoiler]
mfg.
Xiantrius
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Xiantrius“ ()