<script runat="server">
    Public Event TabClick As EventHandler
    Public ReadOnly Property SelectedIndex() As Integer
        Get
            Return dlstTabStrip.SelectedIndex
        End Get
    End Property
    Private Sub Page_Load()
        If Not Page.IsPostBack Then
            ' Create the tabs
            Dim tabs As New List(Of String)()
            tabs.Add("Products")
            tabs.Add("Services")
            tabs.Add("About")
            ' Bind tabs to the DataList
            dlstTabStrip.DataSource = tabs
            dlstTabStrip.DataBind()
            ' Select first tab
            dlstTabStrip.SelectedIndex = 0
        End If
    End Sub
    Protected Sub dlstTabStrip_SelectedIndexChanged(ByVal sender As Object, ByVal e As
 EventArgs)
        RaiseEvent TabClick(Me, EventArgs.Empty)
    End Sub
</script>
			
		
 
	
Partager