那可否再教我如何把這四張圖片作一下結合為一張啊?

Question

如題再麻煩一下個位大大!那可否再教我如何把這四張圖片作一下結合為一張啊?
是用vb喔!

Answer 1

'假設你分割後的圖片是存在C:\,檔名為Test(1).bmp~Test(4).bmp"Private Sub Command1_Click()Dim P(3) As Picture, X(3) As Long, Y(3) As Long, W&, H&, I%ScaleMode = 3For I = 0 To 3    Set P(I) = LoadPicture("C:\Test(" & I + 1 & ").bmp") '載入圖片    X(I) = P(I).Width * 567 \ 1000 \ Screen.TwipsPerPixelX    Y(I) = P(I).Height * 567 \ 1000 \ Screen.TwipsPerPixelYNextI = 0With Picture1    .Appearance = 0    .BorderStyle = 0    .ScaleMode = 3    .AutoRedraw = True    .Width = X(0) + X(2): .Height = Y(0) + Y(1)    For W = 0 To X(0) Step X(0)        For H = 0 To Y(0) Step Y(0)            .PaintPicture P(I), W, H, X(I), Y(I)            I = I + 1        Next    Next    SavePicture .Image, "C:\Test1.bmp"    .Cls    .AutoRedraw = FalseEnd WithMsgBox "已將合併後的圖片存在C:\,檔名為Test1.bmp"End Sub