defaultvb.aspx.vb

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

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
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.PanelbarTypes.SideBar
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected RadPanelbar1 As Telerik.WebControls.RadPanelbar
      Protected Folder1 As System.Web.UI.WebControls.Button
      Protected Track1Mp3 As System.Web.UI.WebControls.Button
      Protected Track2Mp3 As System.Web.UI.WebControls.Button
      Protected Track3Mp3 As System.Web.UI.WebControls.Button
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
      End Sub 'Page_Load
      
      ' Put user code to initialize the page here
      
      Private Sub LoadDynamicTemplate(templateID As String)
         Dim oldContainer As ItemTemplate = CType(RadPanelbar1.FindControl("Panel3_1"), ItemTemplate)
         RadPanelbar1.PanelItems("Panel3").PanelItems("Panel3_1").TemplateID = templateID
         Dim template As PanelItemTemplate = RadPanelbar1.PanelItemTemplates(templateID)
         oldContainer.Controls.Clear()
         template.ContentTemplate.InstantiateIn(oldContainer)
      End Sub 'LoadDynamicTemplate
      
      
      Private Sub AddFileCommands()
         Dim test As PanelItem = RadPanelbar1.FindPanelItemById("Panel2_4")
         If test Is Nothing Then
            Dim panelItem As New PanelItem(RadPanelbar1.PanelItems("Panel2"), RadPanelbar1, "Panel2_6")
            panelItem.Text = "Delete this file"
            panelItem.ImageCollapsed = "7.gif"
            panelItem.ImageSelected = "7.gif"
            RadPanelbar1.PanelItems("Panel2").PanelItems.Insert(0, panelItem)
            
            panelItem = New PanelItem(RadPanelbar1.PanelItems("Panel2"), RadPanelbar1, "Panel2_5")
            panelItem.Text = "Copy this file"
            panelItem.ImageCollapsed = "8.gif"
            panelItem.ImageSelected = "8.gif"
            RadPanelbar1.PanelItems("Panel2").PanelItems.Insert(0, panelItem)
            
            panelItem = New PanelItem(RadPanelbar1.PanelItems("Panel2"), RadPanelbar1, "Panel2_4")
            panelItem.Text = "Rename this file"
            panelItem.ImageCollapsed = "2.gif"
            panelItem.ImageSelected = "2.gif"
            RadPanelbar1.PanelItems("Panel2").PanelItems.Insert(0, panelItem)
         End If
      End Sub 'AddFileCommands
      
      
      Private Sub RemoveFileCommands()
         Dim test As PanelItem = RadPanelbar1.FindPanelItemById("Panel2_4")
         If Not (test Is Nothing) Then
            Dim i As Integer
            For i = 0 To 2
               RadPanelbar1.PanelItems("Panel2").PanelItems.RemoveAt(0)
            Next i
         End If
      End Sub 'RemoveFileCommands
      
      
      Protected Sub Track1Mp3_Click(sender As Object, e As EventArgs)
         Folder1.CssClass = "UnselectedFile"
         Track1Mp3.CssClass = "SelectedFile"
         Track2Mp3.CssClass = "UnselectedFile"
         Track3Mp3.CssClass = "UnselectedFile"
         LoadDynamicTemplate("Track1")
         AddFileCommands()
      End Sub 'Track1Mp3_Click
      
      
      Protected Sub Track2Mp3_Click(sender As Object, e As EventArgs)
         Folder1.CssClass = "UnselectedFile"
         Track2Mp3.CssClass = "SelectedFile"
         Track1Mp3.CssClass = "UnselectedFile"
         Track3Mp3.CssClass = "UnselectedFile"
         LoadDynamicTemplate("Track2")
         AddFileCommands()
      End Sub 'Track2Mp3_Click
      
      
      Protected Sub Track3Mp3_Click(sender As Object, e As EventArgs)
         Folder1.CssClass = "UnselectedFile"
         Track3Mp3.CssClass = "SelectedFile"
         Track1Mp3.CssClass = "UnselectedFile"
         Track2Mp3.CssClass = "UnselectedFile"
         LoadDynamicTemplate("Track3")
         AddFileCommands()
      End Sub 'Track3Mp3_Click
      
      
      Protected Sub Folder1_Click(sender As Object, e As EventArgs)
         Folder1.CssClass = "SelectedFile"
         Track3Mp3.CssClass = "UnselectedFile"
         Track1Mp3.CssClass = "UnselectedFile"
         Track2Mp3.CssClass = "UnselectedFile"
         LoadDynamicTemplate("DefaultDetails")
         RemoveFileCommands()
      End Sub 'Folder1_Click
      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.PanelbarTypes.SideBar