probleem met CType()

[bn2vs]

Dit is een vereenvoudigde versie van mn huidige code:

    Public Sub toggleObj(ByVal toggleObjct As System.Object)

        Try
            CType(toggleObjct, ToolStripDropDownButton).Visible = isHidden
        Catch ex As InvalidCastException
            MessageBox.Show(ex.ToString)
        End Try

    End Sub

Ik wil met deze sub een object verbergen dat word megegeven als parameter. Het probleem is dat dit enkel werkt bij ToolStripDropDownButtons, en niet bij bv ToolStripMenuItems of gewone controls. De enige oplossing die ik zie is een hele hoop try catch statements in elkaar te zetten, maar dat is niet echt handig lijkt me. Wat is de beste oplossing?

Alvast bedankt

 

[bn2vs]

ik heb nu deze code

        Select Case True
            Case TypeOf (toggleObjct) Is ToolStripDropDownButton
                CType(toggleObjct, ToolStripDropDownButton).Visible = isHidden
            Case TypeOf (toggleObjct) Is Control
                CType(toggleObjct, Control).Visible = isHidden
            Case TypeOf (toggleObjct) Is ToolStripStatusLabel
                CType(toggleObjct, ToolStripStatusLabel).Visible = isHidden
            Case TypeOf (toggleObjct) Is ToolStripButton
                CType(toggleObjct, ToolStripButton).Visible = isHidden
            Case TypeOf (toggleObjct) Is ToolStripProgressBar
                CType(toggleObjct, ToolStripProgressBar).Visible = isHidden
        End Select

die werkt perfect, maar is niet echt handig als je echt veel type controls wilt kunnen gebruiken.

is het mogelijk om iets dergelijks te doen?

        Dim myType As Type = toggleObjct.GetType()
        CType(toggleObjct, myType).Visible = isHidden