[chung1206]

我的存檔程式碼如下，請版大多多指教，謝謝。

Private Sub Command3_Click()
   Dim i As Integer, X As Long, Y As Long
   Picture1.AutoRedraw = True
   Picture1.Width = Image1(0).Width * 4
   Picture1.Height = Image1(0).Height * 2
   X = 0: Y = 0
   For i = 0 To 7
   If Image1(i).Picture = 0 Then
   Else
      Picture1.PaintPicture Image1(i).Picture, X, Y, Image1(i).Width, Image1(i).Height
   End If
      X = X + Image1(0).Width
      If i = 3 Then
         X = 0
         Y = Y + Image1(0).Height
      End If
   Next
   With CommonDialog2
        .FileName = ""
        .Filter = "JPEG files (*.jpg) |*.jpg|BMP files (*.bmp) |*.bmp"
        .ShowSave
    End With
    If CommonDialog2.FileName = "" Then Exit Sub
    SavePicture Picture1.Image, CommonDialog2.FileName
End Sub