Aporte controles enabled / isabled

[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!