defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

Imports System
Imports Telerik.QuickStart
Imports Telerik.WebControls


Namespace Telerik.TabStripExamplesVB.Application.Navigation
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected PageContent As System.Web.UI.WebControls.Label
      
      Protected RadTabStrip1 As RadTabStrip
      
      
      Private Sub Page_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Dim tab As Tab = RadTabStrip1.FindTabByUrl(Request.Url.PathAndQuery)
         If Not (tab Is Nothing) Then
            tab.SelectParents()
         End If
         
         ' The code below is just for example purposes.
         Dim pageContentString As String
         If Request.QueryString("page") Is Nothing Then
            pageContentString = "home"
         Else
            pageContentString = Request.QueryString("page")
         End If
         
         PageContent.Text = [String].Format("This is the {0} page", pageContentString)
      End Sub 'Page_Load
      Protected Overrides Sub OnInit(e As EventArgs)
         '
         ' CODEGEN: This call is required by the ASP.NET Web Form Designer.
         '
         InitializeComponent()
         MyBase.OnInit(e)
      End Sub 'OnInit
      
      
      '/ <summary>
      '/ Required method for Designer support - do not modify
      '/ the contents of this method with the code editor.
      '/ </summary>
      Private Sub InitializeComponent()
      End Sub 'InitializeComponent
   End Class 'DefaultVB 
End Namespace 'Telerik.TabStripExamplesVB.Application.Navigation