请问下VB里怎样另存为一个已经打开的文件
我们老师叫做一个简单的图片浏览器，要具备一些打开，另存为等功能。其余都做完了，就是怎么另存为一直搞不明白，书上也只有另存为文本文档的，似乎图片跟文本文档不一样。
打开的图片会显示到picturebox，能够复制，粘贴，剪切等操作，就是不能另存为！
下面我把代码贴出来，大家帮我看看该怎么弄吧，谢谢啦！
Dim mstrFileName As String
'“复制”菜单项的事件过程
Private Sub Copy_Click()
Clipboard.Clear
Clipboard.SetData imgPicture.Picture
End Sub
'“剪切”菜单项的事件过程
Private Sub Cut_Click()
Clipboard.Clear
Clipboard.SetData imgPicture.Picture
imgPicture.Visible = False '通过不可见达到剪切效果
End Sub
Private Sub dirselect_Change()
filselect.Path = dirselect.Path
End Sub
Private Sub drvselect_Change()
dirselect.Path = drvselect.Drive
End Sub
Private Sub Exit_Click()
Unload Me
End Sub
Private Sub filselect_Click()
mstrFileName = filselect.Path & "\" & filselect.FileName
imgPicture.Picture = LoadPicture(mstrFileName)
End Sub
Private Sub Form_Resize()
Dim i As String
Dim m As String
Dim picWidth As Integer
Dim picHeight As Integer
Dim imgWidth As Integer
Dim imgHeight As Integer
fraPicture.Width = Me.Width - fraPicture.Left - 300
fraPicture.Height = Me.Height - fraPicture.Top * 2
imgPicture.Width = fraPicture.Width - 600
imgPicture.Height = fraPicture.Height - 480
picWidth = Val(Picture1.Width)
picHeight = Val(Picture1.Height)
i = picWidth / picHeight
m = i
imgPicture.Width = i * imgPicture.Height
End Sub
Private Sub New_Click()
imgPicture.Visible = False '通过不可见达到新建效果
End Sub
Private Sub Open_Click()
CommonDialog1.FileName = "*.bmp;*,jpg;*.ico"
CommonDialog1.InitDir = "C:\Windows"
CommonDialog1.Filter = "Pictures(*.bmp)|*.bmp|All Files(*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
imgPicture.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
'“粘贴”菜单项的事件过程
Private Sub Paste_Click()
imgPicture.Picture = Clipboard.GetData()
End Sub
'“打印”菜单项的事件过程
Private Sub Printer_Click()
CommonDialog1.ShowPrinter
End Sub
'“另存为”菜单项的事件过程
CommonDialog1.ShowSave
FileCopy OrgPath & "\1.bmp", CommonDialog1.FileName
End Sub
[解决办法]
Private Sub SaveAs_Click()
CommonDialog1.ShowSave
SavePicture imgPicture.Image, CommonDialog1.FileName
End Sub
[解决办法]
另存为最简单的是BMP格式的文件，如楼上。想另存为其它格式，如：jpg,dib,pcx,gif,tiff格式，就要用GDI+。
