精易论坛

标题: 求易语言树形框父项目下的所有子项目 [打印本页]

作者: qq2268 时间: 2016-6-1 15:34
标题: 求易语言树形框父项目下的所有子项目
求易语言树形框父项目下的所有子项目

作者: 七彩琥珀 时间: 2016-6-1 15:50
.版本 2
.支持库 iext
.支持库 spec

.计次循环首 (树型框1.取项目数 (), i)
.如果真 (树型框1.取父项目 (i － 1) ＝ 0)
调试输出 (树型框1.取项目文本 (i － 1))
.如果真结束

.计次循环尾 ()

作者: qq2268 时间: 2016-6-1 16:10

七彩琥珀发表于 2016-6-1 15:50
.版本 2
.支持库 iext
.支持库 spec

不是，我的意思是父项目下的子项目，怎么获取。比如缩进层次

作者: 呵呵仙 时间: 2016-6-1 21:30
代码例子呢?

作者: A—小哲 时间: 2016-7-7 00:57

qq2268 发表于 2016-6-1 16:10
不是，我的意思是父项目下的子项目，怎么获取。比如缩进层次

同求啊！！！！！！！！！！！！

作者: 695650763 时间: 2017-1-23 22:13
同求啊！！！！！！！！！！！！

作者: wolf108 时间: 2017-2-6 23:21
.版本 2
.支持库 iext

已选择的索引＝树型框_分类权限.现行选中项
已选择的缩进层次＝树型框_分类权限.取缩进层次 (树型框_分类权限.现行选中项)

.判断循环首 (树型框_分类权限.取缩进层次 (已选择的索引＋ 1) ＞已选择的缩进层次)
树型框_分类权限.置图片 (已选择的索引＋ 1, 0)
已选择的索引＝已选择的索引＋ 1
.判断循环尾 ()

作者: 寂静黑羽 时间: 2017-3-4 22:38
同求，数量大的话一个一个查是不是效率太低

作者: 菜鸟菜鸡秋水 时间: 2018-1-21 11:33
我给大家来个例子吧，反正没有什么事，

189.91 KB, 下载次数: 324

作者: ooabcoo 时间: 2018-5-18 09:56

菜鸟菜鸡秋水发表于 2018-1-21 11:33
我给大家来个例子吧，反正没有什么事，

这例子是能实现功能,但当项目数多了.这速度实在太慢,我的项目数才965个,就卡得不很

作者: 冰棍好烫啊 时间: 2020-5-16 14:08

子程序名	返回值类型	公开	备注
取项目文本	文本型
参数名	类型	参考	可空	数组	备注
项目句柄	整数型				索引号从1开始

变量名	类型	静态	数组	备注
项目的信息	树形项目信息

项目的信息.标志＝ #TVIF_TEXT
项目的信息.项目句柄＝项目句柄
项目的信息.项目的文本＝取空白文本 (260)
项目的信息.文本缓冲长度＝ 260
SendMessageA (树型框_json.取窗口句柄 (), #TVM_GETITEMA, 0, 取指针_通用型 (项目的信息))
返回 (项目的信息.项目的文本)

子程序名	返回值类型	公开	备注
树型框_取子项
参数名	类型	参考	可空	数组	备注
取当前项目句柄	整数型

变量名	类型	静态	数组	备注
父项目	整数型
子项目	整数型
数值	整数型
完成	逻辑型

子项目＝ SendMessageA (树型框_json.取窗口句柄 (), #TVM_GETNEXTITEM, #TVGN_CHILD, 取当前项目句柄) ' 取子的兄弟

判断循环首 (子项目 ≠ 0)

输出调试文本 (取项目文本 (子项目))

子项目＝ SendMessageA (树型框_json.取窗口句柄 (), #TVM_GETNEXTITEM, #TVGN_NEXT, 子项目)

判断循环尾 ()

欢迎光临精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4