易语言组合框和列表框问题

.版本 2

.程序集 窗口程序集1

.程序集变量 效果, 文本型, , "0"

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

.局部变量 n, 整数型

置随机数种子 ()

.计次循环首 (10, n)

    列表框1.加入项目 (“效果-” ＋ 到文本 (n), n)

    加入成员 (效果, “不知你要啥效果” ＋ 到文本 (取随机数 (1, 999999)))

.计次循环尾 ()

.子程序 _列表框1_双击选择

列表框2.加入项目 (列表框1.取项目文本 (列表框1.现行选中项), 列表框1.取项目数值 (列表框1.现行选中项))

列表框1.删除项目 (列表框1.现行选中项)

.子程序 _列表框2_双击选择

列表框1.加入项目 (列表框2.取项目文本 (列表框2.现行选中项), 列表框1.取项目数值 (列表框2.现行选中项))

列表框2.删除项目 (列表框2.现行选中项)

.子程序 _按钮1_被单击

.局部变量 n, 整数型

组合框1.清空 ()

.计次循环首 (列表框2.取项目数 (), n)

    组合框1.加入项目 (列表框2.取项目文本 (n － 1), 列表框2.取项目数值 (n － 1))

.计次循环尾 ()

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

.局部变量 索引号, 整数型

索引号 ＝ 组合框1.取项目数值 (组合框1.现行选中项)

.如果真 (索引号 ≤ 0 或 索引号 ＞ 取数组成员数 (效果))

    信息框 (“致命错误！”, 0, )

    返回 ()

.如果真结束

信息框 (“你执行了：” ＋ 效果 [索引号] ＋ “(” ＋ 组合框1.取项目文本 (组合框1.现行选中项) ＋ “)”, 0, )

' 执行这里你自己灵活应用一下吧，哥实在不知你想要啥！

o(︶︿︶)o 唉，悲催！

你这都差不多等于定制软件了