我的学易之路（分享我的源码）第二阶段 第13课

wentian24

用了2天时间学习视频的第13课《13、使用树形框组件来完善文件浏览器》，感觉这一课比较有难度，主要在作业上，我想了很久没有做出来，先把自己做的文件浏览器发上来和大家交流，同样在我认为不易理解的地方加了我自己的心得注释，不一定正确，请大家指点，并请指点一下课后作业思路

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_目录编辑框_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

目录编辑框.内容 ＝ 浏览文件夹 (“请选择要查询的目录”, )

子程序名	返回值类型	公开	备 注
_查找按钮_被单击

变量名	类 型	静态	数组	备 注
时间1	日期时间型

时间1 ＝ 取现行时间 ()
如果 (目录编辑框.内容 ＝ “”)
信息框 (“请输入或选择要查询的目录”, 0, “提示”, )
树型框1.清空 ()
查找文件 (目录编辑框.内容, )
状态条1.置文本 (2, “共耗时” ＋ 到文本 (取时间间隔 (取现行时间 (), 时间1, #秒 )) ＋ “秒”)

子程序名	返回值类型	公开	备 注
查找文件
参数名	类 型	参考	可空	数组	备 注
目录名	文本型
父索引	整数型

变量名	类 型	静态	数组	备 注
文件名	文本型
子索引	整数型

如果真 (取文本右边 (目录名, 1) ≠ “\”)
目录名 ＝ 目录名 ＋ “\”

如果真 (是否为空 (父索引) ＝ 真)  ' 先将父索引置为-1,加入项目时即向后添加
父索引 ＝ -1

文件名 ＝ 寻找文件 (目录名 ＋ “*.*”, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
如果真 (文件名 ≠ “”)
判断循环首 (文件名 ≠ “”)
如果真 (文件名 ＝ “.” 或 文件名 ＝ “..”)
文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
到循环尾 ()

子索引 ＝ 树型框1.加入项目 (父索引, 文件名, , , , , )  ' 得到子索引,并在查询子目录时将其做为参数（父索引）传入，用来将子目录下的文件加在子目录后面
如果真 (取文件属性 (目录名 ＋ 文件名) ＝ #子目录 )
查找文件 (目录名 ＋ 文件名, 子索引)  ' 传入子索引，用做递归调用中的父索引（即这一句：子索引 ＝ 树型框1.加入项目 (父索引, 文件名, , , , , )）
文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
到循环尾 ()

文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
处理事件 ()
状态条1.置文本 (1, 目录名)
判断循环尾 ()

i支持库列表	支持库注释
shell	操作系统界面功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 shell<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _目录编辑框_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 目录编辑框.内容 ＝ 浏览文件夹 (“请选择要查询的目录”, )<br /> <br /> <br /> .子程序 _查找按钮_被单击<br /> .局部变量 时间1, 日期时间型<br /> <br /> 时间1 ＝ 取现行时间 ()<br /> .如果 (目录编辑框.内容 ＝ “”)<br />     信息框 (“请输入或选择要查询的目录”, 0, “提示”, )<br /> .否则<br />     树型框1.清空 ()<br />     查找文件 (目录编辑框.内容, )<br />     状态条1.置文本 (2, “共耗时” ＋ 到文本 (取时间间隔 (取现行时间 (), 时间1, #秒)) ＋ “秒”)<br /> .如果结束<br /> <br /> <br /> .子程序 查找文件<br /> .参数 目录名, 文本型<br /> .参数 父索引, 整数型, 可空<br /> .局部变量 文件名, 文本型<br /> .局部变量 子索引, 整数型<br /> <br /> .如果真 (取文本右边 (目录名, 1) ≠ “\”)<br />     目录名 ＝ 目录名 ＋ “\”<br /> .如果真结束<br /> <br /> .如果真 (是否为空 (父索引) ＝ 真)  ' 先将父索引置为-1,加入项目时即向后添加<br />     父索引 ＝ -1<br /> <br /> .如果真结束<br /> <br /> 文件名 ＝ 寻找文件 (目录名 ＋ “*.*”, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)<br /> .如果真 (文件名 ≠ “”)<br />     .判断循环首 (文件名 ≠ “”)<br />         .如果真 (文件名 ＝ “.” 或 文件名 ＝ “..”)<br />             文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)<br />             到循环尾 ()<br /> <br />         .如果真结束<br /> <br />         子索引 ＝ 树型框1.加入项目 (父索引, 文件名, , , , , )  ' 得到子索引,并在查询子目录时将其做为参数（父索引）传入，用来将子目录下的文件加在子目录后面<br />         .如果真 (取文件属性 (目录名 ＋ 文件名) ＝ #子目录)<br />             查找文件 (目录名 ＋ 文件名, 子索引)  ' 传入子索引，用做递归调用中的父索引（即这一句：子索引 ＝ 树型框1.加入项目 (父索引, 文件名, , , , , )）<br />             文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)<br />             到循环尾 ()<br />         .如果真结束<br /> <br />         文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)<br />         处理事件 ()<br />         状态条1.置文本 (1, 目录名)<br />     .判断循环尾 ()<br /> .如果真结束

。

王者路太艰难

我是来碰瓷的

浪漫的小p

还是很复杂的小程序，继续努力

正义的偏激者

厉害~！~！~

sa123123

支持开源~！感谢分享

调皮的男孩

谢谢分享

polang001

支持开源~！感谢分享

glorysky22

共同学习，一起进步

小覃音频

易语言难学

小覃音频

学习半年才会简单的代码