check type of controls

[Stefan]

Hi,
i'm using code below to check if control is a button
how can i check for more types of controls(like checkbox,...)
in one 'nice piece" of code
I tried to make a select case with 'typeof...is' but i didn't get it work
If Not TypeOf ctr Is Button Then
AddHandler ctr.LostFocus, AddressOf meLostFocus

AddHandler ctr.GotFocus, AddressOf meGotFocus

End If

thanx in advance

stefan

[Stefan]

sorry,
answer found
Stefan
"Stefan" <[e-mail]> schreef in bericht news:Oy*************@tk2msftngp13.phx.gbl...
Hi,
i'm using code below to check if control is a button
how can i check for more types of controls(like checkbox,...)
in one 'nice piece" of code
I tried to make a select case with 'typeof...is' but i didn't get it work
If Not TypeOf ctr Is Button Then
AddHandler ctr.LostFocus, AddressOf meLostFocus

AddHandler ctr.GotFocus, AddressOf meGotFocus

End If

thanx in advance

stefan

[Herfried K. Wagner [MVP]]

"Stefan" <[e-mail]> schrieb:

i'm using code below to check if control is a button
how can i check for more types of controls(like checkbox,...)
in one 'nice piece" of code
I tried to make a select case with 'typeof...is' but i didn't get it work

If Not TypeOf ctr Is Button Then

\\\
Dim x As Control = ...
Select Case True
Case TypeOf x Is Button, TypeOf x Is ListBox
...
Case Else
...
End Select
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Stefan]

thanx Herfried
that's what i was looking for
kind regards
Stefan
"Herfried K. Wagner [MVP]" <hi***************@gmx.at> schreef in bericht
news:%2****************@TK2MSFTNGP14.phx.gbl...

"Stefan" <[e-mail]> schrieb:

i'm using code below to check if control is a button
how can i check for more types of controls(like checkbox,...)
in one 'nice piece" of code
I tried to make a select case with 'typeof...is' but i didn't get it work

If Not TypeOf ctr Is Button Then

\\\
Dim x As Control = ...
Select Case True
Case TypeOf x Is Button, TypeOf x Is ListBox
...
Case Else
...
End Select
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>