下面是一个图片格式转换工具,但图片转换后却不能将图依存在图框内.
要怎样改,才能将转换前的图片停留在图片框内?那位能指点一下?

Private Sub Command1_Click()
On Error Resume Next
CommonDialog1.DialogTitle = "打开文件"
CommonDialog1.Filter = "所有支持的格式" + _
"(*.bmp;*.jpg;*.gif;*.pcx;*.ico)|" + _
"*.bmp;*.jpg;*.gif;*.pcx;*.ico)"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
If Err <> 32755 Then
Dim OpenFileName As String
OpenFileName = CommonDialog1.FileName
Picture1.Picture = LoadPicture(OpenFileName)
End If
End If
End Sub

Private Sub Command2_Click()
On Error Resume Next
CommonDialog1.DialogTitle = "保存为BMP文件"
CommonDialog1.Filter = "位图文件(*.bmp)|*.bmp"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
If Err <> 32755 Then
Dim SaveBmpName As String
SaveBmpName = CommonDialog1.FileName
SavePicture Picture1.Image, SaveBmpName
End If
End If
End Sub

Private Sub Form_Load()
CommonDialog1.CancelError = True
End Sub

楼上的办法试过,还不行,发上附件,可以附件上改:

就是要像写字板一样,写(放)上去,不擦(换)它就不会消失.

可以不要其转换格式,只要达到,将图片放上去,保留住,如没有换新图,原图就不会消失.

图片的文件虽然存盘了,关闭系统,再打开,所存的图并没有显示在图框内.偶希望上次存盘的图片要显示在图框内.

purana版主能直接在附件上改吗?
上面的办法偶试过,但未能搞定.

谢谢purana版主,发上来的代码收到了,图片可以存住了.
不过,偶是希望点击"保存"按钮,不要弹出存图的对话框,而是自动将新图复盖旧图.即在系统中只保留最新的一张图即可.
少进行一次存盘的对话操作.就像写字板一样,只保留最后写上去的字.以前的擦去就不要了.
还可以改一下吗?

问题已经解决,谢谢purana版主.
偶以为这是一个很好的电子相册模式,图片库只要一个,但可以调用任何一个图片到框架内,稍改一下,就是一个精典电子相册软件.
发上来与大家共享!

偶的想法是这样的,让同样的窗框代码,在一个窗体上能够放多个,且框架有大有小,就像相册一个.
下一步就是将你想要的相片放上去,每次打开都可以看见这些相片.如果不想要,就换掉.这不是挺好?
这和市场上买的"相册"功能不是一样的吗?
当然,如果一个窗体只能放一个,一张一张翻,那还不如用ACDSee系统,
不过 ACDSee它看的也只是缩略图,和单图放大.然后一张一张往下翻.
重要的是,如果想让它实现一个窗体上摆上大小不一,又能多张同时显示的相片,又能用手工来排列这些相片,可能就做不到了.
请教一下purana,版主,若将上面的代码改一下,在一个窗体上能放多个这样的图框吗?
若无法做到,也就不能制作电子相册了.如果能做到,那就另当别论,

怎样做?