比较笨的方法写的图片轮换

530512372

洋阳 发表于 2017-8-24 11:56
嗯呢，我来赚精币

画板置图片也行啊

Apple。

路过看一下。。。

洋阳

嗯呢，我来赚精币

wetuuh

最简单的方法就是 把所有图片变成一张 放到图片框中 用X和Y计算出第几行第几个 这是最简单的方法

cao481104

过来看看！！！！

红颜脸庞仍娇俏

画板置图片也行啊

峰生水起之林

大神我是过来学习的

村雨

这样写不累么？

nliger2015

闲着给你种方法，坐标。。。前提也得摆好模板，然后图片重命名好的话，基本上 一句  打开文件  就可以读所点击。


例如：1,1,1
代表：页数，Y,X    组合成 111.jpg

例如：2,1,1
代表：页数，Y,X    组合成 211.jpg



cs.rar (172.74 KB, 下载次数: 2)

2017-8-24 10:08 上传

点击文件名下载附件
下载积分: 精币 -2 枚

还可以这样。。。还有很多方法。。。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
当前页数	整数型

子程序名	返回值类型	公开	备 注
_外形框_头像_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
图片数据	文本型		0
i	整数型
split	文本型		0
x	整数型
y	整数型
t	文本型
path	文本型

图片数据 ＝ { “111=1”, “121=2”, “131=3”, “141=4”, “151=5”, “161=6”, “171=7”, “181=8”, “191=9”, “1101=10” }  ' 第一行
当前页数 ＝ 1
计次循环首 (7, y)
计次循环首 (10, x)
如果真 (横向位置 ＞ 8 ��� (x － 1) × 40 且 横向位置 ＜ 40 ��� (x － 1) × 40 且 纵向位置 ＞ 8 ��� (y － 1) × 40 且 纵向位置 ＜ 40 ��� (y － 1) × 40)
t ＝ 到文本 (当前页数) ＋ 到文本 (x) ＋ 到文本 (y)
跳出循环 ()

计次循环尾 ()
计次循环尾 ()
计次循环首 (取数组成员数 (图片数据), i)
如果真 (寻找文本 (图片数据 [i], t, , 假) ≠ -1)
split ＝ 分割文本 (图片数据 [i], “=”, )
path ＝ split [2] ＋ “.gif”
跳出循环 ()

计次循环尾 ()
调试输出 (path)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 当前页数, 整数型<br /> <br /> .子程序 _外形框_头像_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 图片数据, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 split, 文本型, , "0"<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 t, 文本型<br /> .局部变量 path, 文本型<br /> <br /> 图片数据 ＝ { “111=1”, “121=2”, “131=3”, “141=4”, “151=5”, “161=6”, “171=7”, “181=8”, “191=9”, “1101=10” }  ' 第一行<br /> 当前页数 ＝ 1<br /> .计次循环首 (7, y)<br />     .计次循环首 (10, x)<br />         .如果真 (横向位置 ＞ 8 ＋ (x － 1) × 40 且 横向位置 ＜ 40 ＋ (x － 1) × 40 且 纵向位置 ＞ 8 ＋ (y － 1) × 40 且 纵向位置 ＜ 40 ＋ (y － 1) × 40)<br />             t ＝ 到文本 (当前页数) ＋ 到文本 (x) ＋ 到文本 (y)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (图片数据), i)<br />     .如果真 (寻找文本 (图片数据 <i>, t, , 假) ≠ -1)<br />         split ＝ 分割文本 (图片数据 <i>, “=”, )<br />         path ＝ split [2] ＋ “.gif”<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (path)

小童Net

大名名。 发表于 2017-8-24 09:18
这图片框。。。 你可真有耐心。。。 复制组件 然后赋值的话这样不是更方便

没办法咯，还好我是直接正则出来，然后替换，基本一键就复制了