KeyPress KeyUp - nur sichtbare Zeichen aus e.keyChar auslesen?

dive26 · 2. Oktober 2013, 13:53

Hallo Leute!

Ich möchte in einer Form, unabhängig von Eingabefeldern und anderen Elementen wie Pictureboxen, Buttons etc. die Tastatureingaben des Benutzers abfangen. Dies habe ich soweit mit folgenden Code hinbekommen.

VB.NET-Quellcode

Private Sub frm_hauptform_KeyPress(sender As Object, e As KeyPressEventArgs) Handles MyBase.KeyPress
TastaturPuffer.Append(e.KeyChar)
' Label1.Text = e.KeyChar
'Label2.Text = TastaturPuffer.ToString
'Label5.Text = CStr(e.KeyChar)
End Sub
Private Sub frm_hauptform_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp
'Nur die Enter-Taste gedrückt wurde
If e.KeyCode = Keys.Enter And TastaturPuffer.Length > 0 Then
RichTextBox1.Text += TastaturPuffer.ToString + " - " + CStr(TastaturPuffer.Length) + vbCrLf
TastaturPuffer.Clear()
End If
End Sub

Da die Eingabe Barcodes und Schlüsselcodes (Kellnerschlösser über HID) sind, die immer mit einem CR+LF (Enter-Taste) abgeschlossen werden, fülle ich den Tastaturpuffer (Variable) im KeyPress Ereignis mit dem gerade getippten Zeichen.

Im Keyup Ereignis frage ich ab ob die Enter-Taste gedrückt wurde. Wurde diese gedrückt und vorher mindestens 1 gültiges Zeichen getippt, dann wird der Code übernommen (zum Probieren in eine Richtextbox geschrieben mit der Info der Zeichenlänge).

Nun habe ich aber das Problem, dass JEDE Taste übergeben wird. Also auch Backspace und andere Steuerzeichen. Das möchte ich aber nicht. Ich möchte ausschließlich sichtbare Zeichen übergeben (0-9,a-f,A-F,!-?). Gibt es hier einen "Universalbefehl" um nur "normale" Zeichne zu identifizieren oder muss man mit If/Then oder Case-Abfrage die ungültigen oder gültigen manuell auseinanderpflücken?

LG Roland

RodFromGermany · 2. Oktober 2013, 13:57

@dive26:: Die Auswahl der für Dich zulässigen Tasten machst Du in der KeyDown:

VB.NET-Quellcode

Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
Select Case e.KeyCode
Case Keys.A To Keys.Z
Case Else
e.SuppressKeyPress = True
End Select
End Sub

lässt nur die Tasten a-z | A-Z durch, den Rest nicht.

Schamash · 2. Oktober 2013, 14:01

Ich verwende immer den KeyChar
Ansonsten rufe ich meine Sub auch aus dem KeyDown auf.

VB.NET-Quellcode

Public Sub NurZahlenZulassen(ByVal e As System.Windows.Forms.KeyPressEventArgs)
'Eingabe nur für Zahlen zulassen
Select Case Asc(e.KeyChar)
Case 48 To 57, 8, 46 'Zahlen, Backspace und Delete zulassen
Case Else 'alle anderen Eingaben verbieten
e.Handled = True
End Select
End Sub

~blaze~ · 2. Oktober 2013, 14:10

Hi
vllt. eher auf Char.IsControl überprüfen.

Gruß
~blaze~

RodFromGermany · 2. Oktober 2013, 14:15

~blaze~ schrieb:

vllt. eher

mal alles ansehen, was der Parameter e und der eine einzige andere Thread im Forum ( :thumbsup:

) so bieten.

dive26 · 2. Oktober 2013, 14:31

Danke blaze, das war die Lösung :thumbsup:

:

VB.NET-Quellcode

Private Sub frm_hauptform_KeyPress(sender As Object, e As KeyPressEventArgs) Handles MyBase.KeyPress
If Not Char.IsControl(e.KeyChar) Then TastaturPuffer.Append(e.KeyChar)
End Sub

Somit habe ich auch die Groß- und Kleinschreibung berücksichtigt und alle sichtbaren Zeichen können übergeben werden.

Danke nochmals für die rasche Hilfe.

