control type

  • Thread starter Thread starter J L
  • Start date Start date
J

J L

I am trying to step through the controls on a form and take some
action when I find a specific type. I dont know how to express this in
an If or Select clause.

I tried:

Dim Ctrl As Control
For Each Ctrl In Me.Controls
If Ctrl.GetType = System.Windows.Forms.TextBox Then
<take some action>
End If
Next

and

Select Case Ctrl.GetType
Case System.Windows.Forms.TextBox
<take some action>
End Select

In both cases it says the System.Windows.Forms.TextBox type can not be
used in an expression. So how am I to do this compare?

TIA,
John
 
If Ctrl.GetType = System.Windows.Forms.TextBox.GetType Then

or

Case System.Windows.Forms.TextBox.GetType

Note: Your loop will not handle controls that are on 'container' controls
like GooupBox and Panel. To handle these you will need to use recursion.
 
JL,

To check the type of an objects is the TypeOf and the IS operator in VBNet
\\\
If TypeOf Ctr IS Textbox
///
I hope this helps,

Cor
 
J L said:
I am trying to step through the controls on a form and take some
action when I find a specific type. I dont know how to express this in
an If or Select clause.
Click to expand...

\\\
If TypeOf Ctrl Is TextBox Then...
///

- or -

\\\
If Ctrl.GetType Is GetType(TextBox) Then...
///

'Select Case':

\\\
Select Case True
Case TypeOf Ctrl Is TextBox
...
Case TypeOf Ctrl Is Button
...
...
End Select
///
 
Thank you Stephany, Cor and Herfried! That was what I was looking for.
And I am aware of needing recursion for containers but in my case that
is not necessary. Again I am grateful to all the Gurus on this NG and
especiallly you 3. I lurk and learn. So your work not only helps those
whose answer you provide but a lot of us who are watching you as
mentors.

Thanks,
John
 
J L said:
Thank you Stephany, Cor and Herfried! That was what I was looking for.
And I am aware of needing recursion for containers but in my case that
is not necessary. Again I am grateful to all the Gurus on this NG and
especiallly you 3. I lurk and learn. So your work not only helps those
whose answer you provide but a lot of us who are watching you as
mentors.
Click to expand...

Thank you :-).
 
Back
Top