[vb6]caselle di testo a ripetizione

[ciro78]

Salve esiste un modo per inserire 20 caselle di testo senza dover eseguire la normale procedura?anche perchè le caselle sono 400 non 20

[stebux]

Originariamente inviato da ciro78
Salve esiste un modo per inserire 20 caselle di testo senza dover eseguire la normale procedura?

in che senso?

[ciro78]

cliccare e disegnarla....
io devo disporre le caselle di testo in modo che sembrino una tabella

[axsw]

ciao Ciro
Ti informo che un form supporta solo 255 controlli
e ricordati che esiste il "copia incolla"

[Alethesnake]

per inserire oggetti a runtime basta che ne inserisci uno nel tuo form e gli setti index = 0 tra le proprietà.

poi sull'evento load del form puoi mettere qualcosa del genere (nel caso di una textbox)

Private Sub Form_Load()

    Me.Text1(0).Visible = True
    Me.Text1(0).Move 200, 100
    
    For i = 1 To 5
        
        Load Text1(i)
        
        With Text1(i)
            .Move 200, (600 * i + 100)
            .Visible = True
        End With
    
    Next i
End Sub

[ciro78]

il tuo code mi da moolti errori l'hai provato?


grazie per aver partecipato alla prossima

[MMarzia]

Originariamente inviato da ciro78
il tuo code mi da moolti errori l'hai provato?

funziona disegnando sulla form una textbox con indice 0

[Alethesnake]

Originariamente inviato da ciro78
il tuo code mi da moolti errori l'hai provato?


grazie per aver partecipato alla prossima

si, l'ho provato giusto prima di postarlo e funzionava.

come dice anche MMarzia, hai inserito nella form un textbox a design time con index = 0 prima di provarlo?

[ciro78]

si grazie funziona me lo potresti anche spiegare....non mi è tutto kiaro
grazie ancora

[Alethesnake]

Originariamente inviato da ciro78
si grazie funziona me lo potresti anche spiegare....non mi è tutto kiaro
grazie ancora

beh, non c'è molto da spiegare, sono poche righe.

Private Sub Form_Load()
     
    'la prima textbox esiste già in quanto è stata creata a design time, 
    'quindi occorre solo renderla visibile (se non la è) e posizionarla
    Me.Text1(0).Visible = True
    Me.Text1(0).Move 200, 100
    
    'il ciclo è solo di esempio, è il modo più veloce che mi è venuto in mente 
    'per creare una serie di altre textbox (altre 5)
    For i = 1 To 5
        'carico la textbox nella form
        Load Text1(i)
        
        'la posiziono sotto quelle già presenti
        With Text1(i)
            .Move 200, (600 * i + 100)
            .Visible = True
        End With
    
    Next i
End Sub

se c'è qualcosa che ti interessa in particolare fammi sapere.
ciao