title image


Smiley Re: In Textbox nur Buchstaben von a-z und Zahlen zulassen
Hallo Scouty

Dazu verwende ich diese kleine Routine

Gruss Trebla



'---------------------------

Private Sub Text1_Change()

Dim n As Integer

Static boo As Boolean

n = Text1.SelStart - 1

If boo = False And n > -1 Then

Select Case Mid(Text1.Text, n + 1, 1)

Case "a" To "z" 'zulassen

Case "0" To "9" 'zulassen

Case Else

boo = True

Text1.Text = Left(Text1.Text, n) & Mid(Text1.Text, n + 2)

boo = False

Text1.SelStart = n

End Select

End If

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: