Recorrer todos los controles de un form

09/07/2006 - 15:40 por C a r l o s A n t o n i o | Informe spam
Muy buen dia,

Quiero una rutina que vacíe todos los text boxes que estan en un form.
Algunos text boxes estan dentro de varios group boxes. Escribi este codigo
para tratar de accederlos todos, pero no logro hacer que acceda los
textboxes que estan dentro del group box. ¿que estoy haciendo mal?

Adjunto el código:

Dim ctl As Control
Dim ctl2 As Control

For Each ctl In Controls
If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
ctl.Text = ""
Else
If TypeOf ctl Is GroupBox Then
For Each ctl2 In ctl.Controls
If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
' aqui es donde falla...
ctl.Text = ""
End If
Next
End If
End If
Next

Gracias a todos por su syuda.

Preguntas similare

Leer las respuestas

#1 C a r l o s A n t o n i o
09/07/2006 - 15:54 | Informe spam
Ooopsss!

Problema resutelto. error en las variables Gracias.


Dim ctl As Control
Dim ctl2 As Control

For Each ctl In Controls
If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
ctl.Text = ""
Else
If TypeOf ctl Is GroupBox Then
For Each ctl2 In ctl.Controls
If TypeOf ctl2 Is TextBox Or TypeOf ctl Is ComboBox Then
ctl2.Text = ""
End If
Next
End If
End If
Next



"C a r l o s A n t o n i o" <carlvazpr?arroba¿yahoo.com> wrote in message
news:%23VdE$
Muy buen dia,

Quiero una rutina que vacíe todos los text boxes que estan en un form.
Algunos text boxes estan dentro de varios group boxes. Escribi este
codigo para tratar de accederlos todos, pero no logro hacer que acceda los
textboxes que estan dentro del group box. ¿que estoy haciendo mal?

Adjunto el código:

Dim ctl As Control
Dim ctl2 As Control

For Each ctl In Controls
If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
ctl.Text = ""
Else
If TypeOf ctl Is GroupBox Then
For Each ctl2 In ctl.Controls
If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
' aqui es donde falla...
ctl.Text = ""
End If
Next
End If
End If
Next

Gracias a todos por su syuda.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida