Clearing textboxes 1

[brews]

Would like to iterate through a bunch of text boxes and clear them. So far this

    Private Sub NewRecord()
        For Each ctrl As Control In GroupBox1.Controls
            If TypeOf ctrl Is TextBox Then
                CType(ctrl, TextBox).Text = ""
            End If
        Next
    End Sub

passes over the Ctype expression.

 

[ousoonerjoe]

This may not be the best way to get there, but has worked well for us so far:

	Public Sub ClearForm(ByRef frm As Control)
		Try
			For Each c As Control In frm.Controls
				If c.HasChildren Then
					ClearForm(c)
				Else
					Select Case frm.GetType.Name
						Case "DataGridView"
							CType(frm, DataGridView).DataSource = Nothing
							CType(frm, DataGridView).Rows.Clear()
						Case Else
							Select Case c.GetType.Name
								Case "TextBox", "RichtextBox", "MaskedTextBox"
									c.Text = String.Empty
								Case "DateTimePicker"
									CType(c, DateTimePicker).Value = DateAdd(DateInterval.Day, -1, Now())
								Case "NumericUpDown"
									CType(c, NumericUpDown).Value = 0
								Case "RadioButton"
									CType(c, RadioButton).Checked = False
								Case "CheckBox"
									CType(c, CheckBox).Checked = False
								Case "ComboBox"
									'CType(c, ComboBox).Text = String.Empty
									CType(c, ComboBox).SelectedValue = 0
								Case "DataGridView"
									CType(c, DataGridView).DataSource = Nothing
									CType(c, DataGridView).Rows.Clear()
									'Case "Label", "Button"
									'	'do nothing
									'Case Else
									'	Application.DoEvents()
							End Select
					End Select
				End If
			Next
		Catch Ex As Exception
			Ex.Source = System.Reflection.MethodBase.GetCurrentMethod.Name
			ErrorLog(Err.Number, Err.Description, "ModGlobal", Ex.Source, Err.Erl)
		End Try
	End Sub

Simply pass the form or container (in your case a GroupBox) as the parameter for the procedure.

--------------------------------------------------
“Crash programs fail because they are based on the theory that, with nine women pregnant, you can get a baby a month.” --Wernher von Braun
--------------------------------------------------