How to loop thru all textboxes on form?

[VB Programmer]

How can I loop thru all textboxes on a form?

I want to remove any single quotes in the data entry. I was thinking
something like this:

For Each c As Control In Me.Controls
Dim t As TextBox = CType(c, TextBox)
t.Text = t.Text.Replace("'", "")
Next

But the CType is giving me a 'Specified cast is not valid'.

Thanks.

[nmosafi]

Your page will contain many controls, so you have to check each
control's type before you can cast to a textbox. You can use the "Is"
operator - in C# it would look like:

if (c is TextBox) {
TextBox t = (TextBox) c;
t.Text = t.Text.Replace ("'", "");
}

but I dont know VB syntax.

An alternative would be to surround the statement in a try/catch
statement and catch the InvalidCastException and continue the loop,
however it's usually better to check for expected exceptions.

[John Spiegel]

Hey,

A couple ideas:

Use the GetType() method to then test whether or not it is of type TextBox,
only taking action if it is.

A bit more brute force would be to wrap it in a try...catch and check for
the invalid cast, but that's not too pretty.

- John

"VB Programmer" <Do*****************@jEmail.com> wrote in message
news:ee**************@tk2msftngp13.phx.gbl...

How can I loop thru all textboxes on a form?

I want to remove any single quotes in the data entry. I was thinking
something like this:

For Each c As Control In Me.Controls
Dim t As TextBox = CType(c, TextBox)
t.Text = t.Text.Replace("'", "")
Next

But the CType is giving me a 'Specified cast is not valid'.

Thanks.

[Karl Seguin]

What everyone else said is accurate, but I wanted to point out that you'll
need to recursively scan through all controls - your code doesn't show that
you are doing this (doesn't show that you aren't either).

private sub StripFromTextbox(parent as Control, searchFor as string,
replaceWith as string)
for each c as control in parent
if c.HasControls then
StripFromTextbox(c, searchFor, replaceWith)
end if
if c is TextBox then
dim t as textbox = ctype(c, textbox)
t.text = t.text.replace(searchFor, replaceWith)
end if
end sub

or something to that effect...

Karl

--
MY ASP.Net tutorials
http://www.openmymind.net/
"VB Programmer" <Do*****************@jEmail.com> wrote in message
news:ee**************@tk2msftngp13.phx.gbl...

How can I loop thru all textboxes on a form?

I want to remove any single quotes in the data entry. I was thinking
something like this:

For Each c As Control In Me.Controls
Dim t As TextBox = CType(c, TextBox)
t.Text = t.Text.Replace("'", "")
Next

But the CType is giving me a 'Specified cast is not valid'.

Thanks.

[Saravana]

check out this faq,
http://www.extremeexperts.com/Net/Ar...hControls.aspx

--
-Saravana
http://dotnetjunkies.com/WebLog/saravana/
www.ExtremeExperts.com

"VB Programmer" <Do*****************@jEmail.com> wrote in message
news:ee**************@tk2msftngp13.phx.gbl...

How can I loop thru all textboxes on a form?

I want to remove any single quotes in the data entry. I was thinking
something like this:

For Each c As Control In Me.Controls
Dim t As TextBox = CType(c, TextBox)
t.Text = t.Text.Replace("'", "")
Next

But the CType is giving me a 'Specified cast is not valid'.

Thanks.