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.DataBinding
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected RadPanelbar1 As Telerik.WebControls.RadPanelbar
      Protected DataBindEvents As System.Web.UI.WebControls.Label
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         Dim OldDbCon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Request.MapPath("Panelbar.mdb") + ";User ID=;Password=;")
         Dim adpPanelBar As New OleDbDataAdapter("SELECT * FROM Panelbar", OldDbCon)
         Dim dsPanelBar As New DataSet()
         adpPanelBar.Fill(dsPanelBar)
         RadPanelbar1.DataFieldID = "ID"
         RadPanelbar1.DataFieldParentID = "ParentID"
         RadPanelbar1.DataSource = dsPanelBar
         RadPanelbar1.DataBind()
      End Sub 'Page_Load
      
      
      Protected Sub RadPanelbar1_OnPanelItemDataBound(sender As Object, e As RadPanelbarPanelItemDataBoundEventArgs)
         If Not e.DataBoundDataRow.IsNull("Label") Then
            e.DataBoundPanelItem.Text = e.DataBoundDataRow("Label").ToString()
         End If
         DataBindEvents.Text += "Binding PanelItem <b>" + e.DataBoundPanelItem.Text + "</b><br />"
      End Sub 'RadPanelbar1_OnPanelItemDataBound
      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.DataBinding