易语言列表框组合框问题

.版本 2

.程序集 窗口程序集1

.程序集变量 我变, 文本型

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

.如果真 (列表框1.现行选中项 ＝ 0)

    组合框1.加入项目 (“一刀破天”, )

    组合框1.加入项目 (“飞流直下”, )

    组合框1.加入项目 (“海阔天空”, )

.如果真结束

.如果真 (列表框1.现行选中项 ＝ 1)

    组合框1.加入项目 (“夜半幽魂”, )

    组合框1.加入项目 (“千千静听”, )

    组合框1.加入项目 (“雷神共愤”, )

.如果真结束

.如果真 (列表框1.现行选中项 ＝ 2)

    组合框1.加入项目 (“鸡蛋撞石头”, )

    组合框1.加入项目 (“鸟过流翅”, )

    组合框1.加入项目 (“飞鹰跌雪”, )

.如果真结束

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

.如果真 (列表框1.现行选中项 ＝ 0)

    我变 ＝ “人”

.如果真结束

.如果真 (列表框1.现行选中项 ＝ 1)

    我变 ＝ “鬼”

.如果真结束

.如果真 (列表框1.现行选中项 ＝ 2)

    我变 ＝ “兽”

.如果真结束

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

.如果真 (我变 ＝ “人”)

    .如果真 (组合框1.现行选中项 ＝ 4 或 组合框1.现行选中项 ＝ 5 或 组合框1.现行选中项 ＝ 6 或 组合框1.现行选中项 ＝ 7 或 组合框1.现行选中项 ＝ 8 或 组合框1.现行选中项 ＝ 9)

        信息框 (“你是人不是鬼,请从新选择技能”, 0, “提示:”)

    .如果真结束

.如果真结束

.如果真 (我变 ＝ “鬼”)

    .如果真 (组合框1.现行选中项 ＝ 1 或 组合框1.现行选中项 ＝ 2 或 组合框1.现行选中项 ＝ 3 或 组合框1.现行选中项 ＝ 7 或 组合框1.现行选中项 ＝ 8 或 组合框1.现行选中项 ＝ 9)

        信息框 (“你是鬼不是人,请从新选择技能”, 0, “提示:”)

    .如果真结束

.如果真结束

.如果真 (我变 ＝ “鬼”)

    .如果真 (组合框1.现行选中项 ＝ 1 或 组合框1.现行选中项 ＝ 2 或 组合框1.现行选中项 ＝ 3 或 组合框1.现行选中项 ＝ 4 或 组合框1.现行选中项 ＝ 5 或 组合框1.现行选中项 ＝ 6)

        信息框 (“你是兽不是鬼,请从新选择技能”, 0, “提示:”)

窗口上放一个 组合框 和一个 列表框 在复制以下代码就行了

.版本 2

.程序集 窗口程序集1

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

列表框1.清空 ()
列表框1.加入项目 (“人”, )
列表框1.加入项目 (“兽”, )
列表框1.加入项目 (“鬼”, )
组合框1.现行选中项 ＝ 0
组合框1.类型 ＝ 2

.子程序 _列表框1_列表项被选择
.局部变量 i, 整数型

组合框1.清空 ()
.如果真 (列表框1.取项目文本 (列表框1.现行选中项) ＝ “人”)
.计次循环首 (10, i)
组合框1.加入项目 (到文本 (i), )
.计次循环尾 ()
组合框1.现行选中项 ＝ 0
返回 ()
.如果真结束
.如果真 (列表框1.取项目文本 (列表框1.现行选中项) ＝ “兽”)
.变量循环首 (11, 20, 1, i)
组合框1.加入项目 (到文本 (i), )
.变量循环尾 ()
组合框1.现行选中项 ＝ 0
返回 ()
.如果真结束
.如果真 (列表框1.取项目文本 (列表框1.现行选中项) ＝ “鬼”)
.变量循环首 (21, 30, 1, i)
组合框1.加入项目 (到文本 (i), )
.变量循环尾 ()
组合框1.现行选中项 ＝ 0
返回 ()
.如果真结束