检测Bug 优化bug 重新完整代码版本 2支持库 xplib支持库 iext支持库 eDB支持库 spec_启动窗口高度 ＝ _启动窗口高度 ＋ 564 － _启动窗口取用户区高度 _启动窗口宽度 ＝ _启动窗口宽度 ＋ 226 － _启动窗口取用户区宽度 XP风格 2树型框1图片组 ＝ #图片组超级列表框1图片组 ＝ #图片组如果真 文件是否存在 datamdb ＝ 假 写到文件 dat
重构后的代码
.版本 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
原文地址: http://www.cveoy.top/t/topic/bzlO 著作权归作者所有。请勿转载和采集!