' 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
An Easy Way to Learn Web Security
Johannah Lopez
September 21, 2023
The Web Security Academy has recently introduced new educational courses designed to offer a comprehensible and straightforward journey through the intricate realm of web security.
