优化代码版本 2支持库 xplib支持库 iext支持库 eDB支持库 spec程序集 窗口程序集1程序集变量 编辑前项目文本 文本型子程序 _退出_被选择销毁 子程序 __启动窗口_创建完毕_启动窗口高度 ＝ _启动窗口高度 ＋ 564 － _启动窗口取用户区高度 _启动窗口宽度 ＝ _启动窗口宽度 ＋ 226 － _启动窗口取用户区宽度 XP风格 2树型框1图片组 ＝ #图片组超级列表框1图片

.版本 2 .支持库 xplib, iext, eDB, spec

.程序集 窗口程序集1 .程序集变量 编辑前项目文本, 文本型

.子程序 _退出_被选择 销毁()

.子程序 __启动窗口_创建完毕 _启动窗口.高度 += 564 - _启动窗口.取用户区高度() _启动窗口.宽度 += 226 - _启动窗口.取用户区宽度() XP风格(2) 树型框1.图片组 = #图片组 超级列表框1.图片组 = #图片组 如果文件是否存在("data.mdb") = 假 写到文件("data.mdb", #data) 如果真结束 主连接.连接Access("data.mdb", "") 信息表.置连接(主连接) 列表() 延迟(50) 置托盘图标(_启动窗口.图标, "Hi-WebCollect") _启动窗口.位置 = 2 _启动窗口.位置 = 0