（bug更正）文件枚举并生成按钮v1.0，全官方库纯源码

月下美孤

承接第一帖↓↓ https://bbs.125.la/forum.php?mod=viewthread&tid=14709207&extra= ，由于本人的疏忽，第一版源码有很严重的算法错误。 本帖为纠错帖，顺便向各位学友诚恳致歉：                        “我错了！” 顺便附上修正后的源码（以下自取↓↓） 部分代码如下↓    窗口程序集名 保 留   保 留 备 注 窗口程序集_启动窗口     by 月下美孤.FrodeHu@163.com 变量名 类 型 数组 备 注 _枚举 类_枚举 类模块方法:_枚举 _item 按钮 12 常量，易语言常量不支持数组就放这儿了 子程序名 返回值类型 公开 备 注 __启动窗口_创建完毕   置子夹内按钮常量数组_item _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 整数型   需要增加的子夹数量 双精度小数型   i 整数型   ' 判断需要增加的选择夹数量 ' 我画的按钮一个选择夹子夹只能放下12个 ' 默认已经有一个子夹了，实际子夹数量会多一个，所以对 需要增加的选择夹数量 直接取整就完了 需要增加的子夹数量 ＝ 取整 (_文件数量 ÷ 12) 调试输出 (“————需要增加【” ＋ 到文本 (需要增加的子夹数量) ＋ “】个子夹！————”) ' 我们拿到了想要的参数，接着就根据参数选择夹样式进行修改 计次循环首 (需要增加的子夹数量, i) 高级选择夹1.加入子夹 (“page” ＋ 到文本 (i ＋ 1), , , , )  ' 选择夹调整 计次循环尾 () _高级选择夹1_子夹头被单击 (0)  ' 执行一次获取按钮 子程序名 返回值类型 公开 备 注 _高级选择夹1_子夹头被单击   根据索引展示按钮 参数名 类 型 参考 可空 数组 备 注 子夹索引 整数型 变量名 类 型 静态 数组 备 注 i 整数型   当前页按钮数量 整数型   按钮对应的文件名位置 整数型 0 ' 先算出用户点击的子夹应该展示多少个按钮 判断 (_文件数量 ＞ 12)  ' 选择夹不止一页 判断 (子夹索引 ＝ 高级选择夹1.取子夹数目 () － 1)  ' 子夹索引为最后一页 当前页按钮数量 ＝ 取整 (_文件数量 ÷ 12) × 12 当前页按钮数量 ＝ _文件数量 － 当前页按钮数量 当前页按钮数量 ＝ 12 当前页按钮数量 ＝ _文件数量  ' 选择夹只有一页 调试输出 (“————当前页有【” ＋ 到文本 (当前页按钮数量) ＋ “】个按钮”) ' 再算出当前页按钮对应的按钮信息————按钮标题、按钮子程序 ' 第一个按钮对应的文件名位置 =子夹索引 × 12 ＋ 1‘可以自己尝试找规律 计次循环首 (当前页按钮数量, i) 加入成员 (按钮对应的文件名位置, 子夹索引 × 12 ＋ i) 调试输出 (“————按钮[” ＋ 到文本 (i) ＋ “]对应的文件名位置：” ＋ 到文本 (按钮对应的文件名位置 [i]) ＋ “————”) 计次循环尾 () ' 根据得到的参数来展示当页的按钮状态 计次循环首 (当前页按钮数量, i) _item [i].标题 ＝ 找到的文件列表 [按钮对应的文件名位置 [i]] _item [i].禁止 ＝ 假 _item [i].可视 ＝ 真 计次循环尾 () 如果真 (12 － 当前页按钮数量 ≠ 0) 计次循环首 (12 － 当前页按钮数量, i) _item [当前页按钮数量 ＋ i].禁止 ＝ 真 _item [当前页按钮数量 ＋ i].可视 ＝ 假 计次循环尾 () ' —————————————按钮事件——————————————————— ' 子夹内每个按钮的功能都差不多，都是打开标题对应的文件 ' 那么我们可以尽量简化代码 ' 全局变量 子夹_当前点击的按钮 对应的数据是按钮类型，我只要修改这个变量，就可以读取到想要的按钮标题 子程序名 返回值类型 公开 备 注 _按钮1_被单击     子夹_当前点击的按钮 ＝ 按钮1 子夹内_按钮被单击 () 子程序名 返回值类型 公开 备 注 _按钮2_被单击     子夹_当前点击的按钮 ＝ 按钮2 子夹内_按钮被单击 () 子程序名 返回值类型 公开 备 注 _按钮3_被单击     子夹_当前点击的按钮 ＝ 按钮3 子夹内_按钮被单击 () 子程序名 返回值类型 公开 备 注 _按钮4_被单击     子夹_当前点击的按钮 ＝ 按钮4 子夹内_按钮被单击 () 子程序名 返回值类型 公开 备 注 _按钮5_被单击     子夹_当前点击的按钮 ＝ 按钮5 子夹内_按钮被单击 () 子程序名 返回值类型 公开 备 注 _按钮6_被单击     子夹_当前点击的按钮 ＝ 按钮6 子夹内_按钮被单击 () 子程序名 返回值类型 公开 备 注 _按钮7_被单击     子夹_当前点击的按钮 ＝ 按钮7 子夹内_按钮被单击 () 子程序名 返回值类型 公开 备 注 _按钮8_被单击     子夹_当前点击的按钮 ＝ 按钮8 子夹内_按钮被单击 () 子程序名 返回值类型 公开 备 注 _按钮9_被单击     子夹_当前点击的按钮 ＝ 按钮9 子夹内_按钮被单击 () 子程序名 返回值类型 公开 备 注 _按钮10_被单击     子夹_当前点击的按钮 ＝ 按钮10 子夹内_按钮被单击 () 子程序名 返回值类型 公开 备 注 _按钮11_被单击     子夹_当前点击的按钮 ＝ 按钮11 子夹内_按钮被单击 () 子程序名 返回值类型 公开 备 注 _按钮12_被单击     子夹_当前点击的按钮 ＝ 按钮12 子夹内_按钮被单击 () 子程序名 返回值类型 公开 备 注 子夹内_按钮被单击   子夹内按钮被单击 变量名 类 型 静态 数组 备 注 _打开文件的路径 文本型   _打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 子夹_当前点击的按钮.标题 执行 (4, _打开文件的路径, , , ) ' ————————————其它按钮—————————————————— 子程序名 返回值类型 公开 备 注 _按钮_打开目录_被单击     执行 (4, 编辑框1.内容, , , ) 子程序名 返回值类型 公开 备 注 _按钮_选择目录_被单击   只能是目录哦 变量名 类 型 静态 数组 备 注 i 整数型   如果真 (编辑框1.内容 ≠ “”)  ' 编辑框有内容，说明时钟任务正在执行 编辑框1.内容 ＝ “” 时钟1.时钟周期 ＝ 0  ' 先停掉 ' 将可能产生影响的变量给清零 删除成员 (找到的文件列表, 1, 取数组成员数 (找到的文件列表)) _文件数量 ＝ 0 ' 将子夹、按钮状态还原 变量循环首 (高级选择夹1.取子夹数目 () － 1, 1, -1, i) 高级选择夹1.删除子夹 (i) 变量循环尾 () 计次循环首 (12, i) _item [i].标题 ＝ “按钮”  ' 这个其实可以不改 _item [i].禁止 ＝ 真 _item [i].可视 ＝ 假 计次循环尾 () 编辑框1.内容 ＝ 浏览文件夹 (“by_月下美孤_FrodeHu@163.com”, ) 如果真 (编辑框1.内容 ≠ “”) 时钟1.时钟周期 ＝ 到整数 (编辑框_刷新频率.内容) ' 写配置项 (取运行目录 () ＋ “\临时数据.ini”, “临时数据”, “用户选择的目录”, 编辑框1.内容) ' 写配置项 (取运行目录 () ＋ “\临时数据.ini”, “临时数据”, “用户定义的时间：”, 编辑框_刷新频率.内容) ' 重启自身 () 子程序名 返回值类型 公开 备 注 _编辑框_刷新频率_按下某键 逻辑型   by_月下美孤_FrodeHu@163.com 参数名 类 型 参考 可空 数组 备 注 键代码 整数型 功能键状态 整数型 判断 (键代码 ＝ #回车键 ) 判断 (编辑框_刷新频率.内容 ≠ “” 且 到整数 (编辑框_刷新频率.内容) ≥ 1000) 时钟1.时钟周期 ＝ 到整数 (编辑框_刷新频率.内容) 编辑框_刷新频率.字体.加粗 ＝ 真 信息框 (“刷新频率不能为空或频率过高！”, 16, “by_月下美孤_FrodeHu@163.com”, ) i支持库列表    支持库注释    xplib XP风格界面库 spec 特殊功能支持库 iext3 扩展界面支持库三 shell 操作系统界面功能支持库 .版本 2<br /> .支持库 xplib<br /> .支持库 spec<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 /> .子程序 __启动窗口_创建完毕, , , 置子夹内按钮常量数组_item<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 /> <br /> ' 窗口置顶<br /> _启动窗口.总在最前 ＝ 真<br /> _启动窗口.总在最前 ＝ 假<br /> XP风格 (3)<br /> <br /> <br /> .子程序 _时钟1_周期事件, , , 监控目录文件数量，有变动的情况下会刷新变量 找到的文件列表、_文件数量  的值<br /> .局部变量 临时_文件数量, 整数型<br /> .局部变量 文件列表_目录, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> ' 调用方法枚举目录下文件数量、文件名列表<br /> 临时_文件数量 ＝ _枚举.枚举_目录下文件数量 (编辑框1.内容)<br /> .如果真 (_文件数量 ≠ 临时_文件数量)  ' 目录下文件数量变动<br />     _文件数量 ＝ 临时_文件数量  ' 全局变量 _文件数量<br /> <br />     _枚举.枚举_文件名 (编辑框1.内容, 文件列表_目录)  ' 调用方法枚举目录下文件名数组''易语言<br />     复制数组 (找到的文件列表, 文件列表_目录)  ' 将枚举到的数组传给全局变量数组 找到的文件列表<br />     调试输出 (“————监视目录下有：【” ＋ 到文本 (_文件数量) ＋ “】个文件！文件名数组为↓：”)<br />     调试输出 (找到的文件列表)<br />     调试输出 (“——————————————————————————————————————————————”)<br />     新建按钮_参数获取_配置组件 ()<br /> <br /> .如果真结束<br /> 标签_文件数量.标题 ＝ 到文本 (_文件数量)<br /> <br /> <br /> <br /> .子程序 新建按钮_参数获取_配置组件, , , 获取选择夹末页按钮个数和选择夹样式<br /> .局部变量 _按钮个数1, 整数型<br /> .局部变量 需要增加的子夹数量, 双精度小数型<br /> .局部变量 i, 整数型<br /> <br /> ' 判断需要增加的选择夹数量<br /> ' 我画的按钮一个选择夹子夹只能放下12个<br /> ' 默认已经有一个子夹了，实际子夹数量会多一个，所以对 需要增加的选择夹数量 直接取整就完了<br /> 需要增加的子夹数量 ＝ 取整 (_文件数量 ÷ 12)<br /> 调试输出 (“————需要增加【” ＋ 到文本 (需要增加的子夹数量) ＋ “】个子夹！————”)<br /> <br /> ' 我们拿到了想要的参数，接着就根据参数选择夹样式进行修改<br /> .计次循环首 (需要增加的子夹数量, i)<br />     高级选择夹1.加入子夹 (“page” ＋ 到文本 (i ＋ 1), , , , )  ' 选择夹调整<br /> .计次循环尾 ()<br /> <br /> _高级选择夹1_子夹头被单击 (0)  ' 执行一次获取按钮<br /> <br /> <br /> .子程序 _高级选择夹1_子夹头被单击, , , 根据索引展示按钮<br /> .参数 子夹索引, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 当前页按钮数量, 整数型<br /> .局部变量 按钮对应的文件名位置, 整数型, , "0"<br /> <br /> ' 先算出用户点击的子夹应该展示多少个按钮<br /> .判断开始 (_文件数量 ＞ 12)  ' 选择夹不止一页<br />     .判断开始 (子夹索引 ＝ 高级选择夹1.取子夹数目 () － 1)  ' 子夹索引为最后一页<br />         当前页按钮数量 ＝ 取整 (_文件数量 ÷ 12) × 12<br />         当前页按钮数量 ＝ _文件数量 － 当前页按钮数量<br /> <br />     .默认<br />         当前页按钮数量 ＝ 12<br />     .判断结束<br /> <br /> .默认<br />     当前页按钮数量 ＝ _文件数量  ' 选择夹只有一页<br /> .判断结束<br /> 调试输出 (“————当前页有【” ＋ 到文本 (当前页按钮数量) ＋ “】个按钮”)<br /> ' 再算出当前页按钮对应的按钮信息————按钮标题、按钮子程序<br /> ' 第一个按钮对应的文件名位置 =子夹索引 × 12 ＋ 1‘可以自己尝试找规律<br /> .计次循环首 (当前页按钮数量, i)<br />     加入成员 (按钮对应的文件名位置, 子夹索引 × 12 ＋ i)<br />     调试输出 (“————按钮[” ＋ 到文本 (i) ＋ “]对应的文件名位置：” ＋ 到文本 (按钮对应的文件名位置 <i>) ＋ “————”)<br /> .计次循环尾 ()<br /> <br /> ' 根据得到的参数来展示当页的按钮状态<br /> .计次循环首 (当前页按钮数量, i)<br />     _item <i>.标题 ＝ 找到的文件列表 [按钮对应的文件名位置 <i>]<br />     _item <i>.禁止 ＝ 假<br />     _item <i>.可视 ＝ 真<br /> .计次循环尾 ()<br /> .如果真 (12 － 当前页按钮数量 ≠ 0)<br />     .计次循环首 (12 － 当前页按钮数量, i)<br />         _item [当前页按钮数量 ＋ i].禁止 ＝ 真<br />         _item [当前页按钮数量 ＋ i].可视 ＝ 假<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> <br /> <br /> <br /> ' —————————————按钮事件———————————————————<br /> ' 子夹内每个按钮的功能都差不多，都是打开标题对应的文件<br /> ' 那么我们可以尽量简化代码<br /> ' 全局变量 子夹_当前点击的按钮 对应的数据是按钮类型，我只要修改这个变量，就可以读取到想要的按钮标题<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 子夹_当前点击的按钮 ＝ 按钮1<br /> 子夹内_按钮被单击 ()<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 子夹_当前点击的按钮 ＝ 按钮2<br /> 子夹内_按钮被单击 ()<br /> <br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 子夹_当前点击的按钮 ＝ 按钮3<br /> 子夹内_按钮被单击 ()<br /> <br /> <br /> .子程序 _按钮4_被单击<br /> <br /> 子夹_当前点击的按钮 ＝ 按钮4<br /> 子夹内_按钮被单击 ()<br /> <br /> <br /> .子程序 _按钮5_被单击<br /> <br /> 子夹_当前点击的按钮 ＝ 按钮5<br /> 子夹内_按钮被单击 ()<br /> <br /> <br /> .子程序 _按钮6_被单击<br /> <br /> 子夹_当前点击的按钮 ＝ 按钮6<br /> 子夹内_按钮被单击 ()<br /> <br /> <br /> .子程序 _按钮7_被单击<br /> <br /> 子夹_当前点击的按钮 ＝ 按钮7<br /> 子夹内_按钮被单击 ()<br /> <br /> <br /> .子程序 _按钮8_被单击<br /> <br /> 子夹_当前点击的按钮 ＝ 按钮8<br /> 子夹内_按钮被单击 ()<br /> <br /> <br /> .子程序 _按钮9_被单击<br /> <br /> 子夹_当前点击的按钮 ＝ 按钮9<br /> 子夹内_按钮被单击 ()<br /> <br /> <br /> .子程序 _按钮10_被单击<br /> <br /> 子夹_当前点击的按钮 ＝ 按钮10<br /> 子夹内_按钮被单击 ()<br /> <br /> <br /> .子程序 _按钮11_被单击<br /> <br /> 子夹_当前点击的按钮 ＝ 按钮11<br /> 子夹内_按钮被单击 ()<br /> <br /> <br /> .子程序 _按钮12_被单击<br /> <br /> 子夹_当前点击的按钮 ＝ 按钮12<br /> 子夹内_按钮被单击 ()<br /> <br /> <br /> .子程序 子夹内_按钮被单击, , , 子夹内按钮被单击<br /> .局部变量 _打开文件的路径, 文本型<br /> <br /> _打开文件的路径 ＝ 编辑框1.内容 ＋ “\” ＋ 子夹_当前点击的按钮.标题<br /> 执行 (4, _打开文件的路径, , , )<br /> ' ————————————其它按钮——————————————————<br /> <br /> .子程序 _按钮_打开目录_被单击<br /> <br /> 执行 (4, 编辑框1.内容, , , )<br /> <br /> .子程序 _按钮_选择目录_被单击, , , 只能是目录哦<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (编辑框1.内容 ≠ “”)  ' 编辑框有内容，说明时钟任务正在执行<br />     编辑框1.内容 ＝ “”<br />     时钟1.时钟周期 ＝ 0  ' 先停掉<br />     ' 将可能产生影响的变量给清零<br />     删除成员 (找到的文件列表, 1, 取数组成员数 (找到的文件列表))<br />     _文件数量 ＝ 0<br />     ' 将子夹、按钮状态还原<br />     .变量循环首 (高级选择夹1.取子夹数目 () － 1, 1, -1, i)<br />         高级选择夹1.删除子夹 (i)<br />     .变量循环尾 ()<br />     .计次循环首 (12, i)<br />         _item <i>.标题 ＝ “按钮”  ' 这个其实可以不改<br />         _item <i>.禁止 ＝ 真<br />         _item <i>.可视 ＝ 假<br />     .计次循环尾 ()<br /> .如果真结束<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 /> ' 写配置项 (取运行目录 () ＋ “\临时数据.ini”, “临时数据”, “用户选择的目录”, 编辑框1.内容)<br /> ' 写配置项 (取运行目录 () ＋ “\临时数据.ini”, “临时数据”, “用户定义的时间：”, 编辑框_刷新频率.内容)<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 /> <br /> .判断开始 (键代码 ＝ #回车键)<br />     .判断开始 (编辑框_刷新频率.内容 ≠ “” 且 到整数 (编辑框_刷新频率.内容) ≥ 1000)<br />         时钟1.时钟周期 ＝ 到整数 (编辑框_刷新频率.内容)<br />         编辑框_刷新频率.字体.加粗 ＝ 真<br /> <br />     .默认<br />         信息框 (“刷新频率不能为空或频率过高！”, 16, “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 /> <br /> .默认

zlg850701

支持开源~谢谢分享

junhai

谢谢！！！！！！！！！

xjshuaishuai

感谢楼主分享

趣冉科技

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

luyuanli

制作游戏菜单

q27585306

可以用来制作启动菜单

忧郁之子

可以借鉴用来制作游戏菜单

金胖子

拿来吧你！

月下美孤

qq2518 发表于 2021-12-7 17:35
更新了吗。感谢分享

嗯，第一版算法有问题，会出现按钮标题相同的bug
还有取消了重启自身（），简化代码逻辑