易语言图片框和图片问题
怎么点击按钮切换下一张按钮切换下一张并取图片框大小等于等于图片大小 点击上一张按钮切换上一张图片并取图片框大小等于等于图片大小,如果切换到最后一张或最上面的一张则 信息框(“已经是最后一张”)并且停留在最后一张当然点击上一张还可以继续使切换上一张
我说的是多个图片甚至N个 展开
.程序集 窗口程序集1
.程序集变量 位数, 整数型
.程序集变量 显示图片, 字节集, , "5"
.子程序 __启动窗口_创建完毕
显示图片 [1] = #图片1
显示图片 [2] = #图片2
显示图片 [3] = #图片3
显示图片 [4] = #图片4
显示图片 [5] = #图片5
位数 = 1
图片框1.图片 = 显示图片 [位数]
.子程序 _按钮1_被单击
.如果 (位数 = 5)
信息框 (“已经是第一张了”, 0, )
.否则
位数 = 位数 + 1
图片框1.图片 = 显示图片 [位数]
.如果结束
.子程序 _按钮2_被单击
.如果 (位数 = 1)
信息框 (“已经是第一张了”, 0, )
.否则
位数 = 位数 - 1
图片框1.图片 = 显示图片 [位数]
.如果结束
先吃饭了 回来在写大小改变
好的 谢谢了 最好写一块 我好看得懂 还有啊 忘记了 如果图片过大图片框大小等于图片大小 下一张和上一张按钮会被图片框覆盖吧 怎么让按钮也显示
.版本 2
.程序集 窗口程序集1
.程序集变量 位数, 整数型
.程序集变量 显示图片, 字节集, , "5"
.程序集变量 图片高度, 整数型
.程序集变量 图片宽度, 整数型
.程序集变量 图片号, 整数型
.子程序 __启动窗口_创建完毕
显示图片 [1] = #图片1
显示图片 [2] = #图片2
显示图片 [3] = #图片3
显示图片 [4] = #图片4
显示图片 [5] = #图片5
位数 = 1
图片框1.图片 = 显示图片 [位数]
图片号 = 载入图片 (显示图片 [位数])
图片宽度 = 画板1.取图片宽度 (图片号)
图片高度 = 画板1.取图片高度 (图片号)
_启动窗口.宽度 = 图片宽度
_启动窗口.高度 = 图片高度
.子程序 _按钮1_被单击
.如果 (位数 = 5)
信息框 (“已经是第一张了”, 0, )
.否则
位数 = 位数 + 1
图片框1.图片 = 显示图片 [位数]
图片号 = 载入图片 (显示图片 [位数])
图片宽度 = 画板1.取图片宽度 (图片号)
图片高度 = 画板1.取图片高度 (图片号)
_启动窗口.宽度 = 图片宽度
_启动窗口.高度 = 图片高度
.如果结束
.子程序 _按钮2_被单击
.如果 (位数 = 1)
信息框 (“已经是第一张了”, 0, )
.否则
位数 = 位数 - 1
图片框1.图片 = 显示图片 [位数]
图片号 = 载入图片 (显示图片 [位数])
图片宽度 = 画板1.取图片宽度 (图片号)
图片高度 = 画板1.取图片高度 (图片号)
_启动窗口.宽度 = 图片宽度
_启动窗口.高度 = 图片高度
.如果结束
.子程序 __启动窗口_尺寸被改变
图片框1.高度 = 图片高度
图片框1.宽度 = 图片宽度
按钮1.左边 = _启动窗口.宽度 - 40
分割字节集
再加入图片的时候给打加上特殊的文字
之后分割字节集(资源,到字节集(特殊的文字))
图片框分割[序号]
这样就行了
然后 在按钮1单击后写代码就容易多了 这只是思路