defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

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


Namespace Telerik.EditorExamplesVBNET.Editor.Examples.EditorFilters
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected editor1 As RadEditor
      Protected cbStripAbsoluteAnchorPaths As CheckBox
      Protected cbStripAbsoluteImagesPaths As CheckBox
      Protected cbEnableHtmlIndentation As CheckBox
      Protected cbConvertTagToLower As CheckBox
      Protected cbConvertFontToSpan As CheckBox
      Protected cbConvertToXhtml As CheckBox
      Protected cbAllowScripts As CheckBox
      Protected txtAnchorPathToStrip As TextBox
      Protected txtImagesPathToStrip As TextBox
      Protected WithEvents btnApply As Button
      Private Sub Page_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         If Not Page.IsPostBack Then
            txtAnchorPathToStrip.Text = "http://" + Request.ServerVariables("SERVER_NAME")
            txtImagesPathToStrip.Text = "http://" + Request.ServerVariables("SERVER_NAME")
            cbAllowScripts.Checked = editor1.AllowScripts
            cbConvertTagToLower.Checked = editor1.ConvertTagsToLower
            cbConvertFontToSpan.Checked = editor1.ConvertFontToSpan
            cbConvertToXhtml.Checked = editor1.ConvertToXhtml
            cbStripAbsoluteAnchorPaths.Checked = editor1.StripAbsoluteAnchorPaths
            cbStripAbsoluteImagesPaths.Checked = editor1.StripAbsoluteImagesPaths
            SetEditorProperties()
         End If
      End Sub 'Page_Load
      
      
      Private Sub btnApply_Click(sender As Object, e As EventArgs) Handles btnApply.Click
         SetEditorProperties()
      End Sub 'btnApply_Click
      '/ <summary>
      '/ The settings from the form fields are being applied to r.a.d.editor here.
      '/ </summary>
      Private Sub SetEditorProperties()
         'Properties related to stripping the absolute Link href attribute
         editor1.StripAbsoluteAnchorPaths = cbStripAbsoluteAnchorPaths.Checked
         editor1.AnchorPathToStrip = txtAnchorPathToStrip.Text
         
         'Properties related to stripping the absolute Image src attribute
         editor1.StripAbsoluteImagesPaths = cbStripAbsoluteImagesPaths.Checked
         editor1.ImagesPathToStrip = txtImagesPathToStrip.Text
         
         'Enabling the conversion of the HTML tags to Xhtml compatible lower-case tags
         editor1.ConvertTagsToLower = cbConvertTagToLower.Checked
         
         'Enabling the conversion of FONT tags to SPAN tags
         editor1.ConvertFontToSpan = cbConvertFontToSpan.Checked
         
         'Enabling the conversion to Xhtml output
         editor1.ConvertToXhtml = cbConvertToXhtml.Checked
         
         'Enabling the ability to insert client-side scripts in the content
         editor1.AllowScripts = cbAllowScripts.Checked
      End Sub 'SetEditorProperties
      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.EditorExamplesVBNET.Editor.Examples.EditorFilters