[RESOLVED, can't be done] Select Case with reference types

[agent]

I was under the impression that it would be possible to do a select case on reference types themselves (not just their properties.) The comparator for reference types is 'is', not '=', but Case Is GetType(Splitter) automatically inserts the '='. It doesn't like Case Is Is GetType(Splitter) either.

Any ideas on how to do this, preferably with select case, as I will be adding more than just two types later on.

For Each current As Control In form.Controls
    Select Case current.GetType
        Case Is = GetType(Splitter)
            'some code
        Case Is = GetType(ColumnHeader)
            'more code
        Case Else
            'nothing
    End Select
Next

[jmcilhinney]

Select Case can only be use where the '=' opertaor is defined for the type of the expression and the type of the cases. You can do this:

Select Case True
    Case TypeOf current Is Splitter
 
    Case TyoeOf current is ColumnHeader
 
    Case Else
 
End Select

but that gains you nothing over using If...ElseIf statements.

[penagate]

Select Case current.GetType().ToString()
  Case "WhateverNamespaceName.Splitter"
    ' ...
  Case "WhateverNamespaceName.ColumnHeader"
    ' ...
End Select

However, I recommend that you use the If...ElseIf method instead. Why? Refactoring won't change class names in strings, and you'll end up with code that builds but doesn't work.

[agent]

Whoops, ColumnHeader isn't derrived from Control.

This is what I'm using:

For Each current As Control In form.Controls
 
                If current.GetType Is GetType(Splitter) Then
                    'Some code
                ElseIf current.GetType Is GetType(ListView) Then
                    Dim tmp As ListView = current
 
                    For Each clm As ColumnHeader In tmp.Columns
                        'Some more code
                    Next
                End If
 
            Next

[jmcilhinney]

You shouldn't be calling GetType more than once:

Dim currentType As Type
 
For Each current As Control In form.Controls
    currentType = current.GetType()
 
    If currentType Is GetType(Splitter) Then
 
    ElseIf currentType Is GetType(ColumnHeader) Then
 
    End If
Next current

[agent]

Thanks... didn't think about that one... I'll fix it in a few minutes.