主题：自己解决了分割图片后按指定的顺序合并成一个图片的问题！
QDY2009
[专家分：0] 发布于 2010-01-14 14:41:00
PictureClip1.Picture = LoadPicture(Path & "1.bmp")
利用PictureClip1控件，
PictureClip1.Cols = 1
PictureClip1.Rows = 4 分成四块后
四块的顺序为（0）（1）（2）（3），
如何按（1）（0）（3）（2）顺序合并图片，并保存。
30分 求助！ [em18][em18][em18][em18][em18][em18][em18][em18][em18]
最后更新于：2010-01-23 00:32:00
板凳
QDY2009 [专家分：0] 发布于 2010-01-16 00:06:00
你的办法可行，但觉得复杂些。我的目的是征服一下
Set PictureClip1.GraphicCell(I) = LoadPicture("d:\3ofbig.bmp")只读功能
我用Picture1.PaintPicture 实现了。
Picture2.PaintPicture Picture1.Picture, 0, 4, Picture1.ScaleWidth, 4, 0, 0, Picture1.ScaleWidth, 4
Picture2.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth, 4, 0, 4, Picture1.ScaleWidth, 4
Picture2.PaintPicture Picture1.Picture, 0, 8, Picture1.ScaleWidth, 4, 0, 12, Picture1.ScaleWidth, 4
Picture2.PaintPicture Picture1.Picture, 0, 12, Picture1.ScaleWidth, 4, 0, 8, Picture1.ScaleWidth, 4
Picture2.PaintPicture Picture1.Picture, 0, 20, Picture1.ScaleWidth, 4, 0, 16, Picture1.ScaleWidth, 4
Picture2.PaintPicture Picture1.Picture, 0, 16, Picture1.ScaleWidth, 4, 0, 20, Picture1.ScaleWidth, 4
Picture2.PaintPicture Picture1.Picture, 0, 24, Picture1.ScaleWidth, 4, 0, 28, Picture1.ScaleWidth, 4
Picture2.PaintPicture Picture1.Picture, 0, 28, Picture1.ScaleWidth, 4, 0, 24, Picture1.ScaleWidth, 4
您所在位置：