defaultvb.aspx.vb

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

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Data.OleDb
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.Programming.ServerSideAPI
   
   '/ <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 i As Integer
         
         If Not Page.IsPostBack Then
            Dim OldDbCon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Request.MapPath("..\DataBinding\Panelbar.mdb") + ";User ID=;Password=;")
            Dim adpPanelBar As New OleDbDataAdapter("SELECT * FROM Panelbar", OldDbCon)
            Dim dsPanelBar As New DataSet()
            adpPanelBar.Fill(dsPanelBar)
            
            Dim dataTable As DataTable = dsPanelBar.Tables(0)
            Dim ColumnID As DataColumn = dataTable.Columns("ID")
            Dim ColumnParentID As DataColumn = dataTable.Columns("ParentID")
            
            dsPanelBar.Relations.Add("NodeRelation", ColumnID, ColumnParentID)
            
            For i = 0 To dataTable.Rows.Count - 1
               If dataTable.Rows(i).IsNull("ParentID") Then
                  RecursivePopulatePanelbar(RadPanelbar1, RadPanelbar1.PanelItems, dataTable.Rows(i))
               End If
            Next i
            
            RadPanelbar1.PanelItems(0).Expanded = True
            RadPanelbar1.PanelItems(1).Expanded = False
         End If
      End Sub 'Page_Load
      
      
      Private Sub RecursivePopulatePanelbar(parent As System.Web.UI.Control, items As PanelItems, dataRow As DataRow)
         Dim panelItem As New PanelItem(parent, RadPanelbar1)
         
         If Not dataRow.IsNull("ID") Then
            panelItem.ID = CStr(dataRow("ID"))
         End If
         If Not dataRow.IsNull("Label") Then
            panelItem.Text = CStr(dataRow("Label"))
         End If
         If Not dataRow.IsNull("Expanded") Then
            panelItem.Expanded = System.Convert.ToBoolean(dataRow("Expanded").ToString())
         End If
         If Not dataRow.IsNull("Enabled") Then
            panelItem.Enabled = System.Convert.ToBoolean(dataRow("Enabled").ToString())
         End If
         If TypeOf parent Is RadPanelbar Then
            panelItem.ImageCollapsed = "HeaderCollapsedImage.gif"
            panelItem.ImageExpanded = "HeaderExpandedImage.gif"
            panelItem.ImageHoverCollapsed = "HeaderHoverImage.gif"
            panelItem.ImageHoverExpanded = "HeaderHoverImage.gif"
            panelItem.ImagePosition = ImagePosition.Right
         End If
         
         items.Add(panelItem)
         
         Dim childRow As DataRow
         For Each childRow In  dataRow.GetChildRows("NodeRelation")
            RecursivePopulatePanelbar(panelItem, panelItem.PanelItems, childRow)
         Next childRow
      End Sub 'RecursivePopulatePanelbar
      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.ServerSideAPI