易语言卷帘式菜单的简单使用例程

.版本 2
.支持库 iext3

.程序集 窗口程序集1

.子程序 _按钮_加入菜单_被单击
.局部变量 i, 整数型

.判断开始 (编辑框_菜单名称.内容 ≠ “”)
    .判断开始 (卷帘式菜单_测试.加入菜单 (编辑框_菜单名称.内容, , ))
        编辑框_菜单名称.内容 ＝ “”
        组合框_菜单索引.清空 ()
        .计次循环首 (卷帘式菜单_测试.取菜单数 (), i)
            组合框_菜单索引.加入项目 (到文本 (i － 1), )
        .计次循环尾 ()
    .默认

    .判断结束

.默认

.判断结束


.子程序 _按钮_删除菜单_被单击
.局部变量 i, 整数型

.判断开始 (组合框_菜单索引.现行选中项 ＝ -1)
    卷帘式菜单_测试.删除菜单 (-1)
.默认
    卷帘式菜单_测试.删除菜单 (到整数 (组合框_菜单索引.取项目文本 (组合框_菜单索引.现行选中项)))
    组合框_菜单索引.清空 ()
    .计次循环首 (卷帘式菜单_测试.取菜单数 (), i)
        组合框_菜单索引.加入项目 (到文本 (i － 1), )
    .计次循环尾 ()
.判断结束


.子程序 _按钮_加入项目_被单击
.局部变量 i, 整数型

.判断开始 (编辑框_项目名称.内容 ≠ “” 且 组合框_菜单索引.现行选中项 ≠ -1)
    .判断开始 (卷帘式菜单_测试.加入项目 (编辑框_项目名称.内容, 到整数 (组合框_菜单索引.取项目文本 (组合框_菜单索引.现行选中项)), , , ))
        编辑框_项目名称.内容 ＝ “”
        组合框_项目索引.清空 ()
        .计次循环首 (卷帘式菜单_测试.取项目数 (到整数 (组合框_菜单索引.取项目文本 (组合框_菜单索引.现行选中项))), i)
            组合框_项目索引.加入项目 (到文本 (i － 1), )
        .计次循环尾 ()
    .默认

    .判断结束

.默认

.判断结束


.子程序 _按钮_删除项目_被单击
.局部变量 i, 整数型

.判断开始 (组合框_项目索引.现行选中项 ＝ -1 且 组合框_菜单索引.现行选中项 ≠ -1)
    卷帘式菜单_测试.删除项目 (-1, 到整数 (组合框_菜单索引.取项目文本 (组合框_菜单索引.现行选中项)))
.默认
    卷帘式菜单_测试.删除项目 (到整数 (组合框_项目索引.取项目文本 (组合框_项目索引.现行选中项)), 到整数 (组合框_菜单索引.取项目文本 (组合框_菜单索引.现行选中项)))
    组合框_项目索引.清空 ()
    .计次循环首 (卷帘式菜单_测试.取项目数 (到整数 (组合框_菜单索引.取项目文本 (组合框_菜单索引.现行选中项))), i)
        组合框_项目索引.加入项目 (到文本 (i － 1), )
    .计次循环尾 ()
.判断结束


.子程序 _组合框_菜单索引_列表项被选择
.局部变量 菜单索引, 整数型
.局部变量 num, 整数型
.局部变量 i, 整数型

菜单索引 ＝ 到整数 (组合框_菜单索引.取项目文本 (组合框_菜单索引.现行选中项))
num ＝ 卷帘式菜单_测试.取项目数 (菜单索引)
组合框_项目索引.清空 ()
.计次循环首 (num, i)
    组合框_项目索引.加入项目 (到文本 (i － 1), )
.计次循环尾 ()

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

@SourceCode