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


Namespace Telerik.EditorExamplesVBNET.Editor.Examples.ToolbarMode
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected WithEvents ChooseToolbarMode As System.Web.UI.WebControls.DropDownList
      Protected Radeditor1 As Telerik.WebControls.RadEditor
      Protected Radeditor2 As Telerik.WebControls.RadEditor
      Protected Radeditor3 As Telerik.WebControls.RadEditor
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         ' Put user code to initialize the page here
         Radeditor1.ToolbarMode = Telerik.WebControls.EditorToolbarMode.ShowOnFocus
         Radeditor2.ToolbarMode = Telerik.WebControls.EditorToolbarMode.ShowOnFocus
         Radeditor3.ToolbarMode = Telerik.WebControls.EditorToolbarMode.ShowOnFocus
      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
      Private Sub ChooseToolbarMode_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles ChooseToolbarMode.SelectedIndexChanged
         
         Dim NewMode As Telerik.WebControls.EditorToolbarMode = CType([Enum].Parse(GetType(Telerik.WebControls.EditorToolbarMode), ChooseToolbarMode.SelectedItem.Value), Telerik.WebControls.EditorToolbarMode)
         
         Radeditor1.ToolbarMode = NewMode
         Radeditor2.ToolbarMode = NewMode
         Radeditor3.ToolbarMode = NewMode
      End Sub 'ChooseToolbarMode_SelectedIndexChanged
   End Class 'DefaultVB
End Namespace 'Telerik.EditorExamplesVBNET.Editor.Examples.ToolbarMode