组合框读配置项问题

KKRoot

想要做成图三效果，币不够回复附件我给你加 菜单.zip (252.09 KB, 下载次数: 6)

2021-11-1 19:54 上传

点击文件名下载附件

nevergiveup520

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文件名	文本型
date	文本型	0

子程序名	返回值类型	公开	备 注
子程序2

文件名 ＝ 取运行目录 () ＋ “\菜单.ini”
date ＝ 取配置节名 (文件名)

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
i	整数型

文件名 ＝ 取运行目录 () ＋ “\菜单.ini”
date ＝ 取配置节名 (文件名)
计次循环首 (取数组成员数 (date) － 1, i)
' 调试输出 (读配置项 (文件名, 到文本 (i), “菜单名”, ))
读配置项 (文件名, 到文本 (i), “方式”, )
读配置项 (文件名, 到文本 (i), “金币”, )
组合框1.加入项目 (“菜单” ＋ date [i ＋ 1] ＋ “----” ＋ 读配置项 (文件名, 到文本 (i), “菜单名”, ), )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序1 ()
组合框1.现行选中项 ＝ 0

子程序名	返回值类型	公开	备 注
_组合框1_列表项被选择

标签3.标题 ＝ 读配置项 (文件名, 到文本 (组合框1.现行选中项 ＋ 1), “方式”, )
标签4.标题 ＝ 读配置项 (文件名, 到文本 (组合框1.现行选中项 ＋ 1), “金币”, )
调试输出 (标签3.标题)

子程序名	返回值类型	公开	备 注
__启动窗口_被激活

标签3.标题 ＝ 读配置项 (文件名, 到文本 (组合框1.现行选中项 ＋ 1), “方式”, )
标签4.标题 ＝ 读配置项 (文件名, 到文本 (组合框1.现行选中项 ＋ 1), “金币”, )
调试输出 (标签3.标题)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文件名, 文本型<br /> .程序集变量 date, 文本型, , "0"<br /> <br /> .子程序 子程序2<br /> <br /> 文件名 ＝ 取运行目录 () ＋ “\菜单.ini”<br /> date ＝ 取配置节名 (文件名)<br /> <br /> .子程序 子程序1<br /> .局部变量 i, 整数型<br /> <br /> 文件名 ＝ 取运行目录 () ＋ “\菜单.ini”<br /> date ＝ 取配置节名 (文件名)<br /> <br /> .计次循环首 (取数组成员数 (date) － 1, i)<br />     ' 调试输出 (读配置项 (文件名, 到文本 (i), “菜单名”, ))<br />     读配置项 (文件名, 到文本 (i), “方式”, )<br />     读配置项 (文件名, 到文本 (i), “金币”, )<br />     组合框1.加入项目 (“菜单” ＋ date [i ＋ 1] ＋ “----” ＋ 读配置项 (文件名, 到文本 (i), “菜单名”, ), )<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 子程序1 ()<br /> 组合框1.现行选中项 ＝ 0<br /> <br /> .子程序 _组合框1_列表项被选择<br /> <br /> <br /> 标签3.标题 ＝ 读配置项 (文件名, 到文本 (组合框1.现行选中项 ＋ 1), “方式”, )<br /> 标签4.标题 ＝ 读配置项 (文件名, 到文本 (组合框1.现行选中项 ＋ 1), “金币”, )<br /> 调试输出 (标签3.标题)<br /> <br /> .子程序 __启动窗口_被激活<br /> <br /> 标签3.标题 ＝ 读配置项 (文件名, 到文本 (组合框1.现行选中项 ＋ 1), “方式”, )<br /> 标签4.标题 ＝ 读配置项 (文件名, 到文本 (组合框1.现行选中项 ＋ 1), “金币”, )<br /> 调试输出 (标签3.标题)

kerry9

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
arr	文本型		0
a	整数型
sy	整数型

arr ＝ 取配置节名 (取运行目录 () ＋ “/菜单.ini”)
计次循环首 (取数组成员数 (arr), a)
如果真 (到数值 (arr [a]) ≤ 0)
sy ＝ 到数值 (读配置项 (取运行目录 () ＋ “/菜单.ini”, arr [a], “菜单”, ))
到循环尾 ()
组合框1.加入项目 (读配置项 (取运行目录 () ＋ “/菜单.ini”, arr [a], “菜单名”, ), 到数值 (arr [a]))
计次循环尾 ()
组合框1.现行选中项 ＝ sy － 1
_组合框1_列表项被选择 ()

