Function to Clear all controls from windows form

  • Private Sub clearInformation(ByVal p As Control)

    For Each ctrl As Control In p.Controls
    If TypeOf ctrl Is Panel Or TypeOf ctrl Is GroupBox Or TypeOf ctrl Is TabControl Then

    clearInformation(ctrl)


    ElseIf TypeOf ctrl Is TextBox Then
    DirectCast(ctrl, TextBox).Text = String.Empty
    ElseIf TypeOf ctrl Is ComboBox Then

    Dim combo As ComboBox = TryCast(ctrl, ComboBox)


    If combo.DropDownStyle = ComboBoxStyle.DropDownList Then
    combo.SelectedIndex = 0
    Else

    combo.Text = String.Empty


    End If
    End If

    Next


    End Sub

Howdy, Stranger!

It looks like you're new here. If you want to get involved, or you want to Ask a new Question, Please Login or Create a new Account by Clicking below

Login with Facebook

Popular Posts of the Week