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

[cannoesword]

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

[MiloSoft]

试下面的代码

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"
Next

End Sub

[cbm6666]

楼主在思路上可能有点偏差,也或许我没理解楼主的意思

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

[嗷嗷叫的老马]

我怀疑楼主是想把已经初始化好的Image控件数组保存到某地,下次启动时不用再次LOAD了.

不过他没说清楚,所以纯粹是猜猜.......

[cbm6666]

这些图片可以合成为一张新图片保存(new.bmp)

但是你用一般的看图软件看时只能看到第一张.

要将其它所有的图片都能从 new.bmp 再调出来载入的话, 你必需 "解码",便可以了.

你下载这个, 这个代码是MP3的合并, 可以将MP3改为BMP 代码可说完全一样.

【CBM666 的 MP3 合并】
http://download.csdn.net/source/358211

[cannoesword]

谢谢楼上的了，我去看看

[cannoesword]

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