如何使用图片框做一个轮播

奇光

就是使用图片框做一个轮播的效果
多张图片自动轮播
会的麻烦发下

冬夏

test.e (3.06 MB, 下载次数: 1881)

2020-9-3 21:12 上传

点击文件名下载附件

九信软件开发

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
a1	文本型	0
a2	整数型
a3	整数型

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

a2 ＝ 1
子程序1 ()
移动 (0, 0, 取屏幕宽度 (), 取屏幕高度 ())
图片框1.图片 ＝ 读入文件 (a1 [1])
时钟1.时钟周期 ＝ 到数值 (_启动窗口.编辑框2.内容) × 1000

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
文件名	文本型
文件目录	文本型
a	文本型

文件目录 ＝ _启动窗口.编辑框1.内容
如果真 (文件目录 ≠ “”)
文件目录 ＝ 选择 (取文本右边 (文件目录, 1) ≠ “\”, 文件目录 ＋ “\”, 文件目录)
文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, 32)
判断循环首 (文件名 ≠ “”)
如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
a ＝ 到小写 (取文本右边 (文件名, 3))
如果真 (a ＝ “jpg” 或 a ＝ “gif” 或 a ＝ “bmp”)
加入成员 (a1, 文件目录 ＋ 文件名)

文件名 ＝ 寻找文件 (, )
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_窗口1_尺寸被改变

图片框1.移动 (0, 0, 取用户区宽度 (), 取用户区高度 ())

子程序名	返回值类型	公开	备 注
_窗口1_将被销毁

_启动窗口.可视 ＝ 真

子程序名	返回值类型	公开	备 注
_窗口1_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

如果真 (键代码 ＝ #Esc键 )
_启动窗口.可视 ＝ 真
销毁 ()

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

a2 ＝ a2 ＋ 1
a3 ＝ 取数组成员数 (a1)
如果 (a2 ≤ a3)
图片框1.图片 ＝ 读入文件 (a1 [a2])
a2 ＝ 0

子程序名	返回值类型	公开	备 注
_图片框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

_启动窗口.可视 ＝ 真
销毁 ()

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 a1, 文本型, , "0"<br /> .程序集变量 a2, 整数型<br /> .程序集变量 a3, 整数型<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> a2 ＝ 1<br /> 子程序1 ()<br /> 移动 (0, 0, 取屏幕宽度 (), 取屏幕高度 ())<br /> 图片框1.图片 ＝ 读入文件 (a1 [1])<br /> 时钟1.时钟周期 ＝ 到数值 (_启动窗口.编辑框2.内容) × 1000<br /> <br /> <br /> .子程序 子程序1<br /> .局部变量 文件名, 文本型<br /> .局部变量 文件目录, 文本型<br /> .局部变量 a, 文本型<br /> <br /> 文件目录 ＝ _启动窗口.编辑框1.内容<br /> .如果真 (文件目录 ≠ “”)<br />     文件目录 ＝ 选择 (取文本右边 (文件目录, 1) ≠ “\”, 文件目录 ＋ “\”, 文件目录)<br />     文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, 32)<br />     .判断循环首 (文件名 ≠ “”)<br />         .如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)<br />             a ＝ 到小写 (取文本右边 (文件名, 3))<br />             .如果真 (a ＝ “jpg” 或 a ＝ “gif” 或 a ＝ “bmp”)<br />                 加入成员 (a1, 文件目录 ＋ 文件名)<br />             .如果真结束<br /> <br />         .如果真结束<br />         文件名 ＝ 寻找文件 (, )<br />     .判断循环尾 ()<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 _窗口1_尺寸被改变<br /> <br /> 图片框1.移动 (0, 0, 取用户区宽度 (), 取用户区高度 ())<br /> <br /> .子程序 _窗口1_将被销毁<br /> <br /> _启动窗口.可视 ＝ 真<br /> <br /> .子程序 _窗口1_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果真 (键代码 ＝ #Esc键)<br />     _启动窗口.可视 ＝ 真<br />     销毁 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> a2 ＝ a2 ＋ 1<br /> a3 ＝ 取数组成员数 (a1)<br /> .如果 (a2 ≤ a3)<br />     图片框1.图片 ＝ 读入文件 (a1 [a2])<br /> .否则<br />     a2 ＝ 0<br /> .如果结束<br /> <br /> <br /> .子程序 _图片框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> _启动窗口.可视 ＝ 真<br /> 销毁 ()

奇光

九信软件开发 发表于 2020-9-3 17:33
[e=3].版本 2

.程序集 窗口程序集_窗口1

多张不同的图片轮播？

低调小鱼鱼

帮你写了个栗子，希望对你有所帮助。