[SOLUCIONADO] Agregar variable a nombre de caja de texto

[mroblesh06]

Buen día, tengo un dilema.

Ejemplo: Tengo 100 cajas de texto Text1.Text, Text2.text, Text3.Text..........Text100.Text, y las necesito igualar todas a 0, como veran no están en un control de matricez, sino son independientes.

Hago lo siguiente:

for i =1 to 100
Text& i &.Text=0
next i


Quiero concatenar una variable al nombre de la caja "Text" la cual se incrementa con el ciclo.
Lo e intentado de muchas maneras, sin exito.
Gracias por su ayuda :(

[pkj]

A ver asi:

Código vb:

Dim ElControl As Control
  For Each ElControl In Me.Controls
    If Left$(ElControl.Name, 4) = "Text" Then
      ElControl.Text = "0"
    End If
  Next ElControl
 

[mroblesh06]

Gracias pkj exactamente era lo que necesitaba pero podrías explicarme algo

"Me.Controls "
"Left$(ElControl.Name, 4)"

y gracias por la respuesta

[pkj]

Es facil. Controls contiene todos los controles que hayas insertado en el formulario actual (Me).
Igual puedes usar "Form1.Controls".
El otro coge los 4 caracteres de la izquierda del nombre del control al que apunta la variable "ElControl" para ver si empieza con "Text".

Podria aclararlo mejor asi:
Dim ElControl As Control ' creamos una variable de tipo Control

For Each ElControl In Me.Controls ' cada Control que hay en el formulario lo vamos asignando a la variable ElControl para manipularlo

If Left$(ElControl.Name, 4) = "Text" Then ' si los 4 caracteres de la izquierda del nombre del Control son "Text"...

ElControl.Text = "0" ' ....es que es un textbox y le ponemos el valor "0"

End If

Next ElControl ' y pasamos al siguiente control

Saludos

[mroblesh06]

muchas gracias pkj, cada vez se aprende algo nuevo y no savia esas funciones gracias.