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.QuickStart
Imports Telerik.WebControls


Namespace Telerik.ToolbarExamplesVB.Toolbar.Examples.Programming.DataBinding
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected toolbar1 As RadToolbar
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         'Declare the databinding mappings
         toolbar1.ButtonCommandField = "CommandName"
         toolbar1.ButtonImageField = "ButtonImage"
         AddHandler toolbar1.ItemDataBound, AddressOf toolbar1_ItemDataBound
         
         If Not Page.IsPostBack Then
            Dim dt As New DataTable()
            dt.Columns.Add("CommandName")
            dt.Columns.Add("ToolTip")
            dt.Columns.Add("ButtonImage")
            
            Dim dr As DataRow = dt.NewRow()
            dr("CommandName") = "new"
            dr("ToolTip") = "New Document"
            dr("ButtonImage") = "new.gif"
            dt.Rows.Add(dr)
            
            Dim dr1 As DataRow = dt.NewRow()
            dr1("CommandName") = "open"
            dr1("ToolTip") = "Open Document"
            dr1("ButtonImage") = "open.gif"
            dt.Rows.Add(dr1)
            
            Dim dr2 As DataRow = dt.NewRow()
            dr2("CommandName") = "save"
            dr2("ToolTip") = "Save Document"
            dr2("ButtonImage") = "save.gif"
            dt.Rows.Add(dr2)
            
            toolbar1.DataSource = dt
            toolbar1.DataBind()
         End If
      End Sub 'Page_Load
      
      
      'You can perform more advanced databinding here:
      Private Sub toolbar1_ItemDataBound(sender As Object, e As RadToolbarItemDataBoundEventArgs)
         e.Button.ToolTip = Convert.ToString(DataBinder.GetPropertyValue(e.DataItem, "ToolTip"))
      End Sub 'toolbar1_ItemDataBound
      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.ToolbarExamplesVB.Toolbar.Examples.Programming.DataBinding