Clear Textboxes on forms

[FoxT]

Hello,

How can I clear textboxes on a form other than like this....

txtProductID.Text = ""
txtProductName.Text = ""
txtQtyPerUnit.Text = ""

if I have 225 textboxes on several pageframes in an application this would take forever. Is not there a way to setall textboxes.text = ""?


FoxT

Always lookin' for an easier way!

[dynamic_sysop]

here's one of many ways ...

Dim ctl As Control
        For Each ctl In Controls
            If ctl.GetType.IsAssignableFrom(GetType(TextBox)) Then
                ctl.Text = ""
            End If
        Next

[FoxT]

dynamic_sysop,

That looks like a good way to do this, however it did not work in my app. I'm using the native VB.net textboxes with the text property. Do have have to modify something for this. They do clear when I issue this...

txtProductID.Text = ""
txtProductName.Text = ""
txtQtyPerUnit.Text = ""


FoxT

Always lookin' for an easier way!

[Cander]

Dim ctl As TextBox
        For Each ctl In Me.Controls
                ctl.Text = ""
        Next

[FoxT]

Ok, here is where I am at now.

I cannot get this routine to work on any of my applications...

Dim ctl As TextBox
For Each ctl In Me.Controls
ctl.Text = ""
Next


however I can get this one to work on a regular form...

Dim ctl As Control
For Each ctl In Controls
If ctl.GetType.IsAssignableFrom(GetType(TextBox)) Then
ctl.Text = ""
End If
Next

but what I need is to clear a form with a pageframe. And to clear all textboxes on the different tabs on the pageframe.

Thanks,

FoxT

Always lookin' for an easier way!

[FoxT]

Ok, I have it now.


Dim ctl As Control
For Each ctl In TabPage1.Controls
If ctl.GetType.IsAssignableFrom(GetType(TextBox)) Then
ctl.Text = ""
End If
Next
For Each ctl In TabPage2.Controls
If ctl.GetType.IsAssignableFrom(GetType(TextBox)) Then
ctl.Text = ""
End If
Next

Thanks,

FoxT