Ciao, altra soluzione potrebbe essere questa
Comunque sia, è sempre bene impostare la lunghezza massima dell'oggetto textBoxcodice:Private Sub SpostaFocus(strText As String, numMaxCar As Integer) If Len(strText) = numMaxCar Then SendKeys "{TAB}", True End If End Sub Private Sub Text1_Change() SpostaFocus Text1.Text, 1 End Sub
Logicamente, il secondo parametro della funzione SpostaFocus, è la lunghezza che la stringa deve raggiungere per spostare il focus in automatico. Se il focus si deve spostare dopo l'inserimento di 10 caratteri, allora devi mettere 10
![]()

Rispondi quotando