HTML编辑器请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → HTML编辑器请教

共有2066人关注过本帖树形打印复制链接主题：HTML编辑器请教

ljh29206

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1359 积分：12028 威望：0 精华：0 注册：2012/3/5 11:32:00

HTML编辑器请教 发帖心情

Post By：2016/5/31 15:21:00 [只看该作者]

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

连接如上

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

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

可有这个隐藏的代码？

另外请教

webBrowser.text 提示没这个属性

能否在afterload 事件里面

先对 HTML 的内容进行赋值

[此贴子已经被作者于2016/5/31 15:27:47编辑过]

Hyphen

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：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',

]

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1359 积分：12028 威望：0 精华：0 注册：2012/3/5 11:32:00

Post By：2016/5/31 17:32:00 [只看该作者]

多谢2位版主，好了

下一主题 >> << 上一主题

主题：HTML编辑器请教