Visual Basic - Cómo recorrer todos los textbox de un formulario ?

Life is soft - evento anual de software empresarial
 
Vista:

Cómo recorrer todos los textbox de un formulario ?

Publicado por Rubs (1 intervención) el 05/06/2004 23:03:11
Necesito recorrer todos los textbox de un formulario, quiero utilizar el ciclo FOR EACH IN .... NEXT, pero no me sé los nombres de las colecciones.

alguien me puede ayudar
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cómo recorrer todos los textbox de un formulari

Publicado por jimmy (Hymen_sys) (39 intervenciones) el 06/06/2004 06:41:34
hola loco es facil
haces esto

Dim ObjControl As Control
For Each ObjControl In nForm.Controls
If TypeOf ObjControl Is TextBox And Txt Then
debug.print ObjControl.name
end if

next


espero qeu te ayude este codigo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de RAUL
Val: 2
Ha aumentado su posición en 97 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Cómo recorrer todos los textbox de un formulari

Publicado por RAUL (443 intervenciones) el 07/06/2004 01:48:38
otra opcion es crear un formulario con text box como array de controles osea que manejen un index es decir text(index).text="XXXXXX" y usar la estructura For I=1 to NumText
text(I).text=la seceuncaiq eu sea para cada text
y luego aal final un>
Next I
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de RAUL
Val: 2
Ha aumentado su posición en 97 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Cómo recorrer todos los textbox de un formulari

Publicado por RAUL (443 intervenciones) el 07/06/2004 01:49:31
otra opcion es crear un formulario con text box como array de controles osea que manejen un index es decir text(index).text="XXXXXX" y usar la estructura For I=1 to NumText
text(I).text=la seceuncaiq eu sea para cada text
y luego aal final un>
Next I
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar