"Gwyn Carwardine" <someone@microsoft.com> wrote in message
news:c4ccvp$arb$1@news8.svr.pol.co.uk...
> Hi, often I want to do different things depending on the type of an
> object...
>
> I end up having to use:
>
> Select Case myObj.Gettype.Name
> Case Gettype(AClass).Name
> .. process as AClass
> Case Gettype(AnotherClass).Name
> .. process as AnotherClass
> End Select
>
> Is there a better way to do this cos it strikes me as being a bit naff?!
>
> Cheers.
>
>

Gwyn Carwardine <someone@microsoft.com> wrote:
> Hi, often I want to do different things depending on the type of an
> object...
>
> I end up having to use:
>
> Select Case myObj.Gettype.Name
> Case Gettype(AClass).Name
> .. process as AClass
> Case Gettype(AnotherClass).Name
> .. process as AnotherClass
> End Select
>
> Is there a better way to do this cos it strikes me as being a bit naff?!

"Charles Law" <blank@nowhere.com> wrote in message
news:ucv#cJoFEHA.1600@tk2msftngp13.phx.gbl...
> Hi Gwyn
>
> Although a bit perverse, you could reverse the test, as
>
> Select Case True
> Case TypeOf obj Is MyClass
> ...
>
> Case TypeOf obj Is MyOtherClass
> ...
>
> Case Else
>
> End Select
>
> HTH
>
> Charles
>
>
> "Gwyn Carwardine" <someone@microsoft.com> wrote in message
> news:c4ccvp$arb$1@news8.svr.pol.co.uk...
> > Hi, often I want to do different things depending on the type of an
> > object...
> >
> > I end up having to use:
> >
> > Select Case myObj.Gettype.Name
> > Case Gettype(AClass).Name
> > .. process as AClass
> > Case Gettype(AnotherClass).Name
> > .. process as AnotherClass
> > End Select
> >
> > Is there a better way to do this cos it strikes me as being a bit naff?!
> >
> > Cheers.
> >
> >
>
>