LG Roland

~blaze~ · 2. Oktober 2013, 14:58

Aufpassen auf Copy&Paste, bspw. damit kann man das umgehen.
Dazu wäre folgender Lösungsansatz vielleicht geeignet. Halte den SelectionStart-Eintrag in einem Puffer und, sobald eine Änderung vollzogen wird, überprüfe, ob der Text ungültige Zeichen enthält. Entferne diese ggf. und passe SelectionStart entsprechend an:

VB.NET-Quellcode

Dim selStart As Integer = TextBox.SelectionStart
Dim newText As String = RemoveChars(TextBox.Text, selStart, AddressOf "ungültigeZeichen".Contains)
If newText IsNot Nothing Then
TextBox.Text = newText
TextBox.SelectionStart = selStart
End If

VB.NET-Quellcode

Shared Function RemoveChars(text As String, ByRef referencePoint As Integer, match As Func(Of Char, Boolean)) As String
If match Is Nothing Then Throw New ArgumentNullException("match")
If text Is Nothing Then Throw New ArgumentNullException("text")
Dim outp As System.Text.StringBuilder
For i As Integer = 0 To text.Length - 1
If match(text(i)) Then 'Chars auslassen, die vom Delegaten abgelehnt werden
If outp Is Nothing Then outp = New System.Text.StringBuilder(text, 0, i, text.Length) 'eine Änderung ist nötig ==> StringBuilder wird dazu verwendet, den neuen String zu konstruieren
If referencePoint <= i Then referencePoint -= 1 'Selektion um 1 nach links verschieben, da 1 Char entfernt wurde
ElseIf outp IsNot Nothing Then
outp.Append(text(i)) 'gültige Chars übernehmen, sofern eine Änderung vollzogen wurde
End If
Next
Return If(outp Is Nothing, Nothing, outp.ToString()) 'den editierten Text oder, sofern keine Änderungen vollzogen wurden, Nothing zurückgeben
End Function

Kann sein, dass in der Replacement-Funktion ein Fehler drin ist, habe sie nur aus dem Kopf hingeschrieben, das Prinzip sollte aber klar sein (?). Der match-Parameter stellt einen Delegaten bereit, der angibt, ob ein Char ungültig ist. Ungültige chars (==> gibt True zurück) werden entfernt. Statt AddressOf "ungültigeZeichen".Contains kann natürlich auch ein anderer Delegat angegeben werden, wie z.B. AdressOf Char.IsLetter. Das würde dann so aussehen:

VB.NET-Quellcode

Dim newText As String = RemoveChars(TextBox.Text, selStart, Function(c) Not Char.IsLetter(c))

bzw. könnte man auch eine Funktion angeben, die genau das invertierte behält, also der Delegat die Chars bereitstellt, die unterstützt werden (einfach nur das Not verwenden):

Visual Basic-Quellcode

If Not match(text(i)) Then 'Chars behalten, die vom Delegaten nicht gefiltert werden

Gruß
~blaze~

dive26 · 2. Oktober 2013, 15:08

Nein blaze, das ist für mich unbrauchbar - viel zu lang.
Dein allererster Hinweis passt schon. Und mit der einer Zeile an Code bekomme ich alles was ich möchte.

~blaze~ · 2. Oktober 2013, 15:12

Was passiert denn, wenn man ungültige Zeichen über Copy & Paste einfügt? Dann enthält die TextBox eben jene, weil sie nicht einzeln über KeyPress eingefügt werden. Damit ist der TextBox-Inhalt falsch und die Funktionalität ausgehebelt. Die Länge eines Codes ist nicht entscheidend, solange sie sinnvoll ist.

Gruß
~blaze~

dive26 · 2. Oktober 2013, 15:31

Copy & Paste funktioniert über meine Abfragevariante ohnehin nicht, da ich nur KeyPress und KeyUp abfrage, jedoch keine Textbox oder ähnliches.
Die eine Zeile Code ist daher vollkommen ausreichend.

Nochmals zur Erinnerung: Die Tastatureingaben aller Elemente auf dem Formular werden in der KeyPress Routine der Form abgefragt. Eingaben von Textboxen etc. werden nicht ausgewertet bzw. gibt es auf der Form keine aktiven Textboxen.

