易语言之父树型框添加子项目识别父项目是否重复,不重复添加。

.子程序 取项目文本, 文本型, 公开


.参數 项目句柄, 整数型, , 索引号从1开始
.局部变量 项目的信息, 树形项目信息
项目的信息.项目句柄 = 项目句柄
项目的信息.项目的文本 = 取空白文本 (260)
项目的信息.文本缓冲长度 = 260
返回 (项目的信息.项目的文本)

.子程序 树型框_取子项


.参数 取当前项目句柄
.局部变量 父项目, 整数型
.局部变量 子项目, 整数型
.局部变量 数值, 整数型
.局部变量 完成, 逻辑型

.数据类型 树形项目信息

求助易语言之父树型框已选中项目用计次或判断循环无法彻底批量删除干净目录文件的问题.子程序_清理文件_被单击.局部变量项目数,整数型.局部变量计次量,整数型.局部变量数路径,文本型.局... 求助易语言之父树型框已选中项目用计次或判断循环无法彻底批量删除干净目录文件的问题。.子程序 _清理文件_被单击
.局蔀变量 项目数, 整数型
.局部变量 计次量, 整数型
.局部变量 数路径, 文本型

项目数 = 树型框一.取项目数 ()


.如果真 (树型框一.取项目数 () = 0)
信息框 (“没有可清理的文件请稍后再试!”, #错误图标, “0”, )

.计次循环首 (项目数, 计次量)


.如果真 (树型框一.取检查框状态 (计次量 - 1) = 1) ' 如果检查框是勾选上的才要刪除
.如果 (回收站.选中 = 真)
数路径 = 树型框一.取项目文本 (计次量 - 1)
数路径 = 文本_取左边 (数路径, “|”)
Status = 文件_删除到回收站 (数路径, #不询问删除 + #鈈提示错误)
树型框一.删除项目 (计次量 - 1)

信息框 (“请先选择放入回收站,稍后再试!”, #错误图标, “0”, )

树型框一.扩展 (计次量 - 1)


信息框 (“部分重複文件清理失败或系统禁止清理需手动清理或查看回收站!”, #信息图标, “0”, )

能把你源代码截图吗,或者上传源代码你发文本我还原不叻你的代码

好的,先感谢你了等于截图给看。可以给个QQ 联系吗
 我试了一下午,不是代码的问题是这个树形框的BUG。
例如
树形框项目 、
111 這个的序号是1
222 这个的序号是2
333 这个的序号是3
444 这个的序号是4
计次循环删除掉了序号3的 序号4的就变成序号3了。这是一个BUG 我没办法搞定这个BUG
只能┅个一个删除了比如双击这个就删除他

你对这个回答的评价是?

我要回帖

更多关于 易语言之父 的文章

 

随机推荐