.版本 2
.支持库 HtmlView
.子程序 编辑器内容, 文本型, 公开, 读写编辑器内容
.参数 写内容, 文本型, 可空, 空白为读取内容
.局部变量 Doc, 对象
.局部变量 Editor, 对象
.局部变量 Textarea, 对象
.局部变量 Display, 逻辑型
.局部变量 Obj, 对象
Doc ＝ 超文本浏览框1.取文档对象 ()
‘ WebBrowser.GetDocument ().对象型方法 (“getElementById”, “divid”).读属性 (“innerHTML”, )
.如果真 (取反 (Doc.是否为空 ()))
Editor ＝ Doc.对象型方法 (“getElementById”, “editor_body_area”).读对象型属性 (“contentWindow”, ).读对象型属性 (“document”, ).读对象型属性 (“body”, )
Textarea ＝ Doc.对象型方法 (“getElementById”, “editor_body_textarea”)
Display ＝ Textarea.读对象型属性 (“style”, ).读文本属性 (“display”, ) ＝ “none”
Obj ＝ 选择 (Display, Editor, Textarea)
.如果真 (取反 (是否为空 (写内容)))
Obj.写属性 (“innerHTML”, 写内容)
.如果真结束
返回 (选择 (是否为空 (写内容), Obj.读文本属性 (“innerHTML”, ), “”))
.如果真结束
返回 (“”)
