这是个通用对话框的图形打开和保存程序,图形已经用代码打开了 可保存的时候出问题了,我不会让文件保存在通用对话框指定的路径里面, 哪位好心人给指点一下把 下面有生成好的EXE文件. Private Sub BB_Click() CommonDialog1.FileName = "" CommonDialog1.Flags = vbOFNFileMustExist CommonDialog1.Filter = "ALL Files|*.*|*.jpg|*.JPG|(*.exe|*.exe|(*.TXT)|*.TXT" CommonDialog1.FilterIndex = 2 CommonDialog1.DialogTitle = "Open File(*.jpg)" CommonDialog1.ShowOpen If CommonDialog1.FileName = "" Then MsgBox "No file selectd", 37, "Checking" Else

Picture1.Picture = LoadPicture(CommonDialog1.FileName)'打开指定路径的图片

End If End Sub

Private Sub CC_Click() CommonDialog1.CancelError = False CommonDialog1.DefaultExt = "jpg" CommonDialog1.FileName = "111.jpg" CommonDialog1.Filter = "Text files(*.txt)|*.jpg|*.JPG|*.TXT|All Files(*.*)|*.*" CommonDialog1.FilterIndex = 2 CommonDialog1.DialogTitle = "Save File As(*.jpg)" CommonDialog1.Flags = vbOFNOverwritePrompt Or vbOFNPathMustExist CommonDialog1.ShowSave '接下来如何保存通用对话框指定路径的图形文件呢 SavePicture Picture1, "d:\555.jpg"'调用这个语句只能把打开的图片保存在固定的位置，根本不是用通用对话框保存的，我想用通用对话框进行选择名字然后保存，大家说代码该咋写呀．我下一步该咋办呢．谢谢 End Sub

Private Sub DD_Click() End End Sub

[此贴子已经被作者于2005-10-16 11:47:32编辑过]

都出来了，你如果用SavePicture Picture1, "d:\555.jpg"要保存对话框干什么？ SavePicture Picture1, CommonDialog1.FileName 就完了啊

[QUOTE]都出来了，你如果用SavePicture Picture1, "d:\555.jpg"要保存对话框干什么？ SavePicture Picture1, CommonDialog1.FileName 就完了啊 [/QUOTE] 我用了这个语句后,我打开的明明是一张图片,可保存的却成了文本文件了,里面全是图片的编码,这个该咋样解决呢,我是个新手,一点不对就迷糊,麻烦你了

对啊，楼上的说的对啊。可是CommonDialog1.FileName这个是文件的路径呀。你要保存的图片是个文件，那么它只能保存在文件夹里。

[QUOTE]对啊，楼上的说的对啊。可是CommonDialog1.FileName这个是文件的路径呀。你要保存的图片是个文件，那么它只能保存在文件夹里。[/QUOTE] 我打开的明明是美丽的图片，可保存后却变成了文本文件， 这个是啥问题呢，我该如何做呢，我错在什么地方呢． 我想把它保存为图片，该如何下手呢， 请大家指点

晕~你的打开类型里默认有txt的，而且在最后，所以默认的扩展名是.txt， Private Sub BB_Click() CommonDialog1.FileName = "" CommonDialog1.Flags = vbOFNFileMustExist CommonDialog1.Filter = "ALL Files|*.*|*.jpg|*.JPG|(*.exe|*.exe|(*.TXT)|*.TXT" CommonDialog1.FilterIndex = 2 CommonDialog1.DialogTitle = "Open File(*.jpg)" CommonDialog1.ShowOpen If CommonDialog1.FileName = "" Then MsgBox "No file selectd", 37, "Checking" Else

Picture1.Picture = LoadPicture(CommonDialog1.FileName)

End If End Sub

Private Sub CC_Click() CommonDialog1.CancelError = False CommonDialog1.DefaultExt = "jpg" CommonDialog1.FileName = "SLore.jpg" CommonDialog1.Filter = "Text files(*.txt)|*.jpg|*.JPG|*.TXT|All Files(*.*)|*.*" CommonDialog1.FilterIndex = 2 CommonDialog1.DialogTitle = "Save File As(*.jpg)" CommonDialog1.Flags = vbOFNOverwritePrompt Or vbOFNPathMustExist CommonDialog1.ShowSave SavePicture Picture1, CommonDialog1.FileName & ".jpg" End Sub Private Sub dd_Click() Unload Me End Sub

明白了，没想到和打开的默认有关系．
你们就是厉害
一下字就找到原因了,
谢谢大家了～～～～～～～～～

不是打开我说错了，就是保存的那个ShowSave中
CommonDialog1.Filter = "Text files(*.txt)|*.jpg|*.JPG|*.TXT|All Files(*.*)|*.*"的设置有……你要保存成图就不要……设置成这个样子。

我把它变成这样了
CommonDialog1.Filter = "Text files(*.txt)|*.jpg|*.JPG"
SavePicture Picture1, CommonDialog1.FileName
就完全没有问题了

唯一的缺陷就是,图片整体不能随着窗体的变化而自动调整,
我把图片的autosize设置为ＴＲＵＥ也不能让图片整体自动缩进，
还的想其他办法才行．