在窗體上放置兩個PictureBox請不要改任何屬性,我們用代碼改
請將文件命名為 1-1.bmp?1-2.bmp?1-3.bmp....
2-1.bmp?2-2.bmp....
Private?Sub?Form_Load()
Dim?I?As?Long
Dim?J?As?Long
Me.ScaleMode?=?3
Picture1.ScaleMode?=?3
Picture2.ScaleMode?=?3
Picture2.AutoRedraw?=?True
Picture1.AutoRedraw?=?True
Picture1.AutoSize?=?True
Picture1.BorderStyle?=?0
Picture2.BorderStyle?=?0
Set?Picture1.Picture?=?LoadPicture("C:\1-1.bmp")
'Picture1.PaintPicture?Picture2.PaintPicture,?0,?0
Picture2.Width?=?Picture1.ScaleWidth?*?4
Picture2.Height?=?Picture1.ScaleHeight?*?4
For?I?=?1?To?4
For?J?=?1?To?4
Set?Picture1.Picture?=?LoadPicture("C:\"?&?CStr(I)?&?"-"?&?CStr(J)?&?".bmp")
Picture2.PaintPicture?Picture1.Picture,?(I?-?1)?*?Picture1.ScaleWidth,?(J?-?1)?*?picture1.ScaleHeight
Next
Next
SavePicture?Picture2.Image,?"C:\All.bmp"
End?Sub