|
发表于 2013-7-17 17:14:01
|
显示全部楼层
广东省汕头市
- .版本 2
- .支持库 iext
- .程序集 窗口程序集1
- .程序集变量 配置文件名, 文本型
- .子程序 __启动窗口_创建完毕
- .局部变量 数组, 文本型, , "0"
- .局部变量 文本, 文本型
- .局部变量 计次, 整数型
- 配置文件名 = 取运行目录 () + “\set.ini”
- .如果真 (文件是否存在 (配置文件名))
- .循环判断首 ()
- 计次 = 计次 + 1
- 文本 = 读配置项 (配置文件名, “按钮名称”, 到文本 (计次), )
- .如果真 (文本 ≠ “”)
- 工具条1.插入按钮 (, , 5, 文本, , )
- .如果真结束
- .循环判断尾 (文本 ≠ “”)
- .如果真结束
- .子程序 _按钮1_被单击
- 工具条1.插入按钮 (, , 5, 编辑框1.内容, , )
- 写配置文件 (编辑框1.内容)
- .子程序 写配置文件
- .参数 按键名称, 文本型
- .局部变量 计次, 整数型
- .局部变量 文本, 文本型
- .如果 (文件是否存在 (配置文件名))
- .循环判断首 ()
- 计次 = 计次 + 1
- 文本 = 读配置项 (配置文件名, “按钮名称”, 到文本 (计次), )
- .循环判断尾 (文本 ≠ “”)
- 写配置项 (配置文件名, “按钮名称”, 到文本 (计次), 按键名称)
- .否则
- 写配置项 (配置文件名, “按钮名称”, 到文本 (1), 按键名称)
- .如果结束
- .子程序 _工具条1_被单击
- .参数 按钮索引, 整数型
- .判断开始 (按钮索引 = 0)
- 信息框 (“1按钮”, 0, )
- .判断 (按钮索引 = 1)
- 信息框 (“2按钮”, 0, )
- .判断 (按钮索引 = 2) ' 插入的按钮怎么写按钮索引值,先行感谢!
- .默认
- .判断结束
复制代码 亲,如果适用,请给最佳 |
|