'variabile per evitare di spostarsi in fase di eventuale inizializzazione del campo
'sarà False al momento della GotFocus della textBox
'sarà True in fase di inizializzazione
Dim Fload as boolean
Private Sub Form_Load()
'importante per far anticipare il controllo degli eventi della Tastiera rispetto Quelli dei Controlli
KeyPreview = True
Text1. MaxLength = 5
Fload = True
Text1.text="PIPPO" 'non si ha l'AutoTab essendo Fload = True
End Sub
Private Sub Text1_GotFocus()
Fload = False 'per abilitare l'AutoTab
End Sub
Private Sub Text1_Change()
'automaticamente al campo successivo
If Not Fload Then Call AutoTab(Text1)
End Sub
Public Sub AutoTab(Testo As TextBox)
' If Tasto <> vbKeyBack And Tasto <> vbKeyCancel Then ...
If Testo.MaxLength > 0 Then
If Len(Testo) = Testo.MaxLength Then SendKeys "{TAB}"
End If
End Sub
Buon lavoro
Guido by Gecsi
www.gecsi.i