vb6 picturebox 图片处理后图像保存

额,问题是这样的:
我用picturebox 加载了一张图片,然后程序通过pset来处理图片,比如做灰度处理,然后我想把处理后的图片保存成文件要怎么做?

第1个回答  2012-06-15
Private Sub Command1_Click()
Picture1.AutoRedraw = True
Picture1.Picture = LoadPicture("c:\1.jpg")
Picture1.Circle (500, 500), 100, vbRed
SavePicture Picture1.Image, "c:\xx.jpg"

End Sub追问

这是把原图保存了,我用的是pset做的图片修改,用上述方法保存是原图片。。。

vb6 picturebox 图片处理后图像保存
Private Sub Command1_Click()Picture1.AutoRedraw = True Picture1.Picture = LoadPicture("c:\\1.jpg")Picture1.Circle (500, 500), 100, vbRed SavePicture Picture1.Image, "c:\\xx.jpg"End Sub

在VB中如何更改picturebox中图片的尺寸,并保存更改后的图片?
VB6.0中可使用PaintPicture 方法在 Form, PictureBox 或 Printer 上绘制图形文件时设置参数更改图片的尺寸。使用SavePicture 语句,从对象或控件(如果有一个与其相关)的 Picture 或 Image 属性中将图形保存到文件中。PaintPicture 方法,用以在 Form, PictureBox 或 Printer 上绘制图形文件(.bmp、.wmf...

vb6.0中,请问如何将一个以上的picturebox中画的曲线保存在一张图片上...
可以做个隐藏画面。将你需要保存的Picture画像重绘到该画面上。然后Print该画面。利用API截取图片或者另存。

vb6.0如何用picturebox打开一个jpg,然后再保存为jpg格式?
picture1.picture=loadpicture(commondialog1.filename)

picturebox 刷新图片怎么保存呢
另存为就可以了。不会替换原有的。

请问vb6中如何实现在一个picturebox画图后,复制到另一个picturebox中...
Private Sub Command1_Click()’画图 Picture1.Line (100, 100)-(200, 200), vbRed, B End Sub Private Sub Command2_Click()‘复制 Picture2.Picture = Picture1.Image End Sub Private Sub Form_Load()Picture1.AutoRedraw = True ‘必须有的 End Sub ...

VB6中 如何将图片保存到一个dat文件中
Private Type du '如果文件个数固定那可以直接定义三个 'byte数组,那样速度可以更快一点 byt() As Byte '文件都保存在这里,二进制数组 dx() As Long '每个文件的大小 mc() As String '每个文件的名称 End Type Dim du_1 As du Dim du_4 As du Private Sub Form_Loa...

vb6.0 打印picturebox
步骤一)先要将含各种控件的Picturebox图像保存为图片。步骤二)用画图板软件打印或编辑VB程序加载图片打印。提供步骤一的代码:Option Explicit Private Const BI_RGB = 0& Private Const DIB_RGB_COLORS = 0 Private Const BITMAPTYPE = &H4D42 Private Const INVALID_HANDLE_VALUE = (...

picturebox 控件的save方法能否把图片保存到我指定的地方?
应该可以的,如果不行的话也可以先保存的到默认位置,然后做系统命令调用给挪过去嘛

关于VB6.0picturebox问题?
CommonDialog1.Filter = "JPG ??(*.jpg)|*.jpg"CommonDialog1.Action = 1 Path = CommonDialog1.FileName Picture1.Picture = LoadPicture(Path)Picture1.Line (30, 30)-Step(100, 100)End Sub Private Sub Command2_Click()SavePicture Picture1.Image, "C:\\Users\\lenovo\\Desktop\\13213.jpg...

相似回答