主题：HTML编辑器请教

隐藏

Dim web As Object = e.Form.Controls("WebBrowser1").basecontrol

For Each div As object In web.Document.GetElementsByTagName("div")
    If div.GetAttribute("ClassName") = "ke-toolbar" Then
        vars("toolbar") = div.OuterHtml
        div.OuterHtml = ""
        web.height -= 50
    ElseIf div.GetAttribute("ClassName") = "ke-statusbar" Then
        div.OuterHtml = ""
    End If
Next

显示

Dim web As Object = e.Form.Controls("WebBrowser1").basecontrol

For Each div As object In web.Document.GetElementsByTagName("div")
    If div.GetAttribute("ClassName") = "ke-container ke-container-default" Then
        div.innerHtml = vars("toolbar") & div.InnerHtml
        web.height += 50
    End If
Next

赋值这样写

Dim webBrowser As Object = e.Form.Controls("WebBrowser1").basecontrol
webBrowser.Url = new System.Uri(ProjectPath & "kindeditor\e.html", System.UriKind.Absolute)
EditorHelper = new ObjectForScriptingHelper
webBrowser.ObjectForScripting = EditorHelper

EditorHelper.RequestContent("内容")