FAQ´S del foro de Net

[HaverRamirez]

Tema lambda extensión codigo anterior
Pregunta Recursión
Respuesta Simplificación de codigo

Código vb:

''La llamada
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