.版本 2 .支持库 shell .支持库 HtmlView .支持库 xplib .程序集 窗口程序集1 .子程序 _按钮_预览_被单击 编辑框1.可视 ＝ 假 写到文件 (取特定目录 (#临时文件目录) ＋ “临时.html”, 到字节集 (编辑框1.内容)) 超文本浏览框1.可视 ＝ 真 超文本浏览框1.跳转 (取特定目录 (#临时文件目录) ＋ “临时.html”, , ) .子程序 __启动窗口_尺寸被改变 编辑框1.宽度 ＝ _启动窗口.宽度 － 10 编辑框1.高度 ＝ _启动窗口.高度 － 50 超文本浏览框1.宽度 ＝ 编辑框1.宽度 超文本浏览框1.高度 ＝ 编辑框1.高度 按钮_预览.顶边 ＝ 超文本浏览框1.顶边 ＋ 超文本浏览框1.高度 按钮_清除.顶边 ＝ 超文本浏览框1.顶边 ＋ 超文本浏览框1.高度 按钮_预览.左边 ＝ (_启动窗口.宽度 － 199) ÷ 2 按钮_清除.左边 ＝ 按钮_预览.左边 ＋ 159 .子程序 _按钮_清除_被单击 超文本浏览框1.可视 ＝ 假 编辑框1.可视 ＝ 真 超文本浏览框1.跳转 (“”, , ) .子程序 __启动窗口_创建完毕 XP风格 (3)