Schrägstrich mit right einfügen
03.07.2003 01:42:32
Peter
~begin~
'Schrägstrich einfügen
Private Sub TextBox1_Change()
If TextBox1.Text = "" Then Exit Sub
If Not IsNumeric(Right(TextBox1.Text, 1)) Then
Beep
TextBox1.SelStart = Len(TextBox1.Text) - 1
TextBox1.SelLength = 1
Label1.Caption = "Nur Ziffern erlaubt!"
Exit Sub
Else
Label1.Caption = ""
End If
'Hier ist ein Fehler bei Right
If Len(TextBox1.Text) >= 7 Then Right(TextBox1.Text, 2) = "/"
Exit Sub
End Sub
~end~
Danke Peter