如何打开一个图片文件,并通过按钮来自动按某一文件名保存?

发布网友发布时间：2022-05-27 16:43

共1个回答

热心网友时间：2023-11-04 12:28

新建一个vb应用程序，在窗体上添加一个commondialog控件，用来获取要打开图片的路径；三个按钮控件，一个“打开”，一个“保存”，一个“退出”；一个文本框控件，用来输入要保存图片名；一个图片框控件，用来显示打开的图片。
在“打开”按钮的单击事件中添加如下代码：
Picture1.AutoSize=true
CommonDialog1.Filter="*.bmp;*.jpg;*.emf;*.wmf;*.ico"
CommonDialog1.showopen
Picture1.picture=Loadpicture(CommonDialog1.FileName)
在“保存”按钮中添加如下代码：
SavePicture Picture1 "D:\图片\"&text1.text '路径可以自己设置
MsgBox "图片已成功保存" , vbInformation , "提示信息"
在“退出”按钮的单击事件下添加如下代码：
end