[VB.NET] Creare un ciclo

[marco.santilli]

Devo stampare un foglio dove ci sono molti controlli tutti rinominati in ordine crescente

ad esempio: txtNome01 - txtNome02 - txtNome03 - txtNome04

E cosi via dicendo. in pratica devo riempire un foglio prestampato con dei dati

io volevo creare una ciclo che da solo mi modificava il nome della txt in questione

ad esempio

dim i as integer
i= "1"

(txtnome & i).text = "........valore"

poi incremetare di uno

i = i + 1

mi dite la sinstassi corretta di questa riga:


(txtnome & i).text = "........valore"

devo creare una parte fissa (txtnome) e la parte variabile.

come posso fare??????

Ciao e grazieeeeeee

P.S.: Auguri di Buon Natale!!!!

[MItaly]

Be', devi scorrere la collection Me.Controls con un For Each e cerare il controllo che ti interessa...

[marco.santilli]

Ti faccio un esempio

dichiaro il mio report

dim report as new stampafoglio

report.txtNome1.text = "Valore"
report.txtNome2.text = "Valore"
report.txtNome3.text = "Valore"
report.txtNome4.text = "Valore"
report.txtNome5.text = "Valore"
report.txtNome6.text = "Valore"
.
.
.
report.txtNome60.text = "Valore"


non volevo farlo a mano
quindi cercavo un qualcosa per sostituire il numero txtnome con un contatore che incrementavo

solo che se scrivo

report.txtNome & "i".text = "Valore"
cosi scritta la sintassi è sbagliata

qualcuno sa dirmi come creare questa stringa????

ciao e grazieeeeeeeee

[marco.santilli]

Originariamente inviato da MItaly
Be', devi scorrere la collection Me.Controls con un For Each e cerare il controllo che ti interessa...

Come faccio per farla scorrere?????

Ciao e grazieeeeeeee

[MItaly]

Dim ctrl As Control
For Each ctrl In Me.Controls
    If ctrl.Name.StartsWith("txtNome") AndAlso TypeOf ctrl Is TextBox Then
        DirectCast(ctrl,TextBox).Text = "Valore"
    End If
Next