[VB6] abilitare textbox dopo il riempimento della precedente

[zanlu88s]

Buonasera a tutti.
Ho cercato delle discussioni su questo forum simili al mio caso ma non ne ho trovate.
Ho 5 textbox e vorrei che il programma una volta avviato mi conceda inizialmente di scrivere solo nella text1 e text2, una volta rilasciato il focus della prima text, abilitare la terza... ecc.
Come faccio in pratica ad intercettare il cambio focus ???

Sarebbe inoltre possibile fare un controllo su una text in particolare che so che deve contenere 5 caratteri solamente ??

Esempio: Text1.text arriva a 5 caratteri e allora text3.enabled= true ???


Ringrazio anticipatamente

Gianluca

[LMondi]

Ciao zanlu88s,
se ho interpretato bene la tua richiesta così dovresti risolvere:

Option Explicit
Private Sub Form_Load()
    Text1(0).Enabled = True
    Text1(1).Enabled = True
    Text1(2).Enabled = False
    Text1(3).Enabled = False
    Text1(4).Enabled = False
End Sub
'---------------------------------------
Private Sub Text1_Change(Index As Integer)
    If Len(Text1(1).Text) > 0 Then Text1(2).Enabled = True
    If Len(Text1(2).Text) > 0 Then Text1(3).Enabled = True
    If Len(Text1(3).Text) > 0 Then Text1(4).Enabled = True
End Sub

Per quanto riguarda il controllo del numero di caratteri digitabili fai riferimento alla prop. MaxLength
Text1(2).MaxLength = 5
che indica l'eventuale presenza di un numero massimo di
caratteri digitabili per il controllo TextBox ed il numero
di caratteri digitabili.
Come vedi nell'esempio ho utilizzato una matrice di Txt che agevola il lavoro che devi svolgere.
Ciao.

[Grumpy]

Originariamente inviato da LMondi
Come vedi nell'esempio ho utilizzato una matrice di Txt che agevola il lavoro che devi svolgere.

Mica tanto. L'agevolazione ci sarebbe scrivendo qualcosa del tipo

    If Len(Text1(Index).Text) > 0 Then Text1(Index + 1).Enabled = True

altrimenti, se non usi l'indice, è inutile creare una matrice.

Originariamente inviato da zanlu88
Come faccio in pratica ad intercettare il cambio focus ???

Vedi l'evento LostFocus.