点击按钮循环更换程序背景图+需要精易模块

xxaxxanong

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

  

.版本 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 /> _启动窗口.底图 ＝ 读入文件 (路径 ＋ “\” ＋ 图片数组 [索引])

dikexu

        感谢分享，很给力！~

熊不熊

感谢分享，很给力！~

hanwyx

DGHFHERGSRTQWAVASRTG

董明死了

感谢分享

骄傲1882

光影魔术

感谢分享源码

396384183

论坛有你更精彩

bianyuan456

已经顶贴，感谢您对论坛的支持！

ttggnn

感谢分享，很给力！~