webform1.aspx.vb

ghgb gggggggg tggggggggg ggggggggggg ggggggggggg fffffffffffffffff ffffffffffffn ggggggggggg ggggggg

Public Class WebForm1
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents mytabstrip As Microsoft.Web.UI.WebControls.TabStrip
    Protected WithEvents pnl0 As System.Web.UI.WebControls.Panel
    Protected WithEvents pnl1 As System.Web.UI.WebControls.Panel
    Protected WithEvents pnl2 As System.Web.UI.WebControls.Panel
    Protected WithEvents pnl3 As System.Web.UI.WebControls.Panel
    Protected WithEvents pnl4 As System.Web.UI.WebControls.Panel

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
        doChange()

    End Sub

    Private Sub mytabstrip_SelectedIndexChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles mytabstrip.SelectedIndexChange
        doChange()
    End Sub
    Sub doChange()
        Dim i As Integer
        For i = 0 To 4
            Dim pnl As Panel = CType(FindControl("pnl" & i.ToString), Panel)
            If mytabstrip.SelectedIndex = i Then
                pnl.Visible = "True"
            Else
                pnl.Visible = "False"
            End If
        Next
    End Sub
End Class