外形框和图片框,结合的例子

zz3250183

图片框的图片很长,怎么用 外形框 装进去,再用 纵向滚动条,查看 图片呢?

写个例子,谢谢

帅气与大侠

源码下载： 外形框和图片框制作滚动图片列表框.e (39.44 KB, 下载次数: 19)

2021-9-16 19:02 上传

点击文件名下载附件
效果预览：


代码预览：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_图片框	图片框	0

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

变量名	类 型	静态	数组	备 注
图片数量	整数型
i	整数型
图片框	图片框
图片宽度	整数型
图片高度	整数型
图片横间隔	整数型
图片纵间隔	整数型
图片底框最大宽度	整数型
列数量	整数型
列数	整数型
图片底框最大高度	整数型
x	整数型
y	整数型

清除数组 (集_图片框)
' 通过变量参数来灵活修改图片尺寸和相互之间的间隔
图片数量 ＝ 20
图片宽度 ＝ 100
图片高度 ＝ 100
图片横间隔 ＝ 10
图片纵间隔 ＝ 10
' 计算出一列最大能放几张图片，根据外形框的宽度和图片宽度来计算
列数 ＝ 取整 ( (外形框_边框.宽度 － 纵向滚动条1.宽度) ÷ (图片宽度 ＋ 图片横间隔))
' 设置图片底框的最大宽度，再扣除滚动条的宽
图片底框最大宽度 ＝ 外形框_边框.宽度 － 纵向滚动条1.宽度
' 设置所有图片和间隔总和的高度为底框高度，方便进行滚动
图片底框最大高度 ＝ 四舍五入 (图片数量 ÷ 列数, 0) �� (图片高度 ＋ 图片纵间隔) ＋ 图片纵间隔
纵向滚动条1.最大位置 ＝ 图片底框最大高度 － 外形框_边框.高度
图片框_底框.移动 (1, 1, 图片底框最大宽度 － 1, 图片底框最大高度 － 1)
图片框_底框.边框 ＝ 0
纵向滚动条1.移动 (外形框_边框.宽度 － 纵向滚动条1.宽度 － 1, 1, , 外形框_边框.高度 － 2)
x ＝ 图片横间隔
y ＝ 图片纵间隔
计次循环首 (图片数量, i)
复制窗口组件 (图片框_底框, 图片框)
图片框.置父窗口 (图片框_底框)
图片框.图片 ＝ #周杰伦
图片框.移动 (x, y, 图片宽度, 图片高度)
图片框.可视 ＝ 真
判断 (i ％ 列数 ＝ 0)
x ＝ 图片横间隔
y ＝ y ＋ 图片高度 ＋ 图片纵间隔
x ＝ x ＋ 图片宽度 ＋ 图片横间隔

加入成员 (集_图片框, 图片框)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_纵向滚动条1_位置被改变

变量名	类 型	静态	数组	备 注
当前位置	整数型

当前位置 ＝ 纵向滚动条1.位置
图片框_底框.顶边 ＝ －当前位置

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_图片框, 图片框, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 图片数量, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 图片框, 图片框<br /> .局部变量 图片宽度, 整数型<br /> .局部变量 图片高度, 整数型<br /> .局部变量 图片横间隔, 整数型<br /> .局部变量 图片纵间隔, 整数型<br /> .局部变量 图片底框最大宽度, 整数型<br /> .局部变量 列数量, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 图片底框最大高度, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> <br /> <br /> <br /> 清除数组 (集_图片框)<br /> <br /> ' 通过变量参数来灵活修改图片尺寸和相互之间的间隔<br /> 图片数量 ＝ 20<br /> 图片宽度 ＝ 100<br /> 图片高度 ＝ 100<br /> 图片横间隔 ＝ 10<br /> 图片纵间隔 ＝ 10<br /> ' 计算出一列最大能放几张图片，根据外形框的宽度和图片宽度来计算<br /> 列数 ＝ 取整 ((外形框_边框.宽度 － 纵向滚动条1.宽度) ÷ (图片宽度 ＋ 图片横间隔))<br /> <br /> <br /> <br /> ' 设置图片底框的最大宽度，再扣除滚动条的宽<br /> 图片底框最大宽度 ＝ 外形框_边框.宽度 － 纵向滚动条1.宽度<br /> ' 设置所有图片和间隔总和的高度为底框高度，方便进行滚动<br /> 图片底框最大高度 ＝ 四舍五入 (图片数量 ÷ 列数, 0) × (图片高度 ＋ 图片纵间隔) ＋ 图片纵间隔<br /> <br /> <br /> <br /> 纵向滚动条1.最大位置 ＝ 图片底框最大高度 － 外形框_边框.高度<br /> 图片框_底框.移动 (1, 1, 图片底框最大宽度 － 1, 图片底框最大高度 － 1)<br /> 图片框_底框.边框 ＝ 0<br /> 纵向滚动条1.移动 (外形框_边框.宽度 － 纵向滚动条1.宽度 － 1, 1, , 外形框_边框.高度 － 2)<br /> <br /> <br /> <br /> <br /> <br /> x ＝ 图片横间隔<br /> y ＝ 图片纵间隔<br /> <br /> .计次循环首 (图片数量, i)<br /> <br />     复制窗口组件 (图片框_底框, 图片框)<br /> <br /> <br />     图片框.置父窗口 (图片框_底框)<br />     图片框.图片 ＝ #周杰伦<br />     图片框.移动 (x, y, 图片宽度, 图片高度)<br />     图片框.可视 ＝ 真<br /> <br />     .判断开始 (i ％ 列数 ＝ 0)<br />         x ＝ 图片横间隔<br />         y ＝ y ＋ 图片高度 ＋ 图片纵间隔<br />     .默认<br />         x ＝ x ＋ 图片宽度 ＋ 图片横间隔<br />     .判断结束<br /> <br /> <br /> <br />     加入成员 (集_图片框, 图片框)<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 _纵向滚动条1_位置被改变<br /> .局部变量 当前位置, 整数型<br /> <br /> 当前位置 ＝ 纵向滚动条1.位置<br /> <br /> 图片框_底框.顶边 ＝ －当前位置

剧终0616

你都会这么多软件了，这个不会么？纵向滚动条位置改变事件下面 写 图边框的顶边 随着纵向滚动条位置变化就这么简单啊。

Mr.Yang

纵向滚动条最大长度=图片框.宽度

滚动条位置变化时. 图片框.左边=滚动条.位置

补充内容 (2021-9-16 17:56):
还需要减去显示部分的像素.这样效果会更完美一点.

汉族

父    子   关系 就可以了

汉族

横图没找到  纵图找到了  道理都一样

简单代码.e (3.84 KB, 下载次数: 4)

2021-9-16 18:49 上传

点击文件名下载附件






补充内容 (2021-9-16 18:50):
dx.清除 ()