- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]KindEditor问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=190188)
-- 发布时间：2024/1/23 13:02:00
-- [求助]KindEditor问题
窗口
Afterload事件代码：
Dim wb = e.Form.Controls("webBrowser1").BaseControl
wb.Url = New System.Uri(ProjectPath & "KindEditor\\a.html", System.UriKind.Absolute)
Dim ke As New KindEditor \'必须创建一个新实例
wb.ObjectForScripting = ke
wb.Url = New System.Uri(ProjectPath & "KindEditor\\a.html", System.UriKind.Absolute)
Dim ke As New KindEditor \'必须创建一个新实例
wb.ObjectForScripting = ke
想实现效果：在富文本框里面输入“测试<sup>2</sup>”这段源码
点击按钮，把这段源码添加到指定表、新增行中
Click事件代码：
Dim wb = e.Form.Controls("WebBrowser1").BaseControl
Dim ke = wb.ObjectForScripting
Dim r As Row = Tables("表A").Current
If r IsNot Nothing Then
r("笔记") = ke.FullHtml
End If
Dim ke = wb.ObjectForScripting
Dim r As Row = Tables("表A").Current
If r IsNot Nothing Then
r("笔记") = ke.FullHtml
End If
但是这段代码是无效的，请各位大大教我，谢谢麻烦。
[此贴子已经被作者于2024/1/23 13:04:59编辑过]
-- 发布时间：2024/1/23 13:37:00
--
请上传实例说明