Loop through certain controls

[Kevin L]

I have the following loop:

Dim objPanel As Panel

For Each objPanel In Me.Controls

'do something here

Next

I receive an error when my loop encounters a control that is not a Panel
control.

I only want to perform actions on the Panel controls on my form and skip any
other type of control.

Is there a way to loop only through the Panel controls?

[Jan Tielens]

Dim objPanel As Object

For Each objPanel In Me.Controls
If objPanel.GetType Is GetType(Panel) Then
'do something here
End If
Next

--
Greetz,
Jan
__________________________________
Read my weblog: http://weblogs.asp.net/jan
"Kevin L" <no_spam@not_real_email.com> schreef in bericht
news:uf**************@tk2msftngp13.phx.gbl...

I have the following loop:

Dim objPanel As Panel

For Each objPanel In Me.Controls

'do something here

Next

I receive an error when my loop encounters a control that is not a Panel
control.

I only want to perform actions on the Panel controls on my form and skip any other type of control.

Is there a way to loop only through the Panel controls?

[Mattias Sjögren]

Kevin,

Is there a way to loop only through the Panel controls?

For Each ctl As Control In Me.Controls
If TypeOf ctl Is Panel Then
objPanel = CType(ctl, Panel)
'do something here
End If
Next

Mattias

--
Mattias Sjögren [MVP] mattias @ mvps.org
http://www.msjogren.net/dotnet/ | http://www.dotnetinterop.com
Please reply only to the newsgroup.

[Brian W]

You will have to do something like this (goiung from memory)
Dim objPanel As Control

For Each objPanel In Me.Controls

If objPanel Is Panel Then
'do something here
End If

Next

HTH
Brian W

"Kevin L" <no_spam@not_real_email.com> wrote in message
news:uf**************@tk2msftngp13.phx.gbl...

I have the following loop:

Dim objPanel As Panel

For Each objPanel In Me.Controls

'do something here

Next

I receive an error when my loop encounters a control that is not a Panel
control.

I only want to perform actions on the Panel controls on my form and skip any other type of control.

Is there a way to loop only through the Panel controls?

[CJ Taylor]

Wow! 3 different ways, each just as correct... that was cool. =)
"Kevin L" <no_spam@not_real_email.com> wrote in message
news:uf**************@tk2msftngp13.phx.gbl...

I have the following loop:

Dim objPanel As Panel

For Each objPanel In Me.Controls

'do something here

Next

I receive an error when my loop encounters a control that is not a Panel
control.

I only want to perform actions on the Panel controls on my form and skip any other type of control.

Is there a way to loop only through the Panel controls?

[Mattias Sjögren]

>Wow! 3 different ways, each just as correct... that was cool. =)

Nope, only two correct, one doesn't compile. Out of the two working
ones, one works also for types derived from Panel and the other does
not.

Mattias

--
Mattias Sjögren [MVP] mattias @ mvps.org
http://www.msjogren.net/dotnet/ | http://www.dotnetinterop.com
Please reply only to the newsgroup.

[Herfried K. Wagner [MVP]]

* "Kevin L" <no_spam@not_real_email.com> scripsit:

I have the following loop:

Dim objPanel As Panel

For Each objPanel In Me.Controls

'do something here

Next

I receive an error when my loop encounters a control that is not a Panel
control.

I only want to perform actions on the Panel controls on my form and skip any
other type of control.

Is there a way to loop only through the Panel controls?

<http://www.mvps.org/dotnet/dotnet/samples/controls/downloads/EnumerateControls.zip>

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Herfried K. Wagner [MVP]]

* Mattias Sjögren <ma********************@mvps.org> scripsit:

Is there a way to loop only through the Panel controls?

For Each ctl As Control In Me.Controls
If TypeOf ctl Is Panel Then
objPanel = CType(ctl, Panel)

Why not use 'DirectCast' here?

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Mattias Sjögren]

Herfried,

objPanel = CType(ctl, Panel)

Why not use 'DirectCast' here?

5 less characters to type?! :-) Since it produces the same code in
this context, I suppose it's a matter of style and personal preference
which one you choose.

Mattias

--
Mattias Sjögren [MVP] mattias @ mvps.org
http://www.msjogren.net/dotnet/ | http://www.dotnetinterop.com
Please reply only to the newsgroup.

[Brian W]

OK, OK, I forgot the TypeOf (Doh!)

BW

"Brian W" <brianw@gold_death_2_spam_rush.com> wrote in message
news:ON**************@TK2MSFTNGP10.phx.gbl...

