EX_UI制作图片分割器

.如果真 (取字节集长度 (图片2) ≠ 0) ' 图片不为空
画板EX_修改后.刷新显示 ()
GdipLoadImageFromStream (IMG.创建字节流 (图片2), Image) ' 加载Gdiplus图片对象
GdipGetImageDimension (Image, nWidth, nHeight) ' 取图片宽高
GdipDrawImageRectRect (画板EX_修改后, Image, 0, 0, 画板EX_修改后, 画板EX_修改后, 0, 0, nWidth, nHeight, 2, 0, 0, 0) 画缩放图片
GdipDisposeImage (Image) ' 销毁图片
IMG.释放字节流 ()
.如果真结束
.计次循环首 (到整数 (编辑框EX_次数), i)
写到文件 (取运行目录 () ＋ “\” ＋ 到文本 (i) ＋ “.png”, 分割图片 (图片1, (i － 1) × 到整数 (编辑框EX_宽度), 到整数 (编辑框EX_顶边), 到整数 (编辑框EX_宽度), 到整数 (编辑框EX_高度), #图像格式_PNG))
.计次循环尾 ()
图片2 ＝ 读入文件 (取运行目录 () ＋ “/” ＋ 编辑框EX_次数 ＋ “.png”)
画板EX_修改后 ＝ 到整数 (编辑框EX_宽度)
画板EX_修改后 ＝ 到整数 (编辑框EX_高度)