Visual Basic Foro

Hola compañeros, como estan?

Aqui compartiendo un pequeño fragmento de codigo, que en lo personal me es de mucha utilidad.

Lo que hace es recorrer los control en el contenedor y limpia los textbox en n contenedores.


    Sub Limpiar(ByRef Contenedor As Control.ControlCollection)

        Dim tmp As Control
        For Each tmp In Contenedor
            If tmp.GetType Is GetType(GroupBox) Then
                Limpiar(DirectCast(tmp, GroupBox).Controls)
            ElseIf tmp.GetType Is GetType(Panel) Then
                Limpiar(DirectCast(tmp, Panel).Controls)
            ElseIf tmp.GetType Is GetType(FlowLayoutPanel) Then
                Limpiar(DirectCast(tmp, FlowLayoutPanel).Controls)
            ElseIf tmp.GetType Is GetType(TableLayoutPanel) Then
                Limpiar(DirectCast(tmp, TableLayoutPanel).Controls)
            ElseIf tmp.GetType Is GetType(SplitContainer) Then
                Limpiar(DirectCast(tmp, SplitContainer).Controls)
            ElseIf tmp.GetType Is GetType(TabControl) Then
                Limpiar(DirectCast(tmp, TabControl).Controls)
            ElseIf tmp.GetType Is GetType(TabPage) Then
                Limpiar(DirectCast(tmp, TabPage).Controls)
            Else
                'TextBox, aunque puede ser cualquier otro control.
                If TypeOf tmp Is TextBox Then
                    DirectCast(tmp, TextBox).Clear()
                End If
            End If
        Next
    End Sub

Y para implementarlos se llama de la siguiente manera.

    Private Sub btnPrueba_Click(sender As System.Object, e As System.EventArgs) Handles btnPrueba.Click
        Limpiar(Me.Controls)
        ' o puede ser el contenedor que deseen, para este caso limpio todos los textbox contenido en un form
    End Sub

Espero que le sea de ayuda a alguien.

Salu2.

Gracias bro!!! me es de mucha utilidad, para un proyecto.

Saludos y muchos existos.

Gracias!!!! grande Yvan, te lo agradesco mucho.

Salu2.

Seee, el segundo control seria fantastico si se tuviera en vb6.....

Muy buen dato, no sabia nada de como funcionaba los CAPTCHA.

Salu2.

Estimados amigos del foro

Pasa que estoy usando un laptop para trabajar, pero grande fue mi sorpresa cuando quise depurar un proyecto en el que estoy trabajando, presione el boton ctrl y cuando quise presionar el boton break o pausa, me doy cuenta no que tengo dicha tecla, la consulta es si hay alguna otra manera de poder realizar una pausa para poder depurar y que no se usando puntos de iterrupcion, ahora el mismo problema tendre con .net, por favor si a alguien le ha pasado lo mismo, como podria solucionarlo.

De antemano gracias por su tiempo.

Salu2.

Hola Yvan, gracias por responder tan rapido, y aclarar mis dudas. Ahora tengo mas claro que debo.

Salu2.