programaticly enabling tabs

[Dave]

Hi,

I have a sub routine in my code behind  (vb) which fires when an event occurs.  What I want to do is selectively enable and disable 4 tabs in the tab strip and set focus to one tab.

here is my code

Private Sub LookupTag(tag As String)

    Dim c1 As New RadTabStrip
    Select Case tag
        Case "11000ed97c"           'credit card
            'RadTabStrip1.Tabs(1).Focus()
            c1 = RadTabStrip1.FindControl("RadTabStrip1")
            c1.Tabs(0).Enabled = True
            c1.Tabs(1).Enabled = False
            c1.Tabs(2).Enabled = False
            c1.Tabs(3).Enabled = False
        Case "4d004a7d6f"           'watch
            c1 = RadTabStrip1.FindControl("RadTabStrip1")
            c1.Tabs(0).Enabled = False
            c1.Tabs(1).Enabled = True
            c1.Tabs(2).Enabled = False
            c1.Tabs(3).Enabled = False
        Case "0107ee84cd"           'Key Chain
            c1 = RadTabStrip1.FindControl("RadTabStrip1")
            c1.Tabs(0).Enabled = False
            c1.Tabs(1).Enabled = False
            c1.Tabs(2).Enabled = True
            c1.Tabs(3).Enabled = False
        Case "0107ee8a61"           'disk
            c1 = RadTabStrip1.FindControl("RadTabStrip1")
            c1.Tabs(0).Enabled = False
            c1.Tabs(1).Enabled = False
            c1.Tabs(2).Enabled = False
            c1.Tabs(3).Enabled = True
    End Select

and here is the asp for the tabstrip

<telerik:RadTabStrip ID="RadTabStrip1" runat="server" Skin="Black" MultiPageID="RadMultiPage1"
    SelectedIndex="0" CssClass="tabStrip" AutoPostBack="True">
    <Tabs>
        <telerik:RadTab Text="Ops">
        </telerik:RadTab>
        <telerik:RadTab Text="Management">
        </telerik:RadTab>
        <telerik:RadTab Text="IT">
        </telerik:RadTab>
        <telerik:RadTab Text="Maintenance">
        </telerik:RadTab>
    </Tabs>
</telerik:RadTabStrip>

Can someone give me a hand?

Thanks in advance,

Dave

[Kate]

Hello Dave,

If you need to have a particular tab enabled and selected at the same time you will need to set both Enable and Selected properties of the tabs to true. Please take a look at the definition of your modified handler below for further reference:

Private Sub LookupTag(ByVal tag As String)

 

        Dim c1 As New RadTabStrip

        Select Case tag

            Case "11000ed97c"           'credit card

                'RadTabStrip1.Tabs(1).Focus()

                c1 = RadTabStrip1

                c1.Tabs(0).Enabled = True

                c1.Tabs(1).Enabled = False

                c1.Tabs(2).Enabled = False

                c1.Tabs(3).Enabled = False

            Case "4d004a7d6f"           'watch

                c1 = RadTabStrip1

                c1.Tabs(0).Enabled = False

                c1.Tabs(1).Enabled = True

                c1.Tabs(1).Selected = True

                c1.Tabs(2).Enabled = False

                c1.Tabs(3).Enabled = False

            Case "0107ee84cd"           'Key Chain

                c1 = RadTabStrip1

                c1.Tabs(0).Enabled = False

                c1.Tabs(1).Enabled = False

                c1.Tabs(2).Enabled = True
                       c1.Tabs(2).Selected = True

                c1.Tabs(3).Enabled = False

            Case "0107ee8a61"           'disk

                c1 = RadTabStrip1

                c1.Tabs(0).Enabled = False

                c1.Tabs(1).Enabled = False

                c1.Tabs(2).Enabled = False

                c1.Tabs(3).Enabled = True
                       c1.Tabs(3).Selected = True

        End Select

 

    End Sub

Kind regards,
Kate
the Telerik team