子程序名	返回值类型	公开	备 注
_组合框1_列表项被选择

标签3.标题 ＝ 读配置项 (取运行目录 () ＋ “/菜单.ini”, 到文本 (组合框1.取项目数值 (组合框1.现行选中项)), “方式”, )
标签4.标题 ＝ 读配置项 (取运行目录 () ＋ “/菜单.ini”, 到文本 (组合框1.取项目数值 (组合框1.现行选中项)), “金币”, )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 sy, 整数型<br /> <br /> arr ＝ 取配置节名 (取运行目录 () ＋ “/菜单.ini”)<br /> .计次循环首 (取数组成员数 (arr), a)<br />     .如果真 (到数值 (arr [a]) ≤ 0)<br />         sy ＝ 到数值 (读配置项 (取运行目录 () ＋ “/菜单.ini”, arr [a], “菜单”, ))<br />         到循环尾 ()<br />     .如果真结束<br />     组合框1.加入项目 (读配置项 (取运行目录 () ＋ “/菜单.ini”, arr [a], “菜单名”, ), 到数值 (arr [a]))<br /> .计次循环尾 ()<br /> 组合框1.现行选中项 ＝ sy － 1<br /> _组合框1_列表项被选择 ()<br /> <br /> .子程序 _组合框1_列表项被选择<br /> <br /> 标签3.标题 ＝ 读配置项 (取运行目录 () ＋ “/菜单.ini”, 到文本 (组合框1.取项目数值 (组合框1.现行选中项)), “方式”, )<br /> 标签4.标题 ＝ 读配置项 (取运行目录 () ＋ “/菜单.ini”, 到文本 (组合框1.取项目数值 (组合框1.现行选中项)), “金币”, )

KKRoot

kerry9 发表于 2021-11-1 20:09
[e=3].版本 2

.程序集 窗口程序集_启动窗口

你好，请看效果图，我要把配置项的对应序号也放在组合框里。但这个只有菜单名没有序号。

kerry9

KKRoot 发表于 2021-11-1 20:21
你好，请看效果图，我要把配置项的对应序号也放在组合框里。但这个只有菜单名没有序号。 ...

组合框1.加入项目 (arr [a]+读配置项 (取运行目录 () ＋ “/菜单.ini”, arr [a], “菜单名”, ), 到数值 (arr [a]))

nevergiveup520

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 文件名, 文本型
.程序集变量 date, 文本型, , "0"

.子程序 子程序2

文件名 ＝ 取运行目录 () ＋ “\菜单.ini”
date ＝ 取配置节名 (文件名)

.子程序 子程序1
.局部变量 i, 整数型

文件名 ＝ 取运行目录 () ＋ “\菜单.ini”
date ＝ 取配置节名 (文件名)

.计次循环首 (取数组成员数 (date) － 1, i)
    ' 调试输出 (读配置项 (文件名, 到文本 (i), “菜单名”, ))
    读配置项 (文件名, 到文本 (i), “方式”, )
    读配置项 (文件名, 到文本 (i), “金币”, )
    组合框1.加入项目 (“菜单” ＋ date [i ＋ 1] ＋ “----” ＋ 读配置项 (文件名, 到文本 (i), “菜单名”, ), )
.计次循环尾 ()


.子程序 __启动窗口_创建完毕

子程序1 ()
组合框1.现行选中项 ＝ 0

.子程序 _组合框1_列表项被选择


标签3.标题 ＝ 读配置项 (文件名, 到文本 (组合框1.现行选中项 ＋ 1), “方式”, )
标签4.标题 ＝ 读配置项 (文件名, 到文本 (组合框1.现行选中项 ＋ 1), “金币”, )
调试输出 (标签3.标题)

.子程序 __启动窗口_被激活

标签3.标题 ＝ 读配置项 (文件名, 到文本 (组合框1.现行选中项 ＋ 1), “方式”, )
标签4.标题 ＝ 读配置项 (文件名, 到文本 (组合框1.现行选中项 ＋ 1), “金币”, )
调试输出 (标签3.标题)

nevergiveup520

代码见6楼！