Limpia cajas de texto

"Hugo Gsell" escribió:

El problema es que mis text estan (en un form en particular) en u
GroupBox... y a los elementos dentro del GroupBox el for each c...
no los recorre.

Hola, Hugo:

El control «GroupBox» dispone de una colección «Controls», la cual puedes
recorrerla para limpiar el texto de los controles TextBox:

Public Sub LimpiaCajasGroupBox(ByVal gb As GroupBox)

Dim ctl As Control

For Each ctl In gb.Controls
If TypeOf ctl Is TextBox Then
ctl.Text = ""
End If
Next

End Sub

Simplemente, llamarías al procedimiento de la siguiente manera:

LimpiaCajasGroupBox(Me.GroupBox1)

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Tambien puede hacerse una funcion recursiva que limpie todos los TextBox:

Public Sub LimpiaCajas(ByVal ctrlPadre As Control)

For Each ctrl As Control In ctrlPadre.Controls

If TypeOf ctl Is TextBox Then
ctrl.Text = ""
Else
LimpiaCajas(ctrl)
End If

Next

End Sub

Y entonces lo llamarias con:

LimpiaCajas(Me) ' El formulario tambien es un Control!

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
http://mvp.support.microsoft.com/pr...4EF5A4191C

"Eduardo A. Morcillo [MS MVP VB]" escribió:

Tambien puede hacerse una funcion recursiva que limpie todos
los TextBox:

Hola, Eduardo:

Por supuesto que se puede hacer también, verificando si el contenido de la
variable «ctrl» es del tipo «TextBox». :-)

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.