E语言树形框怎么取父项目数量和子项目数量？

65s · 发表于昨天 17:34

怎么才能取全部父项目数量和当前父项目数量的子项目数量？
我看只有一个取项目数是取全部项目总和的数量。

小麒QCC · 发表于昨天 17:34

子程序名	返回值类型	公开	备注
取父项目数量	整数型

变量名	类型	静态	数组	备注
i	整数型
数量	整数型

数量＝ 0

计次循环首 (树型框1.取项目数 (), i)

如果 (树型框1.取父项目 (i － 1) ＝ -1)

数量＝数量＋ 1

计次循环尾 ()
返回 (数量)

子程序名	返回值类型	公开	备注
取子项目数量	整数型
参数名	类型	参考	可空	数组	备注
父项目索引	整数型

变量名	类型	静态	数组	备注
i	整数型
数量	整数型

数量＝ 0

计次循环首 (树型框1.取项目数 (), i)

如果 (树型框1.取父项目 (i － 1) ＝父项目索引)

数量＝数量＋ 1

计次循环尾 ()
返回 (数量)

子程序名	返回值类型	公开	备注
_树型框1_项目被选择
参数名	类型	参考	可空	数组	备注
选择方式	整数型

变量名	类型	静态	数组	备注
父项目数	整数型
子项目数	整数型
当前索引	整数型

当前索引＝树型框1.现行选中项

如果 (当前索引 ≠ -1)

' 判断是不是父项目

如果 (树型框1.取父项目 (当前索引) ＝ -1)

标签1.标题＝ “选中了父项目，子项目数量：” ＋到文本 (取子项目数量 (当前索引))

标签1.标题＝ “选中了子项目，父项目索引：” ＋到文本 (树型框1.取父项目 (当前索引))

' 显示总父项目数
父项目数＝取父项目数量 ()
标签2.标题＝ “父项目总数：” ＋到文本 (父项目数)

i支持库列表	支持库注释
iext	扩展界面支持库一

a2083657 · 发表于昨天 17:36

取父项目数量：循环判断每个项目是否有子项目，有则父项目数+1。子项目数量 = 总项目数 - 父项目数。

代码示例：

.版本 2
.支持库 iext

子程序 _按钮1_被单击
.局部变量 i, 整数型, 句柄, 整数型, 父数, 整数型, 子数, 整数型
父数＝ 0
子数＝ 0
计次循环首 (树型框1.取项目数 (), i)
句柄＝树型框1.取项目句柄 (i － 1)
如果 (树型框1.取子项目数 (句柄) ＞ 0)
父数＝父数＋ 1
否则
子数＝子数＋ 1
如果结束
计次循环尾 ()
输出调试文本 (“父项目数：” ＋到文本 (父数) ＋ “ 子项目数：” ＋到文本 (子数))

' 取当前选中父项目下的子项目数量：
句柄＝树型框1.取现行选中项 ()
如果 (句柄 ≠ -1)
输出调试文本 (“选中项的子项目数：” ＋到文本 (树型框1.取子项目数 (句柄)))
如果结束