[RESOLVED] For each control next loop

[adshocker]

hi all,

i was trying to find a way to clear multiple textboxes.text in my form.

i found out about this code and tried it but having problems tracing textboxes only.

    Private Sub Clear_Fields(ByVal CForm As Form)
        Dim CControl As System.Windows.Forms.Control
        Dim tb As System.Windows.Forms.TextBox
        For Each CControl In CForm.Controls
            CControl.Text = ""
        Next
    End Sub

unfortunately this code erases all text not only textboxes so i tried this

    Private Sub Clear_Fields(ByVal CForm As Form)
        Dim CControl As System.Windows.Forms.Control
        Dim tb As System.Windows.Forms.TextBox
        For Each CControl In CForm.Controls
            If CControl.GetType Is tb.GetType Then
            CControl.Text = ""
            End If
        Next
    End Sub

this doesn't do anything unfortunately...

so then i tried this

    Private Sub Clear_Fields(ByVal CForm As Form)
        Dim tb As System.Windows.Forms.TextBox
        For Each tb In CForm.Controls
            tb.Text = ""
        Next
    End Sub

it didnt work as well so im out of ideas right now... any suggestions?
thanks.

[nmadd]

Hi there,
For all of the controls that are directly on your form:

        For Each ctl As Control In Me.Controls
            If TypeOf ctl Is TextBox Then
                ctl.Text = String.Empty
            End If
        Next ctl

[sparrow1]

hi all,

i was trying to find a way to clear multiple textboxes.text in my form.

i found out about this code and tried it but having problems tracing textboxes only.

    Private Sub Clear_Fields(ByVal CForm As Form)
        Dim CControl As System.Windows.Forms.Control
        Dim tb As System.Windows.Forms.TextBox
        For Each CControl In CForm.Controls
            CControl.Text = ""
        Next
    End Sub

unfortunately this code erases all text not only textboxes so i tried this

    Private Sub Clear_Fields(ByVal CForm As Form)
        Dim CControl As System.Windows.Forms.Control
        Dim tb As System.Windows.Forms.TextBox
        For Each CControl In CForm.Controls
            If CControl.GetType Is tb.GetType Then
            CControl.Text = ""
            End If
        Next
    End Sub

this doesn't do anything unfortunately...

so then i tried this

    Private Sub Clear_Fields(ByVal CForm As Form)
        Dim tb As System.Windows.Forms.TextBox
        For Each tb In CForm.Controls
            tb.Text = ""
        Next
    End Sub

it didnt work as well so im out of ideas right now... any suggestions?
thanks.

Hi,

You should do this:

For each Tb In Me.Controls
If tb Is TextBox then
tb.Text=""
End If 
Next

Hope it helps,

sparrow1

[adshocker]

thanks... both suggestions worked.

[nmadd]

Glad to help.

Note that those are only for TextBoxes right on your form. If you have TextBoxes in containers that you want to clear, you'll need to do it a little differently.

        Dim ctl As Control = Me.GetNextControl(Me, True)
        Do Until ctl Is Nothing
            If TypeOf ctl Is TextBox Then
                ctl.Text = String.Empty
            End If

            ctl = Me.GetNextControl(ctl, True)
        Loop

And don't forget to mark the thread resolved.

[sparrow1]

thanks... both suggestions worked.

Hi,

Mark your thread as resolved then.

Wkr,

sparrow1