树形框项目切换易语言源码

.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口
.程序集变量 项目_缩进层次2, 整数型
.程序集变量 项目_缩进层次2_文本, 文本型
.程序集变量 项目_缩进层次3, 整数型
.程序集变量 项目_缩进层次3_文本, 文本型

.子程序 __启动窗口_创建完毕
.局部变量 项目, 整数型
.局部变量 i, 整数型

项目 ＝ 树型框1.加入项目 (, “演示项目”, , , , , )
.计次循环首 (20, i)
    树型框1.加入项目 (项目, “演示项目” ＋ 到文本 (i), , , , , )
.计次循环尾 ()
树型框1.扩展 (项目)

.子程序 _树型框1_双击项目

_双击项目 (树型框1.取缩进层次 (树型框1.现行选中项), 树型框1.现行选中项)

.子程序 _双击项目
.参数 缩进层次, 整数型
.参数 项目, 整数型
.局部变量 项目文本, 文本型
.局部变量 i, 整数型

项目文本 ＝ 树型框1.取项目文本 (项目)
.判断开始 (缩进层次 ＝ 2)
    .如果 (项目_缩进层次2 ＞ 0)
        .判断循环首 (树型框1.是否有子项目 (项目_缩进层次2))
            树型框1.删除项目 (项目_缩进层次2 ＋ 1)
        .判断循环尾 ()
        .计次循环首 (树型框1.取项目数 (), i)
            .如果真 (文本比较 (项目文本, 树型框1.取项目文本 (i), 真) ＝ 0)
                项目_缩进层次2 ＝ i
                项目_缩进层次2_文本 ＝ 项目文本
            .如果真结束

        .计次循环尾 ()
    .否则
        项目_缩进层次2 ＝ 项目
        项目_缩进层次2_文本 ＝ 项目文本
    .如果结束
    展开项目_缩进层次2 (项目_缩进层次2)
.判断 (缩进层次 ＝ 3)
    .如果 (项目_缩进层次3 ＞ 0)
        .判断循环首 (树型框1.是否有子项目 (项目_缩进层次3))
            树型框1.删除项目 (项目_缩进层次3 ＋ 1)
        .判断循环尾 ()
        .计次循环首 (树型框1.取项目数 (), i)
            .如果真 (文本比较 (项目文本, 树型框1.取项目文本 (i), 真) ＝ 0)
                项目_缩进层次3 ＝ i
                项目_缩进层次3_文本 ＝ 项目文本
            .如果真结束

        .计次循环尾 ()
    .否则
        项目_缩进层次3 ＝ 项目
        项目_缩进层次3_文本 ＝ 项目文本
    .如果结束
    展开项目_缩进层次3 (项目_缩进层次3)
.默认

.判断结束


.子程序 展开项目_缩进层次2
.参数 项目, 整数型
.局部变量 i, 整数型

.计次循环首 (10, i)
    树型框1.加入项目 (项目, 项目_缩进层次2_文本 ＋ “_” ＋ 到文本 (i), , , , , )
.计次循环尾 ()
树型框1.扩展 (项目)

.子程序 展开项目_缩进层次3
.参数 项目, 整数型
.局部变量 i, 整数型

.计次循环首 (10, i)
    树型框1.加入项目 (项目, 项目_缩进层次3_文本 ＋ “_” ＋ 到文本 (i), , , , , )
.计次循环尾 ()
树型框1.扩展 (项目)

.子程序 _树型框1_即将收缩, 逻辑型
.参数 项目索引, 整数型

返回 (假)

@wcf147