Finding controls on a panel

[Aaron]

Is there a way to get the names of all of the textboxes that are placed on a
panel?

I have several panels on my .NET application, each with several textbox
controls. I would like to get all of the names of the textboxes and clear
to text values without manually typing out all of the names. Is there an
easy way to specify the panel that these controls are placed in and get
those names?

something like

for each textbox on panel1
textbox.value =""
next

Thanks,
Aaron

[Cor Ligthert]

Aaron

You are there almost

for each textbox on panel1
textbox.value =""
next

for each txb as control on panel1.controls
if typeof txb Is textbox then
txb.text = ""
end if
next

I hope this helps?

Cor

[Aaron]

If I use this code:

Sub BetaClearTextBo xes(ByVal PanelName As Panel)
Dim txb As Control
For Each txb In PanelName.Contr ols
If TypeOf txb Is TextBox Then
txb.text = ""
End If
Next
End Sub

Intellisense gives me an error stating that "text" is not a member of
"Control".
If I use this code (Dim txb as textbox instead of control)

Sub BetaClearTextBo xes(ByVal PanelName As Panel)
Dim txb As TextBox
For Each txb In PanelName.Contr ols
If TypeOf txb Is TextBox Then
txb.text = ""
End If
Next
End Sub

I get Specified cast is not valid.
This errors out on the for each txb line.

Any ideas?

Thanks,
Aaron

"Cor Ligthert" <no**********@p lanet.nl> wrote in message
news:et******** ******@tk2msftn gp13.phx.gbl...

Aaron

You are there almost

for each textbox on panel1
textbox.value =""
next

for each txb as control on panel1.controls
if typeof txb Is textbox then
txb.text = ""
end if
next

I hope this helps?

Cor

[Jeff Johnson [MVP: VB]]

"Aaron" <aa***@jonharve y.com> wrote in message
news:%2******** *******@TK2MSFT NGP11.phx.gbl.. .

If I use this code:

Sub BetaClearTextBo xes(ByVal PanelName As Panel)
Dim txb As Control
For Each txb In PanelName.Contr ols
If TypeOf txb Is TextBox Then
txb.text = ""
End If
Next
End Sub

Intellisense gives me an error stating that "text" is not a member of
"Control".

Try

DirectCast(txb, TextBox).Text = ""

[Aaron]

Yeas, this code works:
Sub BetaClearTextBo xes(ByVal PanelName As Panel)
Dim txb As Control
For Each txb In PanelName.Contr ols
If TypeOf txb Is TextBox Then
DirectCast(txb, TextBox).Text = ""
End If
Next
End Sub

Thanks for the help! I had never heard of DirectCast...

Aaron

"Jeff Johnson [MVP: VB]" <i.***@enough.s pam> wrote in message
news:Op******** *****@TK2MSFTNG P09.phx.gbl...

"Aaron" <aa***@jonharve y.com> wrote in message
news:%2******** *******@TK2MSFT NGP11.phx.gbl.. .

If I use this code:

Sub BetaClearTextBo xes(ByVal PanelName As Panel)
Dim txb As Control
For Each txb In PanelName.Contr ols
If TypeOf txb Is TextBox Then
txb.text = ""
End If
Next
End Sub

Intellisense gives me an error stating that "text" is not a member of
"Control".

Try

DirectCast(txb, TextBox).Text = ""

[Cor Ligthert]

brrrrrrrrrr I typed it direct in the message, this error I make seldom

And I knew I was missing something.

:-)

Thanks

Cor

[Jeff Johnson [MVP: VB]]

"Cor Ligthert" <no**********@p lanet.nl> wrote in message
news:el******** ******@tk2msftn gp13.phx.gbl...

brrrrrrrrrr I typed it direct in the message, this error I make seldom

We call that "air code."

[Cor Ligthert]

Aaron,

I first was thinking I was making a quick typing mistake, however it can not
give an error.

Textbox derives text from control and therefore casting is not necessary.
So text is a property from Control. So how can you get the message that text
is not a property from Control.

I am curious why you got this?

Cor

[Cor Ligthert]

Jeff,

brrrrrrrrrr I typed it direct in the message, this error I make seldom

We call that "air code."

It was no typing mistake, when I answered it was late in evening here, so I
was direct thinking on an error. However casting should not be necessary
here because Text is a property from Control and I stopped to type the
casting with that and did that automaticly as well in this message.

Cor

[Jeff Johnson [MVP: VB]]

"Cor Ligthert" <no**********@p lanet.nl> wrote in message
news:eF******** ******@TK2MSFTN GP11.phx.gbl...

brrrrrrrrrr I typed it direct in the message, this error I make seldom
We call that "air code."

It was no typing mistake, when I answered it was late in evening here, so

I was direct thinking on an error. However casting should not be necessary
here because Text is a property from Control and I stopped to type the
casting with that and did that automaticly as well in this message.

Hmmm, you're right. It looks like it should work. I'll test it when I get a
chance.