精易论坛

标题: 点击按钮循环更换程序背景图+需要精易模块 [打印本页]

---

作者: xxaxxanong    时间: 2024-8-14 21:28
标题: 点击按钮循环更换程序背景图+需要精易模块


说明:点击按钮循环更换背景图  
需要使用精易模块

  

.版本 1

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

变量名	类 型	静态	数组	备 注
寻找文件	整数型
路径	文本型
索引	整数型
图片数组	文本型		0

路径 ＝ 取运行目录 () ＋ “\背景图片”  ' 运行目录+文件夹名称下保存 JPG格式图片
寻找文件 ＝ 文件_枚举 (路径, “*.*”, 图片数组, , , )  ' 需要调用精易模块
' 调试输出 (寻找文件)
' 调试输出 (图片数组)
索引 ＝ 到整数 (图片框1.标记)
索引 ＝ (索引 ＋ 1) ％ 取数组成员数 (图片数组)
如果 (索引 ＝ 0)
索引 ＝ 取数组成员数 (图片数组)



图片框1.标记 ＝ 到文本 (索引)
图片框1.图片 ＝ 读入文件 (路径 ＋ “\” ＋ 图片数组 [索引])

.版本 1 <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 寻找文件, 整数型<br /> .局部变量 路径, 文本型<br /> .局部变量 索引, 整数型<br /> .局部变量 图片数组, 文本型, , "0"<br /> <br /> 路径 ＝ 取运行目录 () ＋ “\背景图片”  ' 运行目录+文件夹名称下保存 JPG格式图片<br /> 寻找文件 ＝ 文件_枚举 (路径, “*.*”, 图片数组, , , )  ' 需要调用精易模块<br /> ' 调试输出 (寻找文件)<br /> ' 调试输出 (图片数组)<br /> <br /> 索引 ＝ 到整数 (图片框1.标记)<br /> 索引 ＝ (索引 ＋ 1) ％ 取数组成员数 (图片数组)<br /> .如果 (索引 ＝ 0)<br />     索引 ＝ 取数组成员数 (图片数组)<br /> .否则<br /> <br /> .如果结束<br /> <br /> 图片框1.标记 ＝ 到文本 (索引)<br /> 图片框1.图片 ＝ 读入文件 (路径 ＋ “\” ＋ 图片数组 [索引])

仅供参考,散了

  

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

变量名	类 型	静态	数组	备 注
寻找文件	整数型
路径	文本型
索引	整数型
图片数组	文本型		0
找到的文件	文本型

路径 ＝ 取运行目录 () ＋ “\背景图片”  '
找到的文件 ＝ 寻找文件 (路径 ＋ “\*.*”, )
判断循环首 (找到的文件 ≠ “”)
调试输出 (找到的文件)
加入成员 (图片数组, 找到的文件)
找到的文件 ＝ 寻找文件 (, )
判断循环尾 ()
调试输出 (“图片数组”, 图片数组)
' 调试输出 (寻找文件)
' 调试输出 (图片数组)
索引 ＝ 到整数 (标签1.标记)
索引 ＝ (索引 ＋ 1) ％ 取数组成员数 (图片数组)
如果 (索引 ＝ 0)
索引 ＝ 取数组成员数 (图片数组)



标签1.标记 ＝ 到文本 (索引)
_启动窗口.底图方式 ＝ #居中图片
_启动窗口.底图 ＝ 读入文件 (路径 ＋ “\” ＋ 图片数组 [索引])

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 寻找文件, 整数型<br /> .局部变量 路径, 文本型<br /> .局部变量 索引, 整数型<br /> .局部变量 图片数组, 文本型, , "0"<br /> .局部变量 找到的文件, 文本型<br /> <br /> 路径 ＝ 取运行目录 () ＋ “\背景图片”  ' <br /> <br /> 找到的文件 ＝ 寻找文件 (路径 ＋ “\*.*”, )<br /> .判断循环首 (找到的文件 ≠ “”)<br />     调试输出 (找到的文件)<br />     加入成员 (图片数组, 找到的文件)<br />     找到的文件 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> 调试输出 (“图片数组”, 图片数组)<br /> ' 调试输出 (寻找文件)<br /> ' 调试输出 (图片数组)<br /> <br /> 索引 ＝ 到整数 (标签1.标记)<br /> 索引 ＝ (索引 ＋ 1) ％ 取数组成员数 (图片数组)<br /> .如果 (索引 ＝ 0)<br />     索引 ＝ 取数组成员数 (图片数组)<br /> .否则<br /> <br /> .如果结束<br /> <br /> 标签1.标记 ＝ 到文本 (索引)<br /> _启动窗口.底图方式 ＝ #居中图片<br /> _启动窗口.底图 ＝ 读入文件 (路径 ＋ “\” ＋ 图片数组 [索引])

背景图更换.e

2024-8-14 21:24 上传

点击文件名下载附件

下载积分: 精币 -2 枚

1.23 MB, 下载次数: 8, 下载积分: 精币 -2 枚

---

作者: renhe2018    时间: 2024-8-15 00:13
前两天还想着做个定时更新背景的，这个用上了啊。

---

作者: xue9528    时间: 2024-8-15 00:49
感谢分享

---

作者: pq9999    时间: 2024-8-15 07:35
感谢分享  支持开源~！

---

作者: 查过    时间: 2024-8-15 07:58
已经顶贴，感谢您对论坛的支持！

---

作者: 豆豆灰常开心    时间: 2024-8-15 08:03
全都是大佬~

---

作者: kyo9766    时间: 2024-8-15 08:40
学习一下图片循环显示，感谢分享

---

作者: 一指温柔    时间: 2024-8-15 09:28
感谢分享

---

作者: 我很低调    时间: 2024-8-15 11:44
支持大佬开源

---

作者: 小磊88    时间: 2024-8-15 12:13
牛皮，支持,谢谢分享。

---

作者: pipicool    时间: 2024-8-15 17:24
学习一下

---

作者: ttggnn    时间: 2024-8-15 21:38
感谢分享，很给力！~

---

作者: bianyuan456    时间: 2024-8-15 22:41
已经顶贴，感谢您对论坛的支持！

---

作者: 396384183    时间: 2024-8-16 00:22
论坛有你更精彩

---

作者: 光影魔术    时间: 2024-8-16 21:14
感谢分享源码

---

作者: 骄傲1882    时间: 2024-8-18 00:51

---

作者: 董明死了    时间: 2024-8-18 19:23
感谢分享

---

作者: hanwyx    时间: 2024-8-26 19:35
DGHFHERGSRTQWAVASRTG

---

作者: 熊不熊    时间: 2024-12-4 18:33
感谢分享，很给力！~

---

作者: dikexu    时间: 2024-12-4 21:23
        感谢分享，很给力！~

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4