请问一下图片如何分割为三份

相随

请问一下易语言怎么样将一张图片，按照上、中、下分切三份图片呀？分别输出

LEOONL

2.e (1.45 MB, 下载次数: 10)

2024-10-25 14:19 上传

点击文件名下载附件

dc244399752

图片分割源码
https://bbs.125.la/forum.php?mod=viewthread&tid=14832618

伊人独醉

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
图片号	整数型
图片宽度	整数型
图片高度	整数型
图片1	字节集
图片3	字节集
图片2	字节集

图片宽度 ＝ 360
图片高度 ＝ 360
图片号 ＝ 载入图片 ( #图片 )
图片框4.图片 ＝ #图片
画板1.宽度 ＝ 图片宽度
画板1.高度 ＝ 图片高度 ÷ 3
画板1.画图片 (图片号, 0, －画板1.高度 × 0, , , )
图片1 ＝ 画板1.取图片 (, )
图片框1.图片 ＝ 图片1
画板1.画图片 (图片号, 0, 画板1.高度 × -1, , , )
图片2 ＝ 画板1.取图片 (, )
图片框2.图片 ＝ 图片2
画板1.画图片 (图片号, 0, 画板1.高度 × -2, , , )
图片3 ＝ 画板1.取图片 (, )
图片框3.图片 ＝ 图片3

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 图片号, 整数型<br /> .局部变量 图片宽度, 整数型<br /> .局部变量 图片高度, 整数型<br /> .局部变量 图片1, 字节集<br /> .局部变量 图片3, 字节集<br /> .局部变量 图片2, 字节集<br /> <br /> 图片宽度 ＝ 360<br /> 图片高度 ＝ 360<br /> 图片号 ＝ 载入图片 (#图片)<br /> 图片框4.图片 ＝ #图片<br /> <br /> 画板1.宽度 ＝ 图片宽度<br /> 画板1.高度 ＝ 图片高度 ÷ 3<br /> <br /> 画板1.画图片 (图片号, 0, －画板1.高度 × 0, , , )<br /> 图片1 ＝ 画板1.取图片 (, )<br /> 图片框1.图片 ＝ 图片1<br /> <br /> 画板1.画图片 (图片号, 0, 画板1.高度 × -1, , , )<br /> 图片2 ＝ 画板1.取图片 (, )<br /> 图片框2.图片 ＝ 图片2<br /> <br /> 画板1.画图片 (图片号, 0, 画板1.高度 × -2, , , )<br /> 图片3 ＝ 画板1.取图片 (, )<br /> 图片框3.图片 ＝ 图片3

熬夜

https://bbs.125.la/forum.php?mod=viewthread&tid=14832618