文件枚举并生成按钮v1.0，全官方库写的，用到的知识点挺多

月下美孤

，最近在求助区看到有人有个小项目求助自定义按钮https://bbs.125.la/forum.php?mod=viewthread&tid=14709051
(出处: 精易论坛)

闲来无事我就动手写了这个，帮助发帖老哥的同时也检验一下易语言学的怎么样！

正巧看到开源大赛又开始了

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口			by 月下美孤.FrodeHu@163.com
变量名	类 型	数组	备 注
_枚举	类_枚举
_item	按钮	12

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

_item [1] ＝ 按钮1
_item [2] ＝ 按钮2
_item [3] ＝ 按钮3
_item [4] ＝ 按钮4
_item [5] ＝ 按钮5
_item [6] ＝ 按钮6
_item [7] ＝ 按钮7
_item [8] ＝ 按钮8
_item [9] ＝ 按钮9
_item [10] ＝ 按钮10
_item [11] ＝ 按钮11
_item [12] ＝ 按钮12
XP风格 (3)
_启动窗口.总在最前 ＝ 真

子程序名	返回值类型	公开	备 注
_时钟1_周期事件			监控目录文件数量，有变动的情况下会刷新变量 找到的文件列表、_文件数量  的值

变量名	类 型	静态	数组	备 注
临时_文件数量	整数型
文件列表_目录	文本型		0
i	整数型

' 调用方法枚举目录下文件数量、文件名列表
临时_文件数量 ＝ _枚举.枚举_目录下文件数量 (编辑框1.内容)
如果真 (_文件数量 ≠ 临时_文件数量)  ' 目录下文件数量变动
_文件数量 ＝ 临时_文件数量  ' 全局变量 _文件数量
_枚举.枚举_文件名 (编辑框1.内容, 文件列表_目录)  ' 调用方法枚举目录下文件名数组''易语言
复制数组 (找到的文件列表, 文件列表_目录)  ' 将枚举到的数组传给全局变量数组 找到的文件列表
输出调试文本 (_文件数量)
输出调试文本 (找到的文件列表 [1])
新建按钮_参数获取_配置组件 ()
标签_文件数量.标题 ＝ 到文本 (_文件数量)

子程序名	返回值类型	公开	备 注
新建按钮_参数获取_配置组件			获取选择夹末页按钮个数和选择夹样式

变量名	类 型	静态	数组	备 注
_按钮个数1	整数型
需要增加的子夹数量	双精度小数型
i	整数型

' 判断需要增加的选择夹数量
' 我画的按钮一个选择夹子夹只能放下12个
' 默认已经有一个子夹了，实际子夹数量会多一个，所以对 需要增加的选择夹数量 直接取整就完了
需要增加的子夹数量 ＝ 取整 (_文件数量 ÷ 12)
' 末页按钮个数，按钮个数显而易见就是_文件数量
' 前x-1页都是铺满12个按钮，就是 (x-1)*12 个按钮，末页就是剩下的，也就是_文件数量-(x-1)*12
_按钮个数1 ＝ 需要增加的子夹数量 × 12
末页按钮个数 ＝ _文件数量 － _按钮个数1  ' 直接传值给全局变量 末页按钮个数
输出调试文本 (“需要增加的选择夹数量” ＋ 到文本 (需要增加的子夹数量))
输出调试文本 (“末页按钮个数” ＋ 到文本 (_按钮个数1))
' 我们拿到了想要的参数，接着就根据参数对按钮和选择夹样式进行修改
计次循环首 (需要增加的子夹数量, i)
高级选择夹1.加入子夹 (“page” ＋ 到文本 (i ＋ 1), , , , )  ' 选择夹调整
计次循环尾 ()
' 选择夹按钮调整
高级选择夹1.现行子夹 ＝ 0
如果 (需要增加的子夹数量 ≥ 1)
计次循环首 (12, i)
_item [i].标题 ＝ 找到的文件列表 [i]
_item [i].可视 ＝ 真
_item [i].禁止 ＝ 假
计次循环尾 ()

计次循环首 (_文件数量, i)
_item [i].标题 ＝ 找到的文件列表 [i]
_item [i].可视 ＝ 真
_item [i].禁止 ＝ 假
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_高级选择夹1_子夹头被单击
参数名	类 型	参考	可空	数组	备 注
子夹索引	整数型

