title image


Smiley Re: Automaticher Tab wechsel
Hi,die TextBoxen würde ich als Collection definieren, MaxLength auf 5 setzen.Private Sub Text1_Change(Index As Integer) If Len(Text1(Index).Text) = 5 Then If Index Text1(Index + 1).SetFocus End If End IfEnd SubNach der 5. TextBox den Focus auf ein anderes Objekt setzen. If Len(Text1(Index).Text) = 5 Then If Index Text1(Index + 1).SetFocus Exit Sub Else Text2.SetFocus End If End IfJetzt musst Du Dir nur noch was überlegen falls im Nachhinein noch an beliebiger STelle im String ein Zeichen eingefügt wird. Wenn man die Cursor-Position rausfinden kann, könnte man über SendKeys Backspace senden ...Ernst

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: