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

小童Net

图片轮换.rar (560.96 KB, 下载次数: 48)

2017-8-24 09:07 上传

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

nliger2015

看看有多笨

ming7

复制组件？读入？

ming7

这图片框。。。 你可真有耐心。。。 复制组件 然后赋值的话这样不是更方便

小童Net

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

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

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)

村雨

这样写不累么？

峰生水起之林

大神我是过来学习的

红颜脸庞仍娇俏

画板置图片也行啊

cao481104

过来看看！！！！