VB6 text box

[pierfrancis]

ciao a tutti
in un programma in vb volevo mettere due text box ognuna al massimo 4 caratteri.
comme posso fare in modo che il quinto carattere inserito vada in automatico nella seconda text box ?

[LMondi]

Guarda se così va bene:

Private Sub Command1_Click()
    Dim strProva As String
    Dim sngSottr As Single
    Dim str2 As String
    Dim str3 As String
    
    strProva = "Carate Brianza"
    sngSottr = Len(strProva)
        
' Prende i primi 4 caratteri:
    str2 = Mid(strProva, 1, 4)
    Text1(0).Text = str2

' Prende i restanti caratteri, con il max di 4
' compresi i bianchi:
    str3 = Mid(strProva, 5, (sngSottr - 4))
    Text1(1).MaxLength = 4
    Text1(1).Text = str3
End Sub

Ciao !

[pierfrancis]

grazie!!
C'è un modo per sapere quanti caratteri sono stati inseriti in una text box?

[MItaly]

Volendo puoi anche risolvere in maniera più semplice: imposta la proprietà MaxLength di entrambe le textbox a 4, quindi inserisci il seguente codice:

Private Sub Text1_Change()
    If Len(Text1.Text) = Text1.MaxLength Then Text2.SetFocus
End Sub

(supponendo che la prima textbox si chiami Text1 e la seconda Text2).
Quanto alla domanda del tuo ultimo post, basta fare come nel codice appena riportato (Len(NomeTextBox.Text)).

[pierfrancis]

Grazie mille!!!

[MItaly]

Prego; ciao!