重构后的代码

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

_启动窗口.高度 += 564 - _启动窗口.取用户区高度() _启动窗口.宽度 += 226 - _启动窗口.取用户区宽度() XP风格(2)

树型框1.图片组 = #图片组 超级列表框1.图片组 = #图片组

检测并创建数据库

if not 文件是否存在('data.mdb'): 写到文件('data.mdb', #data)

主连接.连接Access('data.mdb', '') 信息表.置连接(主连接)

加载列表数据

列表()

设置窗口属性

延迟(50) 置托盘图标(_启动窗口.图标, 'Hi-WebCollect') _启动窗口.位置 = 2 _启动窗口.位置 = 0