Aporte controles enabled / isabled

[rikakashi]

El dia de ayer me encontre con un problema que consistia en muchas lineas de codigo declaradas para cada uno de mis controles en un windows form y buscando encontre un metodo para limpiar todos los textbox de un form sin embargo me vi en el problema de que solo me funcionaba en los controles en el form y no en los que se encontraban dentro de contenedores y hoy aprendi que cada contenedor tiene sus controles independientes y si alguien tiene una estructura similar en su form esto les ayudara sin duda alguna.

Código vb:

Dim c As Control
        Dim g As Control
        Dim p As Control
 
        For Each p In TabPage1.Controls
            If TypeOf p Is Panel Then
                For Each g In p.Controls
                    If TypeOf g Is GroupBox Then
                        For Each c In g.Controls
                            If TypeOf c Is TextBox Then
                                c.Enabled = True
                            ElseIf TypeOf c Is ComboBox Then
                                c.Enabled = True
                            ElseIf TypeOf c Is CheckBox Then
                                c.Enabled = True
                            End If
                        Next
                    End If
                Next
            End If
        Next
 

como verán hago mi recorrido de controles por contenedor... yo los tengo en un tabcontrol así que comencé con mi tabpage1 después en los panel dentro de este y los groupbox dentro de este y los controles.

[Aquaventus]

Hola rikakashi, esto iría en las faqs. Saludos!.

[rikakashi]

Iniciado por Aquaventus

Hola rikakashi, esto iría en las [URL="http://www.forosdelweb.com/f29/faq-s-del-foro-net-206048/"]faqs[/URL]. Saludos!.

me podrias explicar como hacerlo por favor!?

[Aquaventus]

que cada vez que quieras hacer un aporte dirigete a la seccion FAQ'S .NET y alli crea tu aporte en vez de hacerlo directamente al hilo de .Net

[rikakashi]

Iniciado por Aquaventus

que cada vez que quieras hacer un aporte dirigete a la seccion [URL="http://www.forosdelweb.com/f29/faq-s-del-foro-net-206048/"]FAQ'S .NET[/URL] y alli crea tu aporte en vez de hacerlo directamente al hilo de .Net

listo ya esta en los faq's

saludos!!

[HaverRamirez]

Tu codigo se puede mejorar

Código vb:

''La llamada
For Each ctrl As Control In ObténControlesSecundarios(Me)
            If Ctype(ctrl is TextBox) orElse ctype(ctrl is combobox) etc... Then
                ctrl.text = nothing
            End If
Next
        
''El procedimiento 
Private Function ObtenControlesSecundarios(ByVal parent As Control) As ArrayList
        Dim resultado As New ArrayList()
        For Each ctrl As Control In parent.Controls
            ' Agregue este control al resultado.
            resultado.Add(ctrl)
            ' Llama recursivamente a este método para agregar también todos los controles secundarios.
            resultado.AddRange(ObténControlesSecundarios(ctrl))
        Next
        Return resultado
End Function
 

o en lambda

Código vb:

si no estoy mal tambien en lambda
 
 
For Each ctrl As Control In ObténControlesSecundarios(
                                        Function ObtenControlesSecundarios(ByVal parent As Control) As ArrayList
                                        Dim resultado As New ArrayList()
                                        For Each ctrl As Control In parent.Controls
                                                ' Agregue este control al resultado.
                                                resultado.Add(ctrl)
                                                ' Llama recursivamente a este método para agregar también todos los controles secundarios.
                                                resultado.AddRange(ObténControlesSecundarios(ctrl))
                                            Next
                                            Return resultado
                                        End Function)
 
 
            If Ctype(ctrl is TextBox) orElse ctype(ctrl is combobox) etc... Then
                ctrl.text = nothing
            End If
Next
 

[rikakashi]

Iniciado por HaverRamirez

Tu codigo se puede mejorar

Código vb:

''La llamada
For Each ctrl As Control In ObténControlesSecundarios(Me)
            If Ctype(ctrl is TextBox) orElse ctype(ctrl is combobox) etc... Then
                ctrl.text = nothing
            End If
Next
        
''El procedimiento 
Private Function ObtenControlesSecundarios(ByVal parent As Control) As ArrayList
        Dim resultado As New ArrayList()
        For Each ctrl As Control In parent.Controls
            ' Agregue este control al resultado.
            resultado.Add(ctrl)
            ' Llama recursivamente a este método para agregar también todos los controles secundarios.
            resultado.AddRange(ObténControlesSecundarios(ctrl))
        Next
        Return resultado
End Function
 

o en lambda

Código vb:

si no estoy mal tambien en lambda
 
 
For Each ctrl As Control In ObténControlesSecundarios(
                                        Function ObtenControlesSecundarios(ByVal parent As Control) As ArrayList
                                        Dim resultado As New ArrayList()
                                        For Each ctrl As Control In parent.Controls
                                                ' Agregue este control al resultado.
                                                resultado.Add(ctrl)
                                                ' Llama recursivamente a este método para agregar también todos los controles secundarios.
                                                resultado.AddRange(ObténControlesSecundarios(ctrl))
                                            Next
                                            Return resultado
                                        End Function)
 
 
            If Ctype(ctrl is TextBox) orElse ctype(ctrl is combobox) etc... Then
                ctrl.text = nothing
            End If
Next
 

no me funcionan!

[HaverRamirez]

ok, ok , cuando llamas al primer formulario le mandas el form

ObténControlesSecundarios(Form1)

[Aquaventus]

Señores las faqs no son temas para discusion, si van a colocar su aporte haganlo verificando que sea correcto lo que ponen. pero no lo toquen para hacer comentarios. Gracias.

[HaverRamirez]

MMMMM, esta bien, pero existe algo, que tal si el codigo se puede mejorar, entonces, es un buen recurzo, aparte de, puede que sirva de ejemplo para extender codigos posteriores, entonces se cumple el cometido del FAQ?, porque este no es un FAQ, es un post, y en el FAQ, coloque el codigo optimizado y su segunda version que incluye lamba, entonces, donde se infrige una regla? a y para Rikakashi el segundo que puse de ejemplo como lamba tiene que ser en Visual Studio 2008 o posterior

[Aquaventus]

Hola HaverRamirez, andas bien, pero te diste el lujo de leer el 1er mensaje del moderador en las FAQ'S? Colocar Tema,Pregunta,Respuesta, para que lo que pongas tenga validez y no sea solo un codigo puesto sin algun argumento y tratar de especificar todo asi como lo que mencionas ahora. Tratemos de dar orden al foro

[HaverRamirez]

Listo, ya lo coloque, se me olvido marcar el metodo como extension en el FAQ...y me parecio que, por ser de las misma naturaleza del anterior era valida, ahora la de lamba esa si no, pero igual ya lo coloque...

[Aquaventus]

Excelente compañero HaverRamirez! Te doy karma por tus aportes aqui en el foro y tu ayuda constante!. Saludos!.

[rikakashi]

solo para confirmar el código para mejorar el mio me lleva al mismo problema que con el mio al principio... solo contenedores independientes... bueno así es como me lo arroja así que me quede con el mio. saludos!!!

[HaverRamirez]

esta linea es la que asegura que se vuelva a ejecutar la recursion con el control siguiente

resultado.AddRange(ObténControlesSecundarios(ctrl) )
y si funciona porque yo la uso en un formulario padre que hereda estas propiedades a los hijos...
y para muestra un boton, te dejo el codigo de ejemplo que viene con el libro de Programación Avanzada Visual Basic de Francisco Ballena

http://www.mediafire.com/?9ugxg2283yyts4g