ResetControls – Reset the value for the input array of controls

ResetControls – Reset the value for the input array of controls

' Resets the value for the input array of controls, and thier child controls' Example:'   - reset all the controls on the form: ResetControls(Me)'   - reset specific controls: ResetControls(TextBox1, CheckBox1, GroupBox1)Sub ResetControls(ByVal ParamArray ctls() As Control)    ' clear input control    Dim ctl As Control    For Each ctl In ctls        If TypeOf (ctl) Is TextBoxBase Then            CType(ctl, TextBoxBase).Text = ""        ElseIf TypeOf (ctl) Is CheckBox Then            CType(ctl, CheckBox).Checked = False        ElseIf TypeOf (ctl) Is RadioButton Then            CType(ctl, RadioButton).Checked = False        ElseIf TypeOf (ctl) Is ListView Then            CType(ctl, ListView).Items.Clear()        ElseIf TypeOf (ctl) Is TreeView Then            CType(ctl, TreeView).Nodes.Clear()        ElseIf TypeOf (ctl) Is ListBox Then            CType(ctl, ListBox).Items.Clear()        ElseIf TypeOf (ctl) Is ComboBox Then            CType(ctl, ComboBox).Items.Clear()            CType(ctl, ComboBox).Text = ""            ' Note: to add support for more controls just add more ElseIf blocks        End If        ' clear all child controls, if any        Dim c As Control        For Each c In ctl.Controls            ResetControls(c)        Next    NextEnd Sub

See also  5 Tips to Manage a Remote Workforce

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist