defaultvb.aspx.vb

来自「Telerik是很大的第三方软件制造商」· VB 代码 · 共 55 行

Imports System
Imports System.Web.UI.WebControls
Imports Telerik.WebControls.RadEditorUtils


Namespace Telerik.EditorExamplesVBNET.Editor.Examples.Skinning
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected WithEvents ChooseEditorSkin As System.Web.UI.WebControls.DropDownList
      Protected WithEvents ChooseEditorCustomSkin As System.Web.UI.WebControls.DropDownList
      Protected editor1 As Telerik.WebControls.RadEditor
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
      End Sub 'Page_Load
      
      ' Put user code to initialize the page here
      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 ChooseEditorSkin_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles ChooseEditorSkin.SelectedIndexChanged
         If ChooseEditorSkin.SelectedItem.Value <> "" Then
            editor1.Skin = ChooseEditorSkin.SelectedItem.Value
            editor1.SkinsPath = "~/RadControls/Editor/Skins"
            ChooseEditorCustomSkin.SelectedIndex = 0
         End If
      End Sub 'ChooseEditorSkin_SelectedIndexChanged
      
      
      Private Sub ChooseEditorCustomSkin_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles ChooseEditorCustomSkin.SelectedIndexChanged
         If ChooseEditorCustomSkin.SelectedItem.Value <> "" Then
            editor1.Skin = ChooseEditorCustomSkin.SelectedItem.Value
            editor1.SkinsPath = "~/Editor/Examples/Skinning"
            ChooseEditorSkin.SelectedIndex = 0
         End If
      End Sub 'ChooseEditorCustomSkin_SelectedIndexChanged
   End Class 'DefaultVB 
End Namespace 'Telerik.EditorExamplesVBNET.Editor.Examples.Skinning