变量名	类 型	静态	数组	备 注
i	整数型
处理按钮_初始	整数型

子夹_当前页面 ＝ 子夹索引 ＋ 1
输出调试文本 (“当前：第” ＋ 到文本 (子夹_当前页面) ＋ “页”)
判断 (_文件数量 ＞ 12)  ' 按钮数>12 '子夹数目不唯一继续判断
判断 (子夹索引 ＝ 高级选择夹1.取子夹数目 () － 1)  ' 子夹索引为最后一个子夹
输出调试文本 (“末页按钮个数:” ＋ 到文本 (末页按钮个数))
' 给末页按钮改标题和对应的响应子程序
变量循环首 (末页按钮个数, 1, -1, i)  ' 这里是倒序，从最后一个按钮开始给按钮标题赋值
如果真 (i ＝ 末页按钮个数)
_item [末页按钮个数].标题 ＝ 找到的文件列表 [_文件数量]  ' 第一个按钮标题指直接用文件列表的最后一个成员，能理解吧？
到循环尾 ()
_item [末页按钮个数].标题 ＝ 找到的文件列表 [_文件数量 － 1]
变量循环尾 ()
' 将多余按钮隐藏、禁止掉
计次循环首 (12 － 末页按钮个数, i)
处理按钮_初始 ＝ i ＋ 末页按钮个数
_item [处理按钮_初始].禁止 ＝ 真
_item [处理按钮_初始].可视 ＝ 假
计次循环尾 ()



变量循环首 (12, 1, -1, i)  ' 最后一页之前的子夹都是满铺’画按钮
如果真 (i ＝ 12)
_item [i].标题 ＝ 找到的文件列表 [子夹_当前页面 × 12]  ' 最后一个按钮的标题 ‘子夹索引 × 12是现行子夹的最后一个标题
到循环尾 ()

_item [i].标题 ＝ 找到的文件列表 [子夹_当前页面 × 12 － 1]  ' 这里是倒序，从最后一个按钮开始给按钮标题赋值
变量循环尾 ()
' 显示页面所有按钮‘防止用户点击最后一页然后切回后有按钮不显示
计次循环首 (12, i)
_item [i].禁止 ＝ 假
_item [i].可视 ＝ 真
计次循环尾 ()



判断 (_文件数量 ≤ 12)  ' 按钮数<=12’子夹数目为1继续判断
计次循环首 (末页按钮个数, i)  ' 只有一页的情况，先改标题
_item [i].标题 ＝ 找到的文件列表 [i]
计次循环尾 ()
' 将多余按钮隐藏、禁止掉
计次循环首 (12 － 末页按钮个数, i)
处理按钮_初始 ＝ i ＋ 末页按钮个数
_item [处理按钮_初始].禁止 ＝ 真
_item [处理按钮_初始].可视 ＝ 假
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击			按钮事件_打开按钮对应的文件

变量名	类 型	静态	数组	备 注
_打开文件的路径	文本型

_打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题
如果真 (文件是否存在 (_打开文件的路径) ＝ 假)
重启自身 ()
返回 ()
执行 (4, _打开文件的路径, , , )

子程序名	返回值类型	公开	备 注
_按钮2_被单击			按钮事件_打开按钮对应的文件

变量名	类 型	静态	数组	备 注
_打开文件的路径	文本型

_打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题
如果真 (文件是否存在 (_打开文件的路径) ＝ 假)
重启自身 ()
返回 ()

执行 (4, _打开文件的路径, , , )

子程序名	返回值类型	公开	备 注
_按钮3_被单击			按钮事件_打开按钮对应的文件

变量名	类 型	静态	数组	备 注
_打开文件的路径	文本型

_打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题
如果真 (文件是否存在 (_打开文件的路径) ＝ 假)
重启自身 ()
返回 ()

执行 (4, _打开文件的路径, , , )

子程序名	返回值类型	公开	备 注
_按钮4_被单击			按钮事件_打开按钮对应的文件

变量名	类 型	静态	数组	备 注
_打开文件的路径	文本型

_打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题
如果真 (文件是否存在 (_打开文件的路径) ＝ 假)
重启自身 ()
返回 ()

执行 (4, _打开文件的路径, , , )

子程序名	返回值类型	公开	备 注
_按钮5_被单击			按钮事件_打开按钮对应的文件

