保存图片的问题，急

[laohui]

代码如下：
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "JPeg Image|*.jpg|Bitmap Image|*.bmp|Gif Image|*.gif"
saveFileDialog1.Title = "Save an Image File"
saveFileDialog1.ShowDialog()
Dim fs As System.IO.FileStream = CType _
(saveFileDialog1.OpenFile(), System.IO.FileStream)

Select Case saveFileDialog1.FilterIndex
Case 1
PictureBox1.Image.Save(fs, _
System.Drawing.Imaging.ImageFormat.Jpeg)

Case 2
PictureBox1.Image.Save(fs, _
System.Drawing.Imaging.ImageFormat.Bmp)

Case 3
PictureBox1.Image.Save(fs, _
System.Drawing.Imaging.ImageFormat.Gif)
End Select

fs.Close()
End If
出现以下错误提示：在 System.Runtime.InteropServices.ExternalException 中第一次偶然出现的“System.Drawing.dll”类型的异常
请问如何解决

[Poopaye]

请先找齐异常的详细信息再来提问。

[清晨曦月]

你这个问题应该是来源于打开图像文件没有释放句柄。 尝试以下做法： 1、释放打开的文件的句柄 2、保存克隆对象 PictureBox1.Image.clone.save 3、将图片绘制到一个新的bitmap

[清晨曦月]

CType(PictureBox1.Image.Clone, Image).save 另外，先检查一下你的PictureBox1.Image是不是nothing。

[laohui]

引用 2 楼 zcsor 的回复:

你这个问题应该是来源于打开图像文件没有释放句柄。 尝试以下做法： 1、释放打开的文件的句柄 2、保存克隆对象 PictureBox1.Image.clone.save 3、将图片绘制到一个新的bitmap

PictureBox1.Image.clone.save 克隆没有save这个命令呀 只要一保存图片，不管是不是新的都会显示同样的错误