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?

 

[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

 

[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

 

[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

 

[CJ Taylor]

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

 

[Herfried K. Wagner [MVP]]

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>

 

[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

 

[Herfried K. Wagner [MVP]]

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

Why not use 'DirectCast' here?

 

[Mattias Sjögren]

Herfried,

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

 

[Brian W]

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

BW

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

 

[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.

Hi Mattias,

I do not understand what you mean


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

 

[Herfried K. Wagner [MVP]]

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.

;-)))

 

[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]

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...

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?

 

[Herfried K. Wagner [MVP]]

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'.

;-)

 

[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

)

 

[Cor]

Hi CJ

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

Cor