变量名	类 型	静态	数组	备 注
_打开文件的路径	文本型

_打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题
如果真 (文件是否存在 (_打开文件的路径) ＝ 假)
重启自身 ()
返回 ()
执行 (4, _打开文件的路径, , , )

子程序名	返回值类型	公开	备 注
_按钮6_被单击			按钮事件_打开按钮对应的文件

变量名	类 型	静态	数组	备 注
_打开文件的路径	文本型

_打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题
如果真 (文件是否存在 (_打开文件的路径) ＝ 假)
重启自身 ()
返回 ()

执行 (4, _打开文件的路径, , , )

子程序名	返回值类型	公开	备 注
_按钮7_被单击			按钮事件_打开按钮对应的文件

变量名	类 型	静态	数组	备 注
_打开文件的路径	文本型

_打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题
如果真 (文件是否存在 (_打开文件的路径) ＝ 假)
重启自身 ()
返回 ()

执行 (4, _打开文件的路径, , , )

子程序名	返回值类型	公开	备 注
_按钮8_被单击			按钮事件_打开按钮对应的文件

变量名	类 型	静态	数组	备 注
_打开文件的路径	文本型

_打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题
如果真 (文件是否存在 (_打开文件的路径) ＝ 假)
重启自身 ()
返回 ()

执行 (4, _打开文件的路径, , , )

子程序名	返回值类型	公开	备 注
_按钮9_被单击			按钮事件_打开按钮对应的文件

变量名	类 型	静态	数组	备 注
_打开文件的路径	文本型

_打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题
如果真 (文件是否存在 (_打开文件的路径) ＝ 假)
重启自身 ()
返回 ()

执行 (4, _打开文件的路径, , , )

子程序名	返回值类型	公开	备 注
_按钮10_被单击			按钮事件_打开按钮对应的文件

变量名	类 型	静态	数组	备 注
_打开文件的路径	文本型

_打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题
如果真 (文件是否存在 (_打开文件的路径) ＝ 假)
重启自身 ()
返回 ()

执行 (4, _打开文件的路径, , , )

子程序名	返回值类型	公开	备 注
_按钮11_被单击			按钮事件_打开按钮对应的文件

变量名	类 型	静态	数组	备 注
_打开文件的路径	文本型

_打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题
如果真 (文件是否存在 (_打开文件的路径) ＝ 假)
重启自身 ()
返回 ()

执行 (4, _打开文件的路径, , , )

子程序名	返回值类型	公开	备 注
_按钮12_被单击			按钮事件_打开按钮对应的文件

变量名	类 型	静态	数组	备 注
_打开文件的路径	文本型

_打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题
如果真 (文件是否存在 (_打开文件的路径) ＝ 假)
重启自身 ()
返回 ()

执行 (4, _打开文件的路径, , , )

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

执行 (4, 编辑框1.内容, , , )

子程序名	返回值类型	公开	备 注
_按钮_选择目录_被单击			只能是目录哦

判断 (编辑框1.内容 ＝ “”)
' ' 通用对话框1.标题 ＝ “by_月下美孤_FrodeHu@163.com”
' ' 通用对话框1.打开 ()
编辑框1.内容 ＝ 浏览文件夹 (“by_月下美孤_FrodeHu@163.com”, )
如果真 (编辑框1.内容 ≠ “”)
时钟1.时钟周期 ＝ 到整数 (编辑框_刷新频率.内容)

重启自身 ()

子程序名	返回值类型	公开	备 注
_编辑框_刷新频率_内容被改变

