我输了...拷贝代码进去。
afterload代码是
Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
'web.OfficeToolBar = True
web.Address = ProjectPath & "kindeditor\e.html"
If Tables("个案申请").current IsNot Nothing Then
e.Form.Controls("TextBox1").text = Tables("个案申请").current("内容")
End If
e.Form.TimerEnabled = True
e.Form.TimerInterval = 500
timeclick代码是
If e.form.ExistControl("WebBrowser1") Then
If e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames.Count > 0 Then
If Vars("编辑器校验")=0 Then
If Tables("个案申请").current IsNot Nothing Then
e.form.controls("WebBrowser1").Enabled = Tables("个案申请").current.IsNull("审核")
e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = Tables("个案申请").current("内容")
End If
Vars("编辑器校验")=1
Else If Vars("编辑器校验")=2 Then
e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = ""
Vars("编辑器校验")=1
End If
e.Form.Controls("TextBox1").text = e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml
End If
End If
[此贴子已经被作者于2014-4-23 16:32:53编辑过]