• 全部
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API
  • 问答

请教:如何对picturebox控件中的图片进行保存(附源码)

chenpeng1979 2009-01-12 11:07:09
以前是用VB6.0编写的程序,用来将picturebox中编辑过的图片以指定格式保存,代码如下:
执行是没有问题的
Private Sub Command3_Click()
Command3.Enabled = False
CommonDlg1.FileName = ""
CommonDlg1.Filter = "JPG文件(*.JPG)|*.JPG|BMP文件(*.BMP)|*.BMP|所有文件(*.*)|*.*"
CommonDlg1.FilterIndex = 1
CommonDlg1.ShowSave
If CommonDlg1.FileName <> "" Then
SavePicture Picture1.Image, CommonDlg1.FileName
Command3.Enabled = True
End If
End Sub

现在改用VB.NET2008编写,将上面的代码做了如下修改,但执行时总显示GDI+ 中发生一般性错误
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Button3.Enabled = False
SaveFileDialog1.FileName = ""
SaveFileDialog1.Filter = "JPG文件(*.JPG)|*.JPG|BMP文件(*.BMP)|*.BMP|所有文件(*.*)|*.*"
SaveFileDialog1.FilterIndex = 1
SaveFileDialog1.ShowDialog()
'format = Imaging.ImageFormat.Jpeg
If SaveFileDialog1.FileName <> "" Then
PictureBox1.Image.Save(SaveFileDialog1.FileName)
Button3.Enabled = True
End If
End Sub
另外窗口开头定义了Public instance As System.Drawing.Bitmap
在其中处理图片的过程中编写了以下代码将载入的图片赋值给instance,利用instance对图片中的像素做处理
instance = PictureBox1.Image
...全文
113 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
yanlongwuhui 2009-01-13
试下:把载入的图片赋值给instance,把instance赋值给PictureBox1.Image进行显示。处理图片的过程中也是对instance操作,并把操作后的instance赋值给PictureBox1.Image进行显示,保存的时候对instance进行保存
回复
form1_load 2009-01-12
还有唯一有可能使GDI加操作出错的应该是你的保存的文件地址或文件名有问题....
回复
form1_load 2009-01-12
就从你贴出来的代码来看并没有什么错误会导致"GDI+ 中发生一般性错误",也就是说这个错误可能是在其的代码操作里了生的.
回复
相关推荐
发帖
VB
创建于2007-09-28

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
帖子事件
创建了帖子
2009-01-12 11:07
社区公告
暂无公告