.版本 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), ) .计次循环尾 () .子程序 __启动窗口_创建完毕