You will have to do something like this (goiung from memory)
Dim objPanel As Control

For Each objPanel In Me.Controls

If objPanel Is Panel Then
'do something here
End If

Next

HTH
Brian W

"Kevin L" <no_spam@not_real_email.com> wrote in message
news:uf**************@tk2msftngp13.phx.gbl...

I have the following loop:

Dim objPanel As Panel

For Each objPanel In Me.Controls

'do something here

Next

I receive an error when my loop encounters a control that is not a Panel
control.

I only want to perform actions on the Panel controls on my form and skip

any

other type of control.

Is there a way to loop only through the Panel controls?

[Cor]

Hi Mattias,

I do not understand what you mean

Nope, only two correct, one doesn't compile. Out of the two working
ones, one works also for types derived from Panel and the other does
not.

I could understand it if it was,

Nope only two correct, one has a typing error.
The two with casting also work for types originaly derived from Control as a
Panel and the others does not.

Cor

[CJ Taylor]

I hate all of you.
"Cor" <no*@non.com> wrote in message
news:eF**************@TK2MSFTNGP12.phx.gbl...

Hi Mattias,

I do not understand what you mean

Nope, only two correct, one doesn't compile. Out of the two working
ones, one works also for types derived from Panel and the other does
not.
I could understand it if it was,

Nope only two correct, one has a typing error.
The two with casting also work for types originaly derived from Control as

a Panel and the others does not.

Cor

[Cor]

Hi CJ,

I was trying to help you.

Cor

I hate all of you.

[Herfried K. Wagner [MVP]]

* Mattias Sjögren <ma********************@mvps.org> scripsit:

objPanel = CType(ctl, Panel)

Why not use 'DirectCast' here?

5 less characters to type?! :-) Since it produces the same code in
this context, I suppose it's a matter of style and personal preference
which one you choose.

IMO 'DirectCast' is better readable than 'CType' in this case.

;-)))

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[CJ Taylor]

I know... I felt really dumb. =)

like really dumb..... this was meant to be humourous, but because its hard
to state inflection with text (hmmm........ thats an idea...) it appears to
have come out wrong.

I plutonically like all of you...

except for that dude that was commenting on scorpions article.. what was
with that?

"Cor" <no*@non.com> wrote in message
news:%2****************@tk2msftngp13.phx.gbl...

Hi CJ,

I was trying to help you.

Cor

I hate all of you.

[Cor]

In my opinion you can better not use them if you do not need them

directcast(ctr,textbox).text = "Herfried"

:-)))))

IMO 'DirectCast' is better readable than 'CType' in this case.

Cor

[CJ Taylor]

In conclusion...

I aplogize.

apologize even...

"CJ Taylor" <no****@blowgoats.com> wrote in message
news:10*************@corp.supernews.com...

I know... I felt really dumb. =)

like really dumb..... this was meant to be humourous, but because its hard
to state inflection with text (hmmm........ thats an idea...) it appears to have come out wrong.

I plutonically like all of you...

except for that dude that was commenting on scorpions article.. what was
with that?

"Cor" <no*@non.com> wrote in message
news:%2****************@tk2msftngp13.phx.gbl...

Hi CJ,

I was trying to help you.

Cor

I hate all of you.

[Herfried K. Wagner [MVP]]

* "Cor" <no*@non.com> scripsit:

In my opinion you can better not use them if you do not need them

directcast(ctr,textbox).text = "Herfried"

:-)))))

Depends on:

* Is 'Option Strict' set.
* 'ctr' is declared as 'Control'.

;-)

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Cor]

Hi Herfried,

Maybe I did not tell right what I did wanted to say
This goes fine also with option strict on

for each ctr as control in me.controls
ctr.text ="Herfried"
next

But a mass on your screen

:-))

directcast(ctr,textbox).text = "Herfried"

:-)))))

Depends on:

* Is 'Option Strict' set.
* 'ctr' is declared as 'Control'.

;-)

[Cor]

Hi CJ

Not needed, I forgot you did not had your first coffee

Cor

[CJ Taylor]

It's funny and true. =) Makes a big difference. =)
"Cor" <no*@non.com> wrote in message
news:ud**************@tk2msftngp13.phx.gbl...

Hi CJ

Not needed, I forgot you did not had your first coffee

Cor

[Herfried K. Wagner [MVP]]

* "Cor" <no*@non.com> scripsit:

Maybe I did not tell right what I did wanted to say
This goes fine also with option strict on

That's exactly how I understood it.

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>