<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