请教怎么用CommonDialog控件保存一个image数组

Question

我用load函数加载大于100个的image数组，我不知道怎么用CommonDialog这个控件来保存他们，image数组中加载的图片是BMP格式的。

Answer 1

试下面的代码
Private Sub Command1_Click()
Dim mFilePath$
Dim i%CommonDialog1.ShowSave
mFilePath$ = Left$(CommonDialog1.FileName, InStrRev(CommonDialog1.FileName, "\") - 1)For i = Image1.LBound To Image1.UBound
    SavePicture Image1(i).Picture, mFilePath$ & "\img" & i & ".bmp"
NextEnd Sub

Answer 2

楼主在思路上可能有点偏差,也或许我没理解楼主的意思CommonDialog的ShowSave或ShowOpen 是针对文件而非文件夹,你要保存100张图片不可能用一个文件来存,而是应该选一个文件夹来存你这100多张的图片.
Dim SelFolder$, i&
Private Sub Command1_Click()
   On Error GoTo errhandler '有错误或选择取消返回32755的错误代号,执行错误处理副程序
   Set spShell = CreateObject("Shell.Application") '创建对像
   Set spFolder = spShell.BrowseForFolder(0, "选择目录:", 0, ssfDRIVES) '定义spFolder=定义对像展开目录
   Set spFolderItem = spFolder.Self '定义spFolderItem
   SelFolder = spFolderItem.Path 'SelFolder=选中的spFolderItem文件夹路径
   If Right(SelFolder, 1) <> "\" Then SelFolder = SelFolder & "\" '选择的路径最后面加上\
   For i = 1 To 100 '看你自己定义的IMAGE数组范围,我给你保持3位数所以用FORMAT 000
      SavePicture Image1(i).Picture, SelFolder & Format(CStr(i), "000") & ".bmp"
   Next i
   MsgBox "保存完成"
errhandler:      '错误处理副程序
    If Err > 0 Then MsgBox "您选择了取消或程序有错误": Exit Sub
End Sub

Answer 3

我怀疑楼主是想把已经初始化好的Image控件数组保存到某地,下次启动时不用再次LOAD了.不过他没说清楚,所以纯粹是猜猜.......

Answer 4

我的意思大概就是楼上的意思了，我是一个VB初学者，因为要做毕业设计，所以接触了VB，我想这些图片能不能合成一张图片保存？

Answer 5

这些图片可以合成为一张新图片保存(new.bmp)但是你用一般的看图软件看时只能看到第一张.要将其它所有的图片都能从 new.bmp 再调出来载入的话, 你必需 "解码",便可以了.你下载这个, 这个代码是MP3的合并, 可以将MP3改为BMP 代码可说完全一样.【CBM666 的 MP3 合并】
http://download.csdn.net/source/358211