易语言的树形框如何加载软件的当前目录和子目录

.版本 2

.局部变量 文件, 文本型, , "0"

.局部变量 子目录, 文本型, , "0"

.局部变量 i

.计次循环首 (文件_枚举 (取运行目录 (), “*”, 文件), i)

编辑框1.加入文本 (文件 [i] ＋ #换行符)

.计次循环尾 ()

.计次循环首 (目录_枚举子目录 (取运行目录 (), 子目录), i)

编辑框2.加入文本 (子目录 [i] ＋ #换行符)

.计次循环尾 ()

树型框自己写代码吧

.支持库 iext

.子程序 _新建作品_被选择

.局部变量 作品名, 文本型

输入框 (“输入作品名”, “新建作品”, , 作品名, , _启动窗口)

.如果真 (作品名 ≠ “”)

树型框1.加入项目 (, 作品名, , , , , )

保存 (取运行目录 () ＋ “\config.ini”, 树型框1)

.如果真结束

' 树型框1.清空 ()

' 读取 (取运行目录 () ＋ “\config.ini”, 树型框1)

.子程序 _新建卷_被选择

.局部变量 卷名, 文本型

.如果真 (树型框1.现行选中项 ≠ -1)

输入框 (“输入章节名”, “新建卷”, , 卷名, , _启动窗口)

.如果真 (卷名 ≠ “”)

.如果真 (树型框1.取缩进层次 (树型框1.现行选中项) ＝ 2)

树型框1.加入项目 (树型框1.取父项目 (树型框1.现行选中项), 卷名, , , , , )

.如果真结束

.如果真 (树型框1.取缩进层次 (树型框1.现行选中项) ＝ 3)

树型框1.加入项目 (树型框1.取父项目 (树型框1.取父项目 (树型框1.现行选中项)), 卷名, , , , , )

.如果真结束

.如果真 (树型框1.取缩进层次 (树型框1.现行选中项) ＝ 1)

树型框1.加入项目 (树型框1.现行选中项, 卷名, , , , , )

.如果真结束

保存 (取运行目录 () ＋ “\config.ini”, 树型框1)

.如果真结束

.如果真结束

' 树型框1.清空 ()

' 读取 (取运行目录 () ＋ “\config.ini”, 树型框1)

.子程序 _新建章节_被选择

.局部变量 章节名, 文本型

.如果真 (树型框1.现行选中项 ≠ -1)

输入框 (“输入章节名”, “新建章节”, , 章节名, , _启动窗口)

.如果真 (章节名 ≠ “”)

.如果真 (树型框1.取缩进层次 (树型框1.现行选中项) ＝ 3)

树型框1.加入项目 (树型框1.取父项目 (树型框1.现行选中项), 章节名, , , , , )

.如果真结束

.如果真 (树型框1.取缩进层次 (树型框1.现行选中项) ＝ 2)

树型框1.加入项目 (树型框1.现行选中项, 章节名, , , , , )

.如果真结束

.如果真 (树型框1.取缩进层次 (树型框1.现行选中项) ＝ 1)

树型框1.加入项目 (树型框1.现行选中项 ＋ 1, 章节名, , , , , )

.如果真结束

保存 (取运行目录 () ＋ “\config.ini”, 树型框1)

.如果真结束

.如果真结束

' 保存 (取运行目录 () ＋ “\config.ini”, 树型框1)

' 树型框1.清空 ()

' 读取 (取运行目录 () ＋ “\config.ini”, 树型框1)