共2 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]KindEditor问题
1楼
ezilu 发表于：2024/1/23 13:02:00窗口
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编辑过]
2楼
有点蓝 发表于：2024/1/23 13:37:00请上传实例说明
共2 条记录, 每页显示 10 条, 页签:
[1]