0

Tengo el siguiente código para limpiar los controles de un formulario, éstos estaban agrupados por GroupBox y antes me funcionaba perfecto, ahora tuve que añadir un panel para controlar mejor mi formulario y este código ya no me hace la tarea que requiero, alguna sugerencia?

Public Sub limpiarControles()
    Dim ctrl As Control
    Dim ctrlHijo As Control

    For Each ctrl In Me.Controls
        If TypeOf ctrl Is TextBox Then
            ctrl.Text = ""               
        ElseIf ctrl.HasChildren Then     
            For Each ctrlHijo In ctrl.Controls
                If TypeOf ctrlHijo Is TextBox Then
                     ctrlHijo.Text = ""                        
                End If
            Next
        End If
    Next
3
  • 3
    Cambia Me.Controls por ID_PANEL.Controls el 6 nov. 2018 a las 21:58
  • Gracias, ha funcionado!
    – ssdev
    el 6 nov. 2018 a las 22:26
  • De nada amigo éxito con tu proyecto. el 6 nov. 2018 a las 22:40

1 respuesta 1

0

Prueba esto para hacer una repasada para que así no falle hasta no dejar ni un texto...

Public Function existenControles() As Boolean
    existenControles = false
    On Error Resume Next
    Dim ctrl As Control
    Dim ctrlHijo As Control

    For Each ctrl In Me.Controls
        If TypeOf ctrl Is TextBox Then
           existenControles = true 
           Exit Function                
        Else
            If ctrl.HasChildren Then     
             For Each ctrlHijo In ctrl.Controls
                If TypeOf ctrlHijo Is TextBox Then
                     existenControles = true 
                     Exit Function
                End If
             Next
            End If
        End If
    Next
End Function



Public Sub limpiarControles()
  On Error Resume Next
  Dim ctrl As Control
  Dim ctrlHijo As Control

  Do Until (existenControles = True)
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is TextBox Then
            ctrl.Text = ""               
        Else
            If ctrl.HasChildren Then     
             For Each ctrlHijo In ctrl.Controls
                If TypeOf ctrlHijo Is TextBox Then
                     ctrlHijo.Text = ""                        
                End If
             Next
            End If
        End If
    Next
  Loop
End Sub

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.