精易官方入门课程 第13课 使用树形框组件来完善文件浏览器，作业练习源码

yizhan

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文件大小	整数型
文件名	文本型

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

树型框1.清空 ()
子程序_查找 (编辑框1.内容)

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

变量名	类 型	静态	数组	备 注
临时索引	整数型

如果 (取文本右边 (查找的目录, 1) ≠ “\”)
查找的目录 ＝ 查找的目录 ＋ “\”


如果真 (是否为空 (父项目项目的索引))
父项目项目的索引 ＝ -1

文件名 ＝ 寻找文件 (查找的目录 ＋ “*.*”, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
判断循环首 (文件名 ≠ “”)
如果真 (文件名 ＝ “.” 或 文件名 ＝ “..”)
文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
到循环尾 ()
临时索引 ＝ 树型框1.加入项目 (父项目项目的索引, 文件名, , , , , )
如果真 (取文件属性 (查找的目录 ＋ 文件名) ＝ #子目录 )
子程序_查找 (查找的目录 ＋ 文件名, 临时索引)
文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
到循环尾 ()

文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_树型框1_项目被选择
参数名	类 型	参考	可空	数组	备 注
选择方式	整数型

子程序_获取选中项信息 (树型框1.取父项目 (树型框1.现行选中项))

子程序名	返回值类型	公开	备 注
子程序_获取选中项信息
参数名	类 型	参考	可空	数组	备 注
父项目索引	整数型

变量名	类 型	静态	数组	备 注
完整目录	文本型
数组	文本型		0
i	整数型
数组总数	整数型

完整目录 ＝ 编辑框1.内容 ＋ “\”
父项目索引 ＝ 树型框1.取父项目 (树型框1.现行选中项)
判断循环首 (父项目索引 ≠ -1)
加入成员 (数组, 树型框1.取项目文本 (父项目索引) ＋ “\”)
父项目索引 ＝ 树型框1.取父项目 (父项目索引)
判断循环尾 ()
数组总数 ＝ 取数组成员数 (数组)
计次循环首 (取数组成员数 (数组), i)
完整目录 ＝ 完整目录 ＋ 数组 [数组总数]
数组总数 ＝ 数组总数 － 1
计次循环尾 ()
文件大小 ＝ 取文件尺寸 (完整目录 ＋ 树型框1.取项目文本 (树型框1.现行选中项))
编辑框2.内容 ＝ 完整目录 ＋ “    ” ＋ 到文本 (文件大小 ÷ 1024) ＋ “kb”

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

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文件大小, 整数型<br /> .程序集变量 文件名, 文本型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> <br /> 树型框1.清空 ()<br /> <br /> 子程序_查找 (编辑框1.内容)<br /> <br /> <br /> .子程序 子程序_查找<br /> .参数 查找的目录, 文本型<br /> .参数 父项目项目的索引, 整数型, 可空<br /> .局部变量 临时索引, 整数型<br /> <br /> <br /> <br /> .如果 (取文本右边 (查找的目录, 1) ≠ “\”)<br />     查找的目录 ＝ 查找的目录 ＋ “\”<br /> .否则<br /> <br /> .如果结束<br /> .如果真 (是否为空 (父项目项目的索引))<br />     父项目项目的索引 ＝ -1<br /> .如果真结束<br /> <br /> 文件名 ＝ 寻找文件 (查找的目录 ＋ “*.*”, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)<br /> <br /> <br /> <br /> .判断循环首 (文件名 ≠ “”)<br /> <br />     .如果真 (文件名 ＝ “.” 或 文件名 ＝ “..”)<br />         文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)<br />         到循环尾 ()<br /> <br />     .如果真结束<br />     临时索引 ＝ 树型框1.加入项目 (父项目项目的索引, 文件名, , , , , )<br /> <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 /> <br /> <br /> <br /> 子程序_获取选中项信息 (树型框1.取父项目 (树型框1.现行选中项))<br /> <br /> <br /> .子程序 子程序_获取选中项信息<br /> .参数 父项目索引, 整数型<br /> .局部变量 完整目录, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 数组总数, 整数型<br /> <br /> 完整目录 ＝ 编辑框1.内容 ＋ “\”<br /> 父项目索引 ＝ 树型框1.取父项目 (树型框1.现行选中项)<br /> .判断循环首 (父项目索引 ≠ -1)<br />     加入成员 (数组, 树型框1.取项目文本 (父项目索引) ＋ “\”)<br />     父项目索引 ＝ 树型框1.取父项目 (父项目索引)<br /> <br /> .判断循环尾 ()<br /> 数组总数 ＝ 取数组成员数 (数组)<br /> .计次循环首 (取数组成员数 (数组), i)<br />     完整目录 ＝ 完整目录 ＋ 数组 [数组总数]<br />     数组总数 ＝ 数组总数 － 1<br /> .计次循环尾 ()<br /> <br /> <br /> 文件大小 ＝ 取文件尺寸 (完整目录 ＋ 树型框1.取项目文本 (树型框1.现行选中项))<br /> 编辑框2.内容 ＝ 完整目录 ＋ “    ” ＋ 到文本 (文件大小 ÷ 1024) ＋ “kb”

大神不要嘲笑我，我是刚学

Jew

万分感谢~~

陌冄

懂了，谢谢

kevin13

我输入了你上面的代码试了下，文件大小那里，只能取文件的大小，文件夹的大小没取到，还有图片索引那里我也不知道怎么弄啊

rectdbszy

好可以，我才不会

夏宥晨

这样就可以了其他没有什么用


窗口程序集名        保 留          保 留        备 注
窗口程序集_启动窗口                           
变量名        类 型        数组        备 注
文件大小        整数型                  
文件名        文本型                  

子程序名        返回值类型        公开        备 注
_按钮1_被单击                         
树型框1.清空 ()
子程序_查找 (编辑框1.内容)
子程序名        返回值类型        公开        备 注
子程序_查找                         
参数名        类 型        参考        可空        数组        备 注
查找的目录        文本型                                  
父项目项目的索引        整数型                 √                
变量名        类 型        静态        数组        备 注
临时索引        整数型                         
如果 (取文本右边 (查找的目录, 1) ≠ “\”)
查找的目录 ＝ 查找的目录 ＋ “\”


如果真 (是否为空 (父项目项目的索引))
父项目项目的索引 ＝ -1

文件名 ＝ 寻找文件 (查找的目录 ＋ “*.*”, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
判断循环首 (文件名 ≠ “”)
如果真 (文件名 ＝ “.” 或 文件名 ＝ “..”)
文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
到循环尾 ()
临时索引 ＝ 树型框1.加入项目 (父项目项目的索引, 文件名, , , , , )
如果真 (取文件属性 (查找的目录 ＋ 文件名) ＝ #子目录 )
子程序_查找 (查找的目录 ＋ 文件名, 临时索引)
文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
到循环尾 ()

文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
判断循环尾 ()

处理事件（）

thjing001

运行不了啊！！！怎么回事

a9575258

反正看不太懂哈哈

这就是用户名

文件名 ＝ 寻找文件 (查找的目录 ＋ “*.*”, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
真心不建议易友们这样写,1 2 4 16 32 这堆数字谁能看懂什么意思?
而且他们是按位来算的,所以还是不要用相加好点,用位或()
比如 位或(1,2,2,2,2) 和 1+2+2+2+2 得到的值肯定是不同的,不过位或的话结果的标志是一样的
所以 如果某个参数的标志多的时候用位或()不怕会有重复,而如果用相加的话,你要保证不会有重复的标志位才行
可能这个 寻找文件() 不能体会到相加和位或的区别,如果是 CreateWindow() 这个API的话,窗口样式的标志有几十种,自己亲自去体验一下位或() 和相加() 的结果