以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  HTML编辑器请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85672)
--  作者：ljh29206
--  发布时间：2016/5/31 15:21:00
--  HTML编辑器请教

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=57269&skin=0

连接如上

请问  由于我 用来编辑的框框很小

能否把  那个工具栏全部隐藏掉、？

可有这个隐藏的代码？

另外请教

webBrowser.text  提示没这个属性

能否 在afterload 事件里面

先对  HTML 的 内容进行赋值
[此贴子已经被作者于2016/5/31 15:27:47编辑过]
--  作者：Hyphen
--  发布时间：2016/5/31 15:51:00
--  
打开：kindeditor\\e.html,改下面一段内容

items: [
                \'undo\', \'redo\', \'|\', \'cut\', \'copy\', \'paste\',
                \'plainpaste\', \'wordpaste\', \'|\', \'justifyleft\', \'justifycenter\', \'justifyright\',
                \'justifyfull\', \'insertorderedlist\', \'insertunorderedlist\', \'indent\', \'outdent\', \'subscript\',
                \'superscript\', \'|\', \'clearhtml\', \'quickformat\', \'selectall\', \'flash\', \'table\', \'hr\', \'emoticons\', \'baidumap\', \'pagebreak\', \'/\',
                \'formatblock\', \'fontname\', \'fontsize\', \'|\', \'forecolor\', \'hilitecolor\', \'bold\',
                \'italic\', \'underline\', \'strikethrough\', \'lineheight\', \'removeformat\', \'|\', \'image\', \'multiimage\',

                 \'link\', \'unlink\', \'|\', \'template\', \'code\', \'source\', \'preview\',
]
--  作者：大红袍
--  发布时间：2016/5/31 16:01:00
--  

隐藏

 

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
--  作者：大红袍
--  发布时间：2016/5/31 16:04:00
--  

赋值这样写

 

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("内容")
--  作者：ljh29206
--  发布时间：2016/5/31 17:32:00
--  
多谢2位版主，好了