VB.NET-Quellcode

Private Sub frm_hauptform_KeyPress(sender As Object, e As KeyPressEventArgs) Handles MyBase.KeyPress
If Not Char.IsControl(e.KeyChar) Then TastaturPuffer.Append(e.KeyChar)
End Sub

MyBase.KeyPress

dive26 · 2. Oktober 2013, 16:11

Ich habe da doch noch eine Frage. Ich komm nicht drauf.

Ich habe mir einen Button "OK" auf die Form gelegt.
Wenn ich den Button drücke, dann möchte ich dass frm_hauptform_KeyUp mit dem Keys.Enter aufgerufen wird (also die Enter-Taste simulieren).
Ich habe keinen Plan, wie ich das Zeichen über KeyEventArgs übergeben soll (Anfänger/Verständnisproblem).
Gibt es da eine Zeile Code damit der Knoten aufgeht?

VB.NET-Quellcode

Private Sub frm_hauptform_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp
If e.KeyCode <> Keys.Enter Then Exit Sub
'...code hier
End Sub

VB.NET-Quellcode

Private Sub btn_Ok_Click(sender As Object, e As EventArgs) Handles btn_Ok.Click
SendKeys.Send(Keys.Enter) 'funktioniert nicht
End Sub

~blaze~ · 2. Oktober 2013, 16:57

Einfach die AcceptButton-Eigenschaft der Form auf den Button setzen. Aufrufe sollte man in so einem Fall nicht indirekt über SendKeys oder so 'nen Zeug erledigen. Das ist extrem unsauber. Falls das mit AcceptButton nicht das ist, was du möchtest, lege eine eigene Prozedur an und lagere den auszuführenden Code dorthin aus. Diesen rufst du dann von btn_Ok_Click und frm_hauptform_KeyUp direkt auf. Im Normalfall sollte AcceptButton aber ausreichen.

Gruß
~blaze~

dive26 · 2. Oktober 2013, 17:09

Nein, glaub nicht, dass AcceptButton das ist was ich suche.
Die Abfrage der Tastatureingaben soll ja ausschließlich über das Form_KeyUp Event laufen.

Ich möchte diese Funktion direkt aufrufen und dieser den Parameter "Enter-Taste" übergeben.
Ich hab aber keinen Plan wie ich das machen kann.

Das Auslagern in eine Prozedur wäre eine Möglichkeit, aber dann wüsste ich immer noch nicht wie man technisch einen Tastendruck an ein Objekt sendet bzw. ein entsprechendes Event auslöst.
Kann sein, dass ich das auch wo anders noch benötige.

~blaze~ · 2. Oktober 2013, 17:23

Ich glaube eher, dass du das gar nicht benötigst. Warum sollte ein Tastendruck nötig sein? Und warum explizit ein Tastendruck?

Gruß
~blaze~

dive26 · 2. Oktober 2013, 19:00

"Tastendruck" habe ich vielleicht etwas falsch formuliert.
Ich möchte programmgesteuert das Keypress-Event auslösen und den richtigen char-Wert "Enter / CHR13) mitgeben.

~blaze~ · 2. Oktober 2013, 19:02

Aber wozu das ganze? Hört sich für mich eher nach einer eher seltsamen Art an Workaround an, was man auf direktem Wege elegant lösen könnte.

Gruß
~blaze~

dive26 · 2. Oktober 2013, 19:06

Ich habe es mittlerweile anders gelöst, trotzdem wollte ich wissen, wie das programmtechnisch geht.

Unter VB6 war das ja noch einfach möglich

VB.NET-Quellcode

Text1_KeyUp 13, 0

~blaze~ · 2. Oktober 2013, 19:08

Genau das meinte ich damit, dass man es eleganter lösen kann. Das geht in VB.Net auch, aber man tut es einfach nicht, da es hässlich ist. Unter Verwendung einer ausgelagerten Prozedur wäre das einfach und elegant realisierbar.

Gruß
~blaze~

KeyPress KeyUp - nur sichtbare Zeichen aus e.keyChar auslesen?

KeyPress KeyUp - nur sichtbare Zeichen aus e.keyChar auslesen?

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

~blaze~ schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Visual Basic-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben