Limpiar TextBoxes. Como mejorarlo?

[yvancho]

Hola amigos.

Programe un boton q limpie los textboxes del form de una manera rapida, pero desearia implementarla y mejorarla. Se me ocurre lo sgte.: Que por cada TextBox q encuentre en el Form, lo limpie. Lo malo es q no encuentro la manera de hacerlo. ¿como evaluar si lo q encuentra en el Form es un TextBox? y de esa manera, cada q encuentre uno, lo limpie. Por ahi va mi problema.

La manera actual que lo hago es con el codigo sgte:

1. En la clase Utiles, tengo el método al cual se va a llamar para limpiar los TextBoxes, ingresando como parametro el TextBox que se quiera limpiar.
   
   
   Código:

   Public Class Utiles
        Public Sub limpiar(ByVal caja As TextBox)
           caja.Text = ""
        End Sub
   End Class
   

2. En la programacion del Form, kreo una inastancia global de la clase Utiles, y nombro al objeto como 'usar'
   
   
   Código:

   Dim usar As New Utiles
   

3. Y por ultimo manualmente le mando tooodooos los txt habidos y por haber.

Código:

Private Sub btnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLimpiar.Click

        usar.limpiar(txtEC01)
        usar.limpiar(txtEC02)
        usar.limpiar(txtEC03)
        usar.limpiar(txtEC04)
        usar.limpiar(txtExParcial)
        usar.limpiar(txtExFinal)
        usar.limpiar(txtNotaAct)
        usar.limpiar(txtPromFinal)

    End Sub

Justo esta ultima parte es la que quisiera mejorar, porque imaginense q tuvieramos como 20 o exagerando mas de 50 TextBox. No seria demasiado trabajoso limpiar todos de esta manera?

Gracias por su tiempo, y esperando pronta respuesta

Atte.

Yvancho

[Aquaventus]

Hola yvancho este codigo sirve para limpiar "TODOS" los controles que sean textbox , tambien puedes controlar diferentes controles ya dependiendo tu logica :

Este es el metodo

Código vb.net:

Private Sub Limpiar_Textbox(ByVal f As Form)
        ' recorrer todos los controles del formulario indicado   
        For Each c As Control In f.Controls
            If TypeOf c Is TextBox Then
                c.Text = "0" ' eliminar el texto   
            End If
            If TypeOf c Is Label Then
                c.Text = "0" ' eliminar el texto   
            End If
        Next
End Sub
 

y lo llamas de esta manera como por ejemplo al presionar un boton :

Código vb.net:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         'OJO QUE AQUI LE PASO EL FORMULARIO DEL CUAL DESEO
         'LIMPIAR SUS CONTROLES, EN ESTE CASO LE PONGO ME
         'DEL FORMULARIO ACTUAL
        Limpiar_Textbox(Me)
End Sub
 

Espero te sea de utilidad. Saludos!

[yvancho]

Hola nuevamente Aquaventus.

Pues muchas gracias! si me sirve de mucho! empezare a implementar mas cosas

Gracias Mil!

[Aquaventus]

De nada estamos aqui para ayudar. cdt y Saludos!.

[elpaisa]

quedaria mejor si le pones asi

txttexto.clear()

deja limpio el texto