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.ProgrammaticBinding
   
   '/ <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
         Dim button_new As New RadToolbarButton()
         button_new.CommandName = "new"
         button_new.ButtonImage = "new.gif"
         button_new.ToolTip = "New Document"
         
         Dim button_open As New RadToolbarButton()
         button_open.CommandName = "open"
         button_open.ButtonImage = "open.gif"
         button_open.ToolTip = "Open Document"
         
         Dim button_save As New RadToolbarButton()
         button_save.CommandName = "save"
         button_save.ButtonImage = "save.gif"
         button_save.ToolTip = "Save Document"
         
         Dim separator1 As New RadToolbarSeparator()
         
         Dim toggle1 As New RadToolbarToggleButton()
         toggle1.CommandName = "toggle"
         toggle1.Toggled = True
         toggle1.DisplayType = RadToolbarButton.ButtonDisplayType.TextOnly
         toggle1.ButtonText = "toggle button"
         toggle1.Width = Unit.Pixel(90)
         
         toolbar1.Items.Add(button_new)
         toolbar1.Items.Add(button_open)
         toolbar1.Items.Add(button_save)
         toolbar1.Items.Add(separator1)
         toolbar1.Items.Add(toggle1)
      End Sub 'Page_Load
      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.ProgrammaticBinding