--
Dim webBrowser As Object = e.Form.Controls("WebBrowser2").basecontrol
webBrowser.Url = new System.Uri(ProjectPath & "kindeditor\\e.html", System.UriKind.Absolute)
EditorHelper = new ObjectForScriptingHelper
webBrowser.ObjectForScripting = EditorHelper
========================================================
老师,我想两个窗口合并可是两组代码不能不在一起。
\'Dim file As String = ProjectPath & "show"
\'With Tables("htm数据文件")
\' Dim html As String = FileSys.ReadAllText(file)
\' html = html.Replace("{body}", .current("内容")).Replace("{title}", .current("标题"))
\' FileSys.WriteAllText(file & ".html", html, False)
\' e.Form.Controls("WebBrowser1").Address = file & ".html"
\'e.Form.text=.current("标题") \'窗口标题改为文章标题
\'End With