调用扩展界面支持库 树型框 取指定层级项目数 保存 还原

独倚斜阳

只调用了新版扩展界面支持库 分类框就是树型框 基本全程是发送消息操作(句柄） 速度比默认的模式快
到文本 (取所有父项目plus (, , , 1)  '取第1级的数量到文本 (取所有父项目plus (, , , 2) '取第2级的数量
到文本 (取所有父项目plus (, , , 3) '取第3级的数量

  

子程序名	返回值类型	公开	备 注
取子项目数plus	整数型		传入句柄 取现行选中项Ex 之类，返回下一级的子项目数量
参数名	类 型	参考	可空	数组	备 注
句柄	整数型

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

数组 ＝ 分类框.枚举子项目Ex (句柄, , )
返回 (取数组成员数 (数组))

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 取子项目数plus, 整数型, 公开, 传入句柄 取现行选中项Ex 之类，返回下一级的子项目数量<br /> .参数 句柄, 整数型<br /> .局部变量 数组, 整数型, , "0"<br /> <br /> 数组 ＝ 分类框.枚举子项目Ex (句柄, , )<br /> 返回 (取数组成员数 (数组))

如果要取选定目标里面的 子项目数量 用 分类框.枚举子项目Ex (, , ) 去改造

  

子程序名	返回值类型	公开	备 注
取所有父项目plus	整数型		获取所有有子项目的项目句柄，成功返回获取到的数量
参数名	类 型	参考	可空	数组	备 注
项目句柄数组	整数型				用于存放父项目句柄的数组
排除父项目	文本型				如：类，将不获取类下的所有有子项目的父项目句柄/数量
缩进层次	整数型				可空，默认为所有。获取小于或等于这个层次的父项目，缩进层次从1开始
指定缩进层次	整数型				可空，默认为所有。如果有指定，第23参数将无效，只获取指定缩进层次的父项目

变量名	类 型	静态	数组	备 注
i	整数型
局_缩进层次	整数型
局_父项目名称	文本型
句柄数量	整数型
句柄数组	整数型		0

清除数组 (项目句柄数组)
句柄数组 ＝ 分类框.枚举子项目Ex (, , 真)
句柄数量 ＝ 取数组成员数 (句柄数组)
输出调试 (“句柄数组”, 句柄数量)
计次循环首 (句柄数量, i)
判断 (是否为空 (指定缩进层次) ＝ 假)
局_缩进层次 ＝ 分类框.取缩进层次Ex (句柄数组 [i])  ' 项目句柄  如果没有父项目（即欲加入项目为顶层项目）, 请提供值 0 。如果本参数被省略, 默认值为 0
输出调试 (“局_缩进层次”, 局_缩进层次)
如果真 (局_缩进层次 ≠ 指定缩进层次)
到循环尾 ()

如果真 (缩进层次 ≠ 0)
局_缩进层次 ＝ 分类框.取缩进层次Ex (句柄数组 [i])
如果真 (局_缩进层次 ＞ 缩进层次)
到循环尾 ()

如果真 (是否为空 (排除父项目) ＝ 假)
局_父项目名称 ＝ 分类框.取项目文本ExA (分类框.取父项目Ex (句柄数组 [i]))
如果真 (局_父项目名称 ＝ 排除父项目)
到循环尾 ()



加入成员 (项目句柄数组, 句柄数组 [i])
计次循环尾 ()
返回 (取数组成员数 (项目句柄数组))

i支持库列表	支持库注释
iext	扩展界面支持库一
e2ee	E2EE互联网服务器套件

.版本 2<br /> .支持库 iext<br /> .支持库 e2ee<br /> <br /> .子程序 取所有父项目plus, 整数型, 公开, 获取所有有子项目的项目句柄，成功返回获取到的数量<br /> .参数 项目句柄数组, 整数型, 参考 可空 数组, 用于存放父项目句柄的数组<br /> .参数 排除父项目, 文本型, 可空, 如：类，将不获取类下的所有有子项目的父项目句柄/数量<br /> .参数 缩进层次, 整数型, 可空, 可空，默认为所有。获取小于或等于这个层次的父项目，缩进层次从1开始<br /> .参数 指定缩进层次, 整数型, 可空, 可空，默认为所有。如果有指定，第23参数将无效，只获取指定缩进层次的父项目<br /> .局部变量 i, 整数型<br /> .局部变量 局_缩进层次, 整数型<br /> .局部变量 局_父项目名称, 文本型<br /> .局部变量 句柄数量, 整数型<br /> .局部变量 句柄数组, 整数型, , "0"<br /> <br /> 清除数组 (项目句柄数组)<br /> 句柄数组 ＝ 分类框.枚举子项目Ex (, , 真)<br /> 句柄数量 ＝ 取数组成员数 (句柄数组)<br /> 输出调试 (“句柄数组”, 句柄数量)<br /> .计次循环首 (句柄数量, i)<br />     .判断开始 (是否为空 (指定缩进层次) ＝ 假)<br />         局_缩进层次 ＝ 分类框.取缩进层次Ex (句柄数组 <i>)  ' 项目句柄  如果没有父项目（即欲加入项目为顶层项目）, 请提供值 0 。如果本参数被省略, 默认值为 0<br />         输出调试 (“局_缩进层次”, 局_缩进层次)<br />         .如果真 (局_缩进层次 ≠ 指定缩进层次)<br />             到循环尾 ()<br />         .如果真结束<br /> <br />     .默认<br />         .如果真 (缩进层次 ≠ 0)<br />             局_缩进层次 ＝ 分类框.取缩进层次Ex (句柄数组 <i>)<br />             .如果真 (局_缩进层次 ＞ 缩进层次)<br />                 到循环尾 ()<br />             .如果真结束<br /> <br />         .如果真结束<br />         .如果真 (是否为空 (排除父项目) ＝ 假)<br />             局_父项目名称 ＝ 分类框.取项目文本ExA (分类框.取父项目Ex (句柄数组 <i>))<br />             .如果真 (局_父项目名称 ＝ 排除父项目)<br />                 到循环尾 ()<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .判断结束<br /> <br />     加入成员 (项目句柄数组, 句柄数组 <i>)<br /> .计次循环尾 ()<br /> 返回 (取数组成员数 (项目句柄数组))

下面是保存 还原 需要定义的自定义数组类型

  

数据类型名	公开	备 注
树型框属性
成员名	类 型	传址	数组	备 注
项目文本	文本型
父项目ID	整数型
图片组ID	整数型
选中图片组ID	整数型
是否扩展	逻辑型
是否加粗	逻辑型

.版本 2<br /> <br /> .数据类型 树型框属性<br />     .成员 项目文本, 文本型<br />     .成员 父项目ID, 整数型<br />     .成员 图片组ID, 整数型<br />     .成员 选中图片组ID, 整数型<br />     .成员 是否扩展, 逻辑型<br />     .成员 是否加粗, 逻辑型

  

子程序名	返回值类型	公开	备 注
保存树型框项目到数组			调用精易新版支持库命令
参数名	类 型	参考	可空	数组	备 注
索引与否	逻辑型				默认用句柄 发送消息速度快，为真则是索引操作速度慢

变量名	类 型	静态	数组	备 注
i	整数型
局_树型框数组	树型框属性
句柄数组	整数型		0

如果真 (索引与否)
句柄数组 ＝ 分类框.枚举子项目Ex (, , 真)
清除数组 (集_树型框数组)  ' 用索引 调试运行一遍60-70ms  用句柄 20-30ms
如果 (索引与否)
重定义数组 (集_树型框数组, 假, 分类框.取项目数 ())
计次循环首 (分类框.取项目数 (), i)
局_树型框数组.项目文本 ＝ 分类框.取项目文本 (i － 1)  ' 调用项目索引 0为项目一,1为项目二
局_树型框数组.父项目ID ＝ 分类框.取父项目 (i － 1)  ' ’索引:如果该项目为顶层项目, 将返回 -1  句柄:返回指定项目的父项目句柄。如果该项目为顶层项目, 将返回 0
局_树型框数组.图片组ID ＝ 分类框.取图片 (i － 1)
局_树型框数组.选中图片组ID ＝ 分类框.取选中图片 (i － 1)
局_树型框数组.是否扩展 ＝ 分类框.是否已扩展 (i － 1)
局_树型框数组.是否加粗 ＝ 分类框.是否已加粗 (i － 1)
' '调试输出 (局_树型框数组.项目文本, 局_树型框数组.父项目ID, 局_树型框数组.图片组ID, 局_树型框数组.是否扩展, 局_树型框数组.是否加粗)
' ===============================================
集_树型框数组 [i] ＝ 局_树型框数组
计次循环尾 ()

重定义数组 (集_树型框数组, 假, 取数组成员数 (句柄数组))
计次循环首 (取数组成员数 (句柄数组), i)
局_树型框数组.项目文本 ＝ 分类框.取项目文本ExA (句柄数组 [i])  ' 调用项目句柄
局_树型框数组.父项目ID ＝ 分类框.取父项目Ex (句柄数组 [i])
局_树型框数组.图片组ID ＝ 分类框.取图片Ex (句柄数组 [i])
局_树型框数组.是否扩展 ＝ 分类框.是否已扩展Ex (句柄数组 [i])
局_树型框数组.是否加粗 ＝ 分类框.是否已加粗Ex (句柄数组 [i])
' '调试输出 (局_树型框数组.项目文本, 局_树型框数组.父项目ID, 局_树型框数组.图片组ID, 局_树型框数组.是否扩展, 局_树型框数组.是否加粗)
' ===============================================
集_树型框数组 [i] ＝ 局_树型框数组
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 保存树型框项目到数组, , 公开, 调用精易新版支持库命令 <br /> .参数 索引与否, 逻辑型, 可空, 默认用句柄 发送消息速度快，为真则是索引操作速度慢<br /> .局部变量 i, 整数型<br /> .局部变量 局_树型框数组, 树型框属性<br /> .局部变量 句柄数组, 整数型, , "0"<br /> <br /> <br /> .如果真 (索引与否)<br />     句柄数组 ＝ 分类框.枚举子项目Ex (, , 真)<br /> .如果真结束<br /> 清除数组 (集_树型框数组)  ' 用索引 调试运行一遍60-70ms  用句柄 20-30ms<br /> <br /> .如果 (索引与否)<br />     重定义数组 (集_树型框数组, 假, 分类框.取项目数 ())<br />     .计次循环首 (分类框.取项目数 (), i)<br />         局_树型框数组.项目文本 ＝ 分类框.取项目文本 (i － 1)  ' 调用项目索引 0为项目一,1为项目二<br />         局_树型框数组.父项目ID ＝ 分类框.取父项目 (i － 1)  ' ’索引:如果该项目为顶层项目, 将返回 -1  句柄:返回指定项目的父项目句柄。如果该项目为顶层项目, 将返回 0<br />         局_树型框数组.图片组ID ＝ 分类框.取图片 (i － 1)<br />         局_树型框数组.选中图片组ID ＝ 分类框.取选中图片 (i － 1)<br />         局_树型框数组.是否扩展 ＝ 分类框.是否已扩展 (i － 1)<br />         局_树型框数组.是否加粗 ＝ 分类框.是否已加粗 (i － 1)<br />         ' '调试输出 (局_树型框数组.项目文本, 局_树型框数组.父项目ID, 局_树型框数组.图片组ID, 局_树型框数组.是否扩展, 局_树型框数组.是否加粗)<br />         ' ===============================================<br />         集_树型框数组 <i> ＝ 局_树型框数组<br /> <br />     .计次循环尾 ()<br /> <br /> .否则<br />     重定义数组 (集_树型框数组, 假, 取数组成员数 (句柄数组))<br />     .计次循环首 (取数组成员数 (句柄数组), i)<br />         局_树型框数组.项目文本 ＝ 分类框.取项目文本ExA (句柄数组 <i>)  ' 调用项目句柄<br />         局_树型框数组.父项目ID ＝ 分类框.取父项目Ex (句柄数组 <i>)<br />         局_树型框数组.图片组ID ＝ 分类框.取图片Ex (句柄数组 <i>)<br />         局_树型框数组.是否扩展 ＝ 分类框.是否已扩展Ex (句柄数组 <i>)<br />         局_树型框数组.是否加粗 ＝ 分类框.是否已加粗Ex (句柄数组 <i>)<br />         ' '调试输出 (局_树型框数组.项目文本, 局_树型框数组.父项目ID, 局_树型框数组.图片组ID, 局_树型框数组.是否扩展, 局_树型框数组.是否加粗)<br />         ' ===============================================<br />         集_树型框数组 <i> ＝ 局_树型框数组<br />     .计次循环尾 ()

  

子程序名	返回值类型	公开	备 注
读取树型框项目从数组			速度嘎嘎快
参数名	类 型	参考	可空	数组	备 注
索引与否	逻辑型				默认用句柄 发送消息速度快，为真则是索引操作速度慢

变量名	类 型	静态	数组	备 注
索引	整数型
句柄	整数型
i	整数型
句柄数组	整数型		0

分类框.清空 ()
如果 (索引与否)
计次循环首 (取数组成员数 (集_树型框数组), i)  ' 设置树型框相关属性
判断 (集_树型框数组 [i].父项目ID ＝ -1)
索引 ＝ 分类框.加入项目 (-1, 集_树型框数组 [i].项目文本, 集_树型框数组 [i].图片组ID, 集_树型框数组 [i].选中图片组ID, , 集_树型框数组 [i].是否加粗, )  ' 索引操作 顶层-1
分类框.加入项目 (集_树型框数组 [i].父项目ID, 集_树型框数组 [i].项目文本, 集_树型框数组 [i].图片组ID, 集_树型框数组 [i].选中图片组ID, , 集_树型框数组 [i].是否加粗, )

计次循环尾 ()
计次循环首 (取数组成员数 (集_树型框数组), i)  ' 扩展和收缩
判断 (集_树型框数组 [i].是否扩展 ＝ 真)
分类框.扩展 (i － 1)
分类框.收缩 (i － 1)

计次循环尾 ()
' ’编辑框_ID.内容 ＝ 到文本 (分类框.取选中图片 (分类框.现行选中项))

计次循环首 (取数组成员数 (集_树型框数组), i)
判断 (集_树型框数组 [i].父项目ID ＝ 0)
句柄 ＝ 分类框.加入项目Ex (0, 集_树型框数组 [i].项目文本, 集_树型框数组 [i].图片组ID, 集_树型框数组 [i].选中图片组ID, , 集_树型框数组 [i].是否加粗, )  ' 索引操作 顶层0
分类框.加入项目Ex (集_树型框数组 [i].父项目ID, 集_树型框数组 [i].项目文本, 集_树型框数组 [i].图片组ID, 集_树型框数组 [i].选中图片组ID, , 集_树型框数组 [i].是否加粗, )

计次循环尾 ()
计次循环首 (取数组成员数 (集_树型框数组), i)  ' 扩展和收缩
判断 (集_树型框数组 [i].是否扩展 ＝ 真)
分类框.扩展Ex (i － 1)
分类框.收缩Ex (i － 1)

计次循环尾 ()
' ’编辑框_ID.内容 ＝ 到文本 (分类框.取选中图片 (分类框.现行选中项))

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 读取树型框项目从数组, , 公开, 速度嘎嘎快<br /> .参数 索引与否, 逻辑型, 可空, 默认用句柄 发送消息速度快，为真则是索引操作速度慢<br /> .局部变量 索引, 整数型<br /> .局部变量 句柄, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 句柄数组, 整数型, , "0"<br /> <br /> 分类框.清空 ()<br /> <br /> .如果 (索引与否)<br />     .计次循环首 (取数组成员数 (集_树型框数组), i)  ' 设置树型框相关属性<br />         .判断开始 (集_树型框数组 <i>.父项目ID ＝ -1)<br />             索引 ＝ 分类框.加入项目 (-1, 集_树型框数组 <i>.项目文本, 集_树型框数组 <i>.图片组ID, 集_树型框数组 <i>.选中图片组ID, , 集_树型框数组 <i>.是否加粗, )  ' 索引操作 顶层-1<br />         .默认<br />             分类框.加入项目 (集_树型框数组 <i>.父项目ID, 集_树型框数组 <i>.项目文本, 集_树型框数组 <i>.图片组ID, 集_树型框数组 <i>.选中图片组ID, , 集_树型框数组 <i>.是否加粗, )<br />         .判断结束<br /> <br />     .计次循环尾 ()<br />     .计次循环首 (取数组成员数 (集_树型框数组), i)  ' 扩展和收缩<br />         .判断开始 (集_树型框数组 <i>.是否扩展 ＝ 真)<br />             分类框.扩展 (i － 1)<br />         .默认<br />             分类框.收缩 (i － 1)<br />         .判断结束<br /> <br />     .计次循环尾 ()<br />     ' ’编辑框_ID.内容 ＝ 到文本 (分类框.取选中图片 (分类框.现行选中项))<br /> <br /> .否则<br />     .计次循环首 (取数组成员数 (集_树型框数组), i)<br />         .判断开始 (集_树型框数组 <i>.父项目ID ＝ 0)<br />             句柄 ＝ 分类框.加入项目Ex (0, 集_树型框数组 <i>.项目文本, 集_树型框数组 <i>.图片组ID, 集_树型框数组 <i>.选中图片组ID, , 集_树型框数组 <i>.是否加粗, )  ' 索引操作 顶层0<br />         .默认<br />             分类框.加入项目Ex (集_树型框数组 <i>.父项目ID, 集_树型框数组 <i>.项目文本, 集_树型框数组 <i>.图片组ID, 集_树型框数组 <i>.选中图片组ID, , 集_树型框数组 <i>.是否加粗, )<br />         .判断结束<br /> <br />     .计次循环尾 ()<br />     .计次循环首 (取数组成员数 (集_树型框数组), i)  ' 扩展和收缩<br />         .判断开始 (集_树型框数组 <i>.是否扩展 ＝ 真)<br />             分类框.扩展Ex (i － 1)<br />         .默认<br />             分类框.收缩Ex (i － 1)<br />         .判断结束<br /> <br />     .计次循环尾 ()<br />     ' ’编辑框_ID.内容 ＝ 到文本 (分类框.取选中图片 (分类框.现行选中项))<br /> <br /> .如果结束

光影魔术

感谢分享源码

qqmqqg

66666666666666666666

一指温柔

感谢分享

阿凡地方23

感谢分享

year1970

感谢分享

qwe111qwe

感谢分享！！！！！

renhe2018

非常好的思路

独倚斜阳

取所有父项目plus         弄错了 我改改

独倚斜阳

dwcq 发表于 2024-11-17 00:34
不能去掉EX

去掉ex就是最原始的方式 和几年前的老版本支持库一样  数据一多会卡 只能写成预读那种

这种ex的都是sendmeassage 速度超级快  我50多个目录 目录下面每个几十个子目录  每个子目录里面还有10-20个文件 一共3000多个 瞬间全部载入