locating and changing multiple controls on a page

[TB]

Hi All:

How do I find all textboxes on a page and change a certain property
('enabled' for example) on each of them?

I thought of doing something like this:
sub changemytexboxes()
Dim mytxb As TextBox
For Each mytxb In Me.Controls
ctrlname.Enabled = False
Next
End sub

But when I do that, I get a casting error.

Or do I have to use findcontrol? If so, how?

Any advice would be highly appreciated.

Thanks

TB

 

[Erik Funkenbusch]

I thought of doing something like this:
sub changemytexboxes()
Dim mytxb As TextBox

Dim myctrl As Control

For Each mytxb In Me.Controls

For Each myctrl in Me.Controls
If TypeOf myctrl Is TextBox then
CType(myctrl, TextBox).Enabled = False
End If
Next

ctrlname.Enabled = False
Next
End sub

But when I do that, I get a casting error.

Yes, because the objects are stored as Controls, even though they may be
TextBoxes, also there may be controls on the page that are not TextBoxes,
so that would not be what you were looking for.

 

[Steve C. Orr [MVP, MCSD]]

You can loop through them using control tree recursion as I've shown in this
code sample:
http://SteveOrr.net/faq/ControlTreeRecursion.aspx

 

[TB]

Steve,

It worked perfectly!. Thanks a lot. I changed "Page.Controls" to
'Me.Controls' so that the code would run inside a usercontrol on that
page. I hope that was the correct thing to do.

BTW, you got a very interesting web site.

TB