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

.版本 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_即将收缩, 逻辑型 .参数 项目索引, 整数型 返回 (假)
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

树形框项目切换易语言源码》有0个想法

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注