易语言png 多行多列切图

易语言png 多行多列切图保存源码易语言png 多行多列切图保存源码.e
上次复制个数 ＝ 水平数量 × 垂直数量
.如果真 (等分切图_xy (图片框_原图.图片, 新图数组, 水平数量, 垂直数量))
    组件信息.显示方式 ＝ 1
    组件信息.宽度 ＝ 图片滚动框.宽度 ÷ 水平数量
    组件信息.高度 ＝ 图片滚动框.高度 ÷ 垂直数量

    横向滚动条1.最大位置 ＝ 图片滚动框.宽度
    纵向滚动条1.最大位置 ＝ 图片滚动框.高度

    创建组件 (图片框_模, 水平数量, 垂直数量, 组件信息.宽度, 组件信息.高度, 组件信息.显示方式)

    .计次循环首 (取数组成员数 (新图数组), i)
        写到文件 (保存目录 ＋ 取文本右边 (“0000” ＋ 到文本 (i), 5) ＋ “.png”, 新图数组 [i])
        处理事件 ()
        图片_子组 [i].宽度 ＝ 组件信息.宽度
        图片_子组 [i].高度 ＝ 组件信息.高度
        图片_子组 [i].图片 ＝ 新图数组 [i]
    .计次循环尾 ()

.如果真结束

信息框Ex (“图片保存在” ＋ 取运行目录 () ＋ “\保存图片”, 64, , 1000)