[2005] Loop Tp Clear Controls In A SplitContainer

[maps]

How to you clear values in controls in a SplitContainer using a loop?
Anyone tried it!

[shakti5385]

Did not use the spliter control but I make a user control that clear all the data on the form, Check it at my signature user control for clear all form control.

[ComputerJy]

Try this

Me.SplitContainer1.Panel1.Controls.Clear()
        Me.SplitContainer1.Panel2.Controls.Clear()

[maps]

Thanks, but in a loop to clear the common windows forms controls.

[maps]

i have been using the code below but it doesn't work when the controls are in a splitContainer. How can this be modified.

Public Sub ClearForm(ByVal myForm As Form)
        'Gets the first control on the form(me) in the tab order(doesnt matter whether Tab Order is Set To False). 
        'Dim myForm As New Form
        Dim ctrl As Control = myForm.GetNextControl(myForm, True)
        Do Until ctrl Is Nothing
            If TypeOf ctrl Is TextBox Then
                ctrl.Text = ""
            ElseIf TypeOf ctrl Is ComboBox Then
                ctrl.Text = ""
            End If
            'Get the next control in the tab order.
            ctrl = myForm.GetNextControl(ctrl, True)
        Loop
 
    End Sub

[maps]

shakti5385, your control does not work too, if the controls are in a splitContainer.

[ComputerJy]

Dim ctrl As Control = myForm.GetNextControl(myForm, True)

This will not look for controls within Containers

[maps]

so....is there a way through container controls?

[shakti5385]

shakti5385, your control does not work too, if the controls are in a splitContainer.

Ok I will check It. Thanks

[penagate]

You could try something like this:

Private Sub ClearChildControls(parent_control As IContainerControl)
  For Each child_control As Control In parent_control
    If (child_control.GetType().GetInterface("IContainerControl")) Then
      ClearChildControls(child_control)
    Else
      If (TypeOf child_control Is TextBox) Then _
        child_control.Text = String.Empty
    End If
  Next
End Sub

[maps]

Thanks, but there is an error on the for each statement...at parent_control
Expression is of type System.Windows.forms.IContainerControl which is not a collectiontype.

[maps]

**Bump**

[WayneSpangler]

Try this. Works for me.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ctrl As Control = SplitContainer1.GetNextControl(ctrl, True)
        Do Until ctrl Is Nothing
            If TypeOf ctrl Is TextBox Then
                ctrl.Text = ""
            ElseIf TypeOf ctrl Is ComboBox Then
                ctrl.Text = ""
            End If
            'Get the next control in the tab order.
            ctrl = SplitContainer1.GetNextControl(ctrl, True)
        Loop
 
    End Sub

[maps]

Thanks WayneSpangler, that does the trick.
But this needs to be
Dim ctrl As Control = SplitContainer1.GetNextControl(SplitContainer1, True)