如果真 (信息框 (“是否更改监视目录的间隔时间”, #确认钮, “by_月下美孤_FrodeHu@163.com”, ) ＝ #确认钮 )
编辑框_刷新频率.获取焦点 ()
编辑框_刷新频率.字体.加粗 ＝ 真
时钟1.时钟周期 ＝ 到整数 (编辑框_刷新频率.内容)

_启动窗口.获取焦点 ()
编辑框_刷新频率.字体.加粗 ＝ 假

子程序名	返回值类型	公开	备 注
重启自身			按钮不能打开文件时自动调用

变量名	类 型	静态	数组	备 注
命令	文本型

命令 ＝ “taskkill /f /im ” ＋ #引号 ＋ 取执行文件名 () ＋ #引号 ＋ “ &start ” ＋ #引号 ＋ #引号 ＋ “ ” ＋ #引号 ＋ 取执行文件名 () ＋ #引号 ＋ “ &exit”
运行 (“cmd /c ” ＋ 命令, 假,

i支持库列表	支持库注释
xplib	XP风格界面库
iext3	扩展界面支持库三
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 xplib<br /> .支持库 iext3<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口, , , by 月下美孤<a href="mailto:.FrodeHu@163.com" rel="nofollow" rel="nofollow">.FrodeHu@163.com</a><br /> .程序集变量 _枚举, 类_枚举<br /> .程序集变量 _item, 按钮, , "12"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> _item [1] ＝ 按钮1<br /> _item [2] ＝ 按钮2<br /> _item [3] ＝ 按钮3<br /> _item [4] ＝ 按钮4<br /> _item [5] ＝ 按钮5<br /> _item [6] ＝ 按钮6<br /> _item [7] ＝ 按钮7<br /> _item [8] ＝ 按钮8<br /> _item [9] ＝ 按钮9<br /> _item [10] ＝ 按钮10<br /> _item [11] ＝ 按钮11<br /> _item [12] ＝ 按钮12<br /> XP风格 (3)<br /> _启动窗口.总在最前 ＝ 真<br /> <br /> <br /> .子程序 _时钟1_周期事件, , , 监控目录文件数量，有变动的情况下会刷新变量 找到的文件列表、_文件数量  的值<br /> .局部变量 临时_文件数量, 整数型<br /> .局部变量 文件列表_目录, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> ' 调用方法枚举目录下文件数量、文件名列表<br /> 临时_文件数量 ＝ _枚举.枚举_目录下文件数量 (编辑框1.内容)<br /> .如果真 (_文件数量 ≠ 临时_文件数量)  ' 目录下文件数量变动<br />     _文件数量 ＝ 临时_文件数量  ' 全局变量 _文件数量<br /> <br />     _枚举.枚举_文件名 (编辑框1.内容, 文件列表_目录)  ' 调用方法枚举目录下文件名数组''易语言<br />     复制数组 (找到的文件列表, 文件列表_目录)  ' 将枚举到的数组传给全局变量数组 找到的文件列表<br />     输出调试文本 (_文件数量)<br />     输出调试文本 (找到的文件列表 [1])<br /> <br />     新建按钮_参数获取_配置组件 ()<br /> <br /> .如果真结束<br /> 标签_文件数量.标题 ＝ 到文本 (_文件数量)<br /> <br /> <br /> <br /> .子程序 新建按钮_参数获取_配置组件, , , 获取选择夹末页按钮个数和选择夹样式<br /> .局部变量 _按钮个数1, 整数型<br /> .局部变量 需要增加的子夹数量, 双精度小数型<br /> .局部变量 i, 整数型<br /> <br /> ' 判断需要增加的选择夹数量<br /> ' 我画的按钮一个选择夹子夹只能放下12个<br /> ' 默认已经有一个子夹了，实际子夹数量会多一个，所以对 需要增加的选择夹数量 直接取整就完了<br /> 需要增加的子夹数量 ＝ 取整 (_文件数量 ÷ 12)<br /> <br /> ' 末页按钮个数，按钮个数显而易见就是_文件数量<br /> ' 前x-1页都是铺满12个按钮，就是 (x-1)*12 个按钮，末页就是剩下的，也就是_文件数量-(x-1)*12<br /> _按钮个数1 ＝ 需要增加的子夹数量 × 12<br /> 末页按钮个数 ＝ _文件数量 － _按钮个数1  ' 直接传值给全局变量 末页按钮个数<br /> <br /> 输出调试文本 (“需要增加的选择夹数量” ＋ 到文本 (需要增加的子夹数量))<br /> 输出调试文本 (“末页按钮个数” ＋ 到文本 (_按钮个数1))<br /> <br /> ' 我们拿到了想要的参数，接着就根据参数对按钮和选择夹样式进行修改<br /> .计次循环首 (需要增加的子夹数量, i)<br />     高级选择夹1.加入子夹 (“page” ＋ 到文本 (i ＋ 1), , , , )  ' 选择夹调整<br /> .计次循环尾 ()<br /> ' 选择夹按钮调整<br /> 高级选择夹1.现行子夹 ＝ 0<br /> .如果 (需要增加的子夹数量 ≥ 1)<br />     .计次循环首 (12, i)<br />         _item <i>.标题 ＝ 找到的文件列表 <i><br />         _item <i>.可视 ＝ 真<br />         _item <i>.禁止 ＝ 假<br />     .计次循环尾 ()<br /> <br /> .否则<br />     .计次循环首 (_文件数量, i)<br />         _item <i>.标题 ＝ 找到的文件列表 <i><br />         _item <i>.可视 ＝ 真<br />         _item <i>.禁止 ＝ 假<br />     .计次循环尾 ()<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 _高级选择夹1_子夹头被单击<br /> .参数 子夹索引, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 处理按钮_初始, 整数型<br /> <br /> 子夹_当前页面 ＝ 子夹索引 ＋ 1<br /> 输出调试文本 (“当前：第” ＋ 到文本 (子夹_当前页面) ＋ “页”)<br /> .判断开始 (_文件数量 ＞ 12)  ' 按钮数>12 '子夹数目不唯一继续判断<br />     .判断开始 (子夹索引 ＝ 高级选择夹1.取子夹数目 () － 1)  ' 子夹索引为最后一个子夹<br />         输出调试文本 (“末页按钮个数:” ＋ 到文本 (末页按钮个数))<br />         ' 给末页按钮改标题和对应的响应子程序<br />         .变量循环首 (末页按钮个数, 1, -1, i)  ' 这里是倒序，从最后一个按钮开始给按钮标题赋值<br />             .如果真 (i ＝ 末页按钮个数)<br />                 _item [末页按钮个数].标题 ＝ 找到的文件列表 [_文件数量]  ' 第一个按钮标题指直接用文件列表的最后一个成员，能理解吧？<br />                 到循环尾 ()<br />             .如果真结束<br />             _item [末页按钮个数].标题 ＝ 找到的文件列表 [_文件数量 － 1]<br />         .变量循环尾 ()<br /> <br />         ' 将多余按钮隐藏、禁止掉<br />         .计次循环首 (12 － 末页按钮个数, i)<br />             处理按钮_初始 ＝ i ＋ 末页按钮个数<br />             _item [处理按钮_初始].禁止 ＝ 真<br />             _item [处理按钮_初始].可视 ＝ 假<br />         .计次循环尾 ()<br /> <br />     .默认<br /> <br />         .变量循环首 (12, 1, -1, i)  ' 最后一页之前的子夹都是满铺’画按钮<br />             .如果真 (i ＝ 12)<br />                 _item <i>.标题 ＝ 找到的文件列表 [子夹_当前页面 × 12]  ' 最后一个按钮的标题 ‘子夹索引 × 12是现行子夹的最后一个标题<br />                 到循环尾 ()<br />             .如果真结束<br /> <br />             _item <i>.标题 ＝ 找到的文件列表 [子夹_当前页面 × 12 － 1]  ' 这里是倒序，从最后一个按钮开始给按钮标题赋值<br />         .变量循环尾 ()<br />         ' 显示页面所有按钮‘防止用户点击最后一页然后切回后有按钮不显示<br />         .计次循环首 (12, i)<br />             _item <i>.禁止 ＝ 假<br />             _item <i>.可视 ＝ 真<br />         .计次循环尾 ()<br />     .判断结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> .判断开始 (_文件数量 ≤ 12)  ' 按钮数<=12’子夹数目为1继续判断<br />     .计次循环首 (末页按钮个数, i)  ' 只有一页的情况，先改标题<br />         _item <i>.标题 ＝ 找到的文件列表 <i><br />     .计次循环尾 ()<br />     ' 将多余按钮隐藏、禁止掉<br />     .计次循环首 (12 － 末页按钮个数, i)<br />         处理按钮_初始 ＝ i ＋ 末页按钮个数<br />         _item [处理按钮_初始].禁止 ＝ 真<br />         _item [处理按钮_初始].可视 ＝ 假<br />     .计次循环尾 ()<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _按钮1_被单击, , , 按钮事件_打开按钮对应的文件<br /> .局部变量 _打开文件的路径, 文本型<br /> <br /> _打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题<br /> .如果真 (文件是否存在 (_打开文件的路径) ＝ 假)<br />     重启自身 ()<br />     返回 ()<br /> .如果真结束<br /> 执行 (4, _打开文件的路径, , , )<br /> <br /> <br /> .子程序 _按钮2_被单击, , , 按钮事件_打开按钮对应的文件<br /> .局部变量 _打开文件的路径, 文本型<br /> <br /> _打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题<br /> .如果真 (文件是否存在 (_打开文件的路径) ＝ 假)<br />     重启自身 ()<br />     返回 ()<br /> .如果真结束<br /> <br /> 执行 (4, _打开文件的路径, , , )<br /> <br /> <br /> .子程序 _按钮3_被单击, , , 按钮事件_打开按钮对应的文件<br /> .局部变量 _打开文件的路径, 文本型<br /> <br /> _打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题<br /> .如果真 (文件是否存在 (_打开文件的路径) ＝ 假)<br />     重启自身 ()<br />     返回 ()<br /> .如果真结束<br /> <br /> 执行 (4, _打开文件的路径, , , )<br /> <br /> <br /> .子程序 _按钮4_被单击, , , 按钮事件_打开按钮对应的文件<br /> .局部变量 _打开文件的路径, 文本型<br /> <br /> _打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题<br /> .如果真 (文件是否存在 (_打开文件的路径) ＝ 假)<br />     重启自身 ()<br />     返回 ()<br /> .如果真结束<br /> <br /> 执行 (4, _打开文件的路径, , , )<br /> <br /> <br /> .子程序 _按钮5_被单击, , , 按钮事件_打开按钮对应的文件<br /> .局部变量 _打开文件的路径, 文本型<br /> <br /> _打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题<br /> .如果真 (文件是否存在 (_打开文件的路径) ＝ 假)<br />     重启自身 ()<br />     返回 ()<br /> .如果真结束<br /> 执行 (4, _打开文件的路径, , , )<br /> <br /> <br /> .子程序 _按钮6_被单击, , , 按钮事件_打开按钮对应的文件<br /> .局部变量 _打开文件的路径, 文本型<br /> <br /> _打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题<br /> .如果真 (文件是否存在 (_打开文件的路径) ＝ 假)<br />     重启自身 ()<br />     返回 ()<br /> .如果真结束<br /> <br /> 执行 (4, _打开文件的路径, , , )<br /> <br /> <br /> .子程序 _按钮7_被单击, , , 按钮事件_打开按钮对应的文件<br /> .局部变量 _打开文件的路径, 文本型<br /> <br /> _打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题<br /> .如果真 (文件是否存在 (_打开文件的路径) ＝ 假)<br />     重启自身 ()<br />     返回 ()<br /> .如果真结束<br /> <br /> 执行 (4, _打开文件的路径, , , )<br /> <br /> <br /> .子程序 _按钮8_被单击, , , 按钮事件_打开按钮对应的文件<br /> .局部变量 _打开文件的路径, 文本型<br /> <br /> _打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题<br /> .如果真 (文件是否存在 (_打开文件的路径) ＝ 假)<br />     重启自身 ()<br />     返回 ()<br /> .如果真结束<br /> <br /> 执行 (4, _打开文件的路径, , , )<br /> <br /> <br /> .子程序 _按钮9_被单击, , , 按钮事件_打开按钮对应的文件<br /> .局部变量 _打开文件的路径, 文本型<br /> <br /> _打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题<br /> .如果真 (文件是否存在 (_打开文件的路径) ＝ 假)<br />     重启自身 ()<br />     返回 ()<br /> .如果真结束<br /> <br /> 执行 (4, _打开文件的路径, , , )<br /> <br /> <br /> .子程序 _按钮10_被单击, , , 按钮事件_打开按钮对应的文件<br /> .局部变量 _打开文件的路径, 文本型<br /> <br /> _打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题<br /> .如果真 (文件是否存在 (_打开文件的路径) ＝ 假)<br />     重启自身 ()<br />     返回 ()<br /> .如果真结束<br /> <br /> 执行 (4, _打开文件的路径, , , )<br /> <br /> <br /> .子程序 _按钮11_被单击, , , 按钮事件_打开按钮对应的文件<br /> .局部变量 _打开文件的路径, 文本型<br /> <br /> _打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题<br /> .如果真 (文件是否存在 (_打开文件的路径) ＝ 假)<br />     重启自身 ()<br />     返回 ()<br /> .如果真结束<br /> <br /> 执行 (4, _打开文件的路径, , , )<br /> <br /> <br /> .子程序 _按钮12_被单击, , , 按钮事件_打开按钮对应的文件<br /> .局部变量 _打开文件的路径, 文本型<br /> <br /> _打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 按钮1.标题<br /> .如果真 (文件是否存在 (_打开文件的路径) ＝ 假)<br />     重启自身 ()<br />     返回 ()<br /> .如果真结束<br /> <br /> 执行 (4, _打开文件的路径, , , )<br /> <br /> <br /> .子程序 _按钮_打开目录_被单击<br /> <br /> 执行 (4, 编辑框1.内容, , , )<br /> <br /> .子程序 _按钮_选择目录_被单击, , , 只能是目录哦<br /> <br /> .判断开始 (编辑框1.内容 ＝ “”)<br />     ' ' 通用对话框1.标题 ＝ “by_月下美孤<a href="mailto:_FrodeHu@163.com" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow">_FrodeHu@163.com</a>”<br />     ' ' 通用对话框1.打开 ()<br />     编辑框1.内容 ＝ 浏览文件夹 (“by_月下美孤<a href="mailto:_FrodeHu@163.com" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow">_FrodeHu@163.com</a>”, )<br />     .如果真 (编辑框1.内容 ≠ “”)<br />         时钟1.时钟周期 ＝ 到整数 (编辑框_刷新频率.内容)<br />     .如果真结束<br /> <br /> .默认<br />     重启自身 ()<br /> .判断结束<br /> <br /> <br /> .子程序 _编辑框_刷新频率_内容被改变<br /> <br /> <br /> .如果真 (信息框 (“是否更改监视目录的间隔时间”, #确认钮, “by_月下美孤<a href="mailto:_FrodeHu@163.com" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow">_FrodeHu@163.com</a>”, ) ＝ #确认钮)<br />     编辑框_刷新频率.获取焦点 ()<br />     编辑框_刷新频率.字体.加粗 ＝ 真<br />     时钟1.时钟周期 ＝ 到整数 (编辑框_刷新频率.内容)<br /> .如果真结束<br /> <br /> _启动窗口.获取焦点 ()<br /> 编辑框_刷新频率.字体.加粗 ＝ 假<br /> <br /> <br /> .子程序 重启自身, , , 按钮不能打开文件时自动调用<br /> .局部变量 命令, 文本型<br /> <br /> 命令 ＝ “taskkill /f /im ” ＋ #引号 ＋ 取执行文件名 () ＋ #引号 ＋ “ &start ” ＋ #引号 ＋ #引号 ＋ “ ” ＋ #引号 ＋ 取执行文件名 () ＋ #引号 ＋ “ &exit”<br /> 运行 (“cmd /c ” ＋ 命令, 假,

那我不得凑个热闹

源码很白，没有用到模块，纯官方库，用到了不少重要的基础知识！（数组|类模块的写法|循环之类的）

我也是尽量做到通俗易懂了，注释写的有点多，各位老哥老姐们不要介意，

关于bug方面，因为我没有花很多时间测试，所以不知道对.txt|.exe格式之外的文件不支持。

月下美孤

学友们，文件枚举并生成按钮2.0版已经发布啦，由于本人的疏忽导致第一版源码算法有问题，现已改正

月下美孤

月下美孤 发表于 2021-12-7 14:48
学友们，文件枚举并生成按钮2.0版已经发布啦，由于本人的疏忽导致第一版源码算法有问题，现已改正 ...

（bug更正）文件枚举并生成按钮v1.0，全官方库纯源码
https://bbs.125.la/forum.php?mod=viewthread&tid=14709541
(出处: 精易论坛)

wohenhao123

学习下看看

孤峰

打开学习 看一看，，，学习基础知识很重要

趣冉科技

感谢楼主分享，支持一下~~！！！

momoko001

支持开源~！感谢分享

huahuayu

支持开源~！感谢分享!!!

FHLS

谢谢分享

zouxiang

支持开源~！感谢分享!!!

月下美孤

qq2518 发表于 2021-12-6 17:18
注释越多越好

（bug更正）文件枚举并生成按钮v1.0，全官方库纯源码
https://bbs.125.la/forum.php?mod=viewthread&tid=14709541
(出处: 精易论坛)