Concatenar propiedad de objeto con entero

[tipsy]

Tengo el siguiente codigo:

Text1.Backcolor = &HC000&
Text2.Backcolor = &HC000&
Text3.Backcolor = &HC000&
Text4.Backcolor = &HC000&

Sigue asi hasta 54, se ve bastante novato echo de esta manera quisiera saber si existe alguna forma de hacer esto concatenando "Text" + "numero" , lo hice con "+", con "&" usando un for de 1 a 54 de esta forma

For a = 1 to 54
Text + a.Backcolor = &HC000&
Next a

me da error

Tambien lo hice asi:
For a = 1 to 54
Text + CStr(a).Backcolor = &HC000&
Next a

Tambien me da error.

Esto es para cambiar el fondo de 54 Textbox que tengo en un formulario.
Gracias por quien pueda ayudarme.

[fesero]

para hacer un ciclo FOR deberias indexar los textbox. Para hacerlo de una forma sencilla, ponele a todos los textbox (a esos 54) el mismo nombre, es decir ke los 54 se llamen text1 por ejemplo. Cuando le quieras cambiar el nombre y colocar el mismo, te va a preguntar si queres crear un indice, dale quee si. Vas a notar que si bien el nombre es igual, va a aparecer un par de parentesis con un numero. este numero es el indice o index.
te quedaria de esta forma:
Text1(0).backcolor
Text1(1).backcolor
Text1(2).backcolor
....
Text1(53).backcolor


ahi, y solo recien cuando tengas esto, el ciclo FOR te va a funcionar

FOR a = 0 To 53
Text1(a).backcolor = &HC000&
Next

[KeiDash]

Iniciado por tipsy

Tengo el siguiente codigo:

Text1.Backcolor = &HC000&
Text2.Backcolor = &HC000&
Text3.Backcolor = &HC000&
Text4.Backcolor = &HC000&

Sigue asi hasta 54, se ve bastante novato echo de esta manera quisiera saber si existe alguna forma de hacer esto concatenando "Text" + "numero" , lo hice con "+", con "&" usando un for de 1 a 54 de esta forma

For a = 1 to 54
Text + a.Backcolor = &HC000&
Next a

me da error

Tambien lo hice asi:
For a = 1 to 54
Text + CStr(a).Backcolor = &HC000&
Next a

Tambien me da error.

Esto es para cambiar el fondo de 54 Textbox que tengo en un formulario.
Gracias por quien pueda ayudarme.

Si es en un winForms es mas bonito hacerlo asi, recorriendo los controles del formulario:

Código:

Dim lControl as textBox
    
For Each lControl In Me.Controls
      If TypeOf mCnx Is textBox Then
            lControl.Backcolor =  &HC000&
      End If
Next

[Avellaneda]

Bueno, en el ejemplo que te pone KeiDash debes declarar en la instrucción Dim la variable lControl como Control y no como TextBox:

Código vb6:

Dim lControl As Control  ' <--
 
For Each lControl In Me.Controls
    If TypeOf lControl Is TextBox Then
        lControl.BackColor = &HC000&
    End If
Next
 

[tipsy]

Der verdad muchas gracias no tenia idea de que existian tantas formas diferentes de hacer lo mismo, otra pregunta en el ejemplo que pone KeiDash, como diferencio los 54 textbox en los que tengo que aplicar la funcion, de otros 10 donde no se tiene que aplicar.
Gracias de antemano