defaultvb.aspx.vb

来自「Telerik是很大的第三方软件制造商」· VB 代码 · 共 76 行

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.IO
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports Telerik.WebControls


Namespace Telerik.PanelbarExamplesVBNET.Panelbar.Examples.Programming.AdvancedTemplates
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected RadPanelbar1 As Telerik.WebControls.RadPanelbar
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         Dim Template1 As New PanelItemTemplate()
         Template1.ID = "Template1"
         Template1.ContentTemplate = Page.LoadTemplate("Template1CS.ascx")
         RadPanelbar1.PanelItemTemplates.Add(Template1)
         Dim container1 As New ItemTemplate(RadPanelbar1.PanelItems(0).PanelItems(0))
         Template1.ContentTemplate.InstantiateIn(container1)
         container1.ID = "Panel3_1"
         RadPanelbar1.Controls.Add(container1)
         RadPanelbar1.PanelItems(0).PanelItems(0).TemplateID = "Template1"
         
         Dim Template2 As New PanelItemTemplate()
         Template2.ID = "Template2"
         Template2.ContentTemplate = Page.LoadTemplate("Template2CS.ascx")
         RadPanelbar1.PanelItemTemplates.Add(Template2)
         Dim container2 As New ItemTemplate(RadPanelbar1.PanelItems(0).PanelItems(1))
         Template2.ContentTemplate.InstantiateIn(container2)
         container2.ID = "Panel3_2"
         RadPanelbar1.Controls.Add(container2)
         RadPanelbar1.PanelItems(0).PanelItems(1).TemplateID = "Template2"
      End Sub 'Page_Load
      
      
      Protected Overrides Sub Render(writer As HtmlTextWriter)
         Dim stringWriter As New StringWriter()
         Dim newWriter As New HtmlTextWriter(stringWriter)
         MyBase.Render(newWriter)
         Dim pageHtml As String = stringWriter.ToString()
         pageHtml = pageHtml.Replace("<td align=""Center""", "<td align=""center""")
         pageHtml = pageHtml.Replace("<td align=""Right""", "<td align=""right""")
         pageHtml = pageHtml.Replace("<td align=""Left""", "<td align=""left""")
         pageHtml = pageHtml.Replace(" bordercolor=""#3366CC""", [String].Empty)
         writer.Write(pageHtml)
      End Sub 'Render
      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.PanelbarExamplesVBNET.Panelbar.Examples.Programming.AdvancedTemplates