Limpiar Groupbox
Publicado por cristian (29 intervenciones) el 22/03/2008 21:36:24
Hola quiero ver si alguien me puede ayudar: tengo un gruopbox con textbox y combobox.
Con el codigo que tengo solo me limpia los textbox, sin limpiar los combobox.
Este es el codigo que tengo hasta el momento:
Private Sub Limpiar(ByVal Grupo As GroupBox, ByVal tipo As String)
Dim miControl As Object
For Each miControl In Grupo.Controls
If tipo = "CT" Then
If miControl.GetType Is GetType(System.Windows.Forms.TextBox) Then
miControl.Clear()
End If
End If
Application.DoEvents()
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Limpiar(Me.GroupBox1, "CT")
End Sub
Saludos
Cristian
Con el codigo que tengo solo me limpia los textbox, sin limpiar los combobox.
Este es el codigo que tengo hasta el momento:
Private Sub Limpiar(ByVal Grupo As GroupBox, ByVal tipo As String)
Dim miControl As Object
For Each miControl In Grupo.Controls
If tipo = "CT" Then
If miControl.GetType Is GetType(System.Windows.Forms.TextBox) Then
miControl.Clear()
End If
End If
Application.DoEvents()
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Limpiar(Me.GroupBox1, "CT")
End Sub
Saludos
Cristian
Valora esta pregunta


0