wewa
Mitglied
Hallo!
Zunächst geht es einmal um Visual Basic 6. Da stehe ich vor einem kleinen Problem.
Und zwar verhindere ich mit folgendem Code, dass in einem Textfeld (für Pin) etwas anderes als Zahlen (und davon maximal 4) eingegeben wird.
Das Problem ist nun, man kann in diesem Textfeld nun keine Zahlen mit Strg+C und Strg+V eingügen. Auch kann nun in diesem Textfeld nichts überschreiben werden, wenn schon 4 Zahlen drin stehen.
Wie kann ich diese beiden Sachen ermöglichen?
PS: Das ASCII zu 8 ist Backspace, damit man auch etwas entfernen kann.
Zunächst geht es einmal um Visual Basic 6. Da stehe ich vor einem kleinen Problem.
Und zwar verhindere ich mit folgendem Code, dass in einem Textfeld (für Pin) etwas anderes als Zahlen (und davon maximal 4) eingegeben wird.
Code:
Private Sub txtpin_KeyPress(KeyAscii As Integer)
If InStr("0123456789" + Chr(8), Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
If Len(txtPin.Text) >= 4 And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
Wie kann ich diese beiden Sachen ermöglichen?
PS: Das ASCII zu 8 ist Backspace, damit man auch etwas entfernen kann.