Funzion Controls di vb

[piter123]

un saluto a tutti.

controls("text" & X).text=

questo è il sistema per usare la funzione controls con ad esempio l'oggetto text

ma se avessi 3 form che si chiamano form1, form2,form3 e ogni una di esse contenesse una text1 e volessi creare un ciclo per aggiornare la text con lo stesso parametro mi verrebbe da fare

for i=1 to 3
controls("form" & i).text1.text=
next i

ma sembra che la funzione controls non funzioni con le form, sbaglio io in qualcosa o esiste un'alternativa ?

Grazie

[Anthony47]

In VBA avrei fatto tramite

Codice: Seleziona tutto

For I = 0 To UserForms.Count - 1
UserForms(I).TextBox1.Text = "Il mio testo"
Next I

Trattandosi di VB trasferirei da Applicazioni Office alla sezione Programmazione, dove dovresti trovare maggiore competenza.

Ciao.

[piter123]

e se le form incece di chiamarsi form1,form2,form3 si chiamano dde_1,dde_2 e dde_3 ?

Come al solito, mille grazie

[piter123]

Scusa ancora le form non sono in vb di excel ma in vb6.
Ciao

[piter123]

risolto con la funzione set

Codice: Seleziona tutto

dim newform(2) as form

set newform(0)=form1
set newform(1)=form2
set newform(2)=form3

for i=1 to 3
newform(i).text1.text=
next i

[piter123]

scusate corretto

Codice: Seleziona tutto

dim newform(2) as form

set newform(0)=form1
set newform(1)=form2
set newform(2)=form3

for i=0 to 2
newform(i).text1.text=
next i