窗口
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
想实现效果：在富文本框里面输入“测试<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
但是这段代码是无效的，请各位大大教我，谢谢麻烦。
[此贴子已经被作者于2024/1/23 13:04:59编辑过]
加好友 
发短信
Post By：2024/1/23 13:02:00 [只看该作者]
