How to clear all textboxes on Webform using VB.Net

  • Thread starter Thread starter Peter Afonin
  • Start date Start date
P

Peter Afonin

Hello:

I need to clear all textboxes on the webform after the data has been
submitted. How can I do this in one step?

I found a C# code:

// get a reference to your form control
Control frm = FindControl("YourFormID");
foreach(Control ctrl in frm.Controls)
{
TextBox tb = ctrl as TextBox;
if(ctrl!=null)
tb.Text="";
}

I tried to interpret it into VB.Net like this:

Dim frm As Control = Me.FindControl("Form1")
Dim ctl As Control
For Each ctl In frm.Controls
Dim tb As TextBox = CType(ctl, TextBox)
tb.Text = ""
Next

but I get an error message: "Specified cast is not valid".
So this line is incorrect: Dim tb As TextBox = CType(ctl, TextBox)

Could you help me please?

Thank you,
 
Hi Peter,

This works on a winform but as far as I know (and I did test it often) not
on a webform

On a winform it is (if there is a typing error don't look, I make a lot of
them)

\\\
dim ctr as control
for each ctr in controls
if typeof ctr is textbox
ctr.text = ""
end if
next
///

I wished it did, the documentation is full of it, there was one page in the
knowledge base, which said it doesn't work, but I cannot find it anymore.

That it does not work has to do with the typeof, it is not useable when a
page is starting to load they wrote I thought.

But if it works on a webform , tell me how you did it!!!

:-((((
Cor
 
Peter,

The problem is that in ASP.Net you need to drill into the containers. Form 1
is actually a single control contained in a Page object. It then is a
container that contains the main form controls, which in turn may contain
other controls.

You can use recursive code to loop through all controls. Something liek
this:
static void FormBindData(Control Container, Page WebForm)
{

foreach( Control loControl in Container.Controls)
{

// ** Recursively call down into any containers
if (loControl.Controls.Count > 0)
FormBindData(loControl, WebForm);

if (loControl is TextBox )
{
...
}

}

}

+++ Rick ---

--

Rick Strahl
West Wind Technologies
http://www.west-wind.com/
http://www.west-wind.com/wwHelp
 
Hi Cor,

Thank you, I modified your statement and made it work.

Your code doesn't work exactly right because ctl.text is invalid (control
doesn't have text property). So I modified it a little, and it works great:

Dim frm As Control = Me.FindControl("Form1")
Dim ctl As Control

For Each ctl In frm.Controls
Dim tb As TextBox
If TypeOf ctl Is TextBox Then
tb = CType(ctl, TextBox)
tb.Text = String.Empty
End If
Next

Best,

Peter
 
Thank you, Rick.

I modified the code that Cor suggested, and it works so far:

Dim frm As Control = Me.FindControl("Form1")
Dim ctl As Control

For Each ctl In frm.Controls
Dim tb As TextBox
If TypeOf ctl Is TextBox Then
tb = CType(ctl, TextBox)
tb.Text = String.Empty
End If
Next

I think it's exactly what you're saying - it's drilling into the container
Form1.
--
Peter Afonin

Rick Strahl said:
Peter,

The problem is that in ASP.Net you need to drill into the containers. Form 1
is actually a single control contained in a Page object. It then is a
container that contains the main form controls, which in turn may contain
other controls.

You can use recursive code to loop through all controls. Something liek
this:
static void FormBindData(Control Container, Page WebForm)
{

foreach( Control loControl in Container.Controls)
{

// ** Recursively call down into any containers
if (loControl.Controls.Count > 0)
FormBindData(loControl, WebForm);

if (loControl is TextBox )
{
...
}

}

}

+++ Rick ---

--

Rick Strahl
West Wind Technologies
http://www.west-wind.com/
http://www.west-wind.com/wwHelp
Click to expand...
 
Hi Peter,

You are right, this is greath

A little aprovement, that you can try (works I tested it)
tb = CType(ctl, TextBox)
Click to expand...
tb = DirectCast(ctl,TextBox)

But you did find it,

Greath
:-)
Cor
 
Back
Top