如何导出vb程序的图像文件 - 编程论坛

#2

约定的童话2022-03-20 17:08

VB6.0可使用SavePicture 语句来保存PictureBox 控件中的内容为图片：

1）SavePicture 语句，从对象或控件（如果有一个与其相关）的 Picture 或 Image 属性中将图形保存到文件中。

说明：无论在设计时还是运行时图形从文件加载到对象的 Picture属性，而且它是位图、图标、元文件或增强元文件，则图形将以原始文件同样的格式保存。如果它是 GIF 或 JPEG 文件，则将保存为位图文件。

2）AutoRedraw 属性，返回或设置从图形方法到持久图形的输出。该属性为True，可使 Form 对象或 PictureBox 控件的自动重绘有效。图形和文本输出到屏幕，并存储在内存的图象中。该对象不接受绘制事件，必要时，用存储在内存中的图象进行重绘。

以下代码保存PictureBox 控件装载的图片为bmp文件：

Private Sub Command1_Click()
SavePicture Picture1.Image, App.Path & "\TEST" ' 将图片保存到文件。
End Sub

#3

yuma2022-03-20 18:31

窗体拖入控件：Picture1

程序代码：

Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.Picture = LoadPicture("C:\Users\Administrator\Desktop\test.bmp")  '加载图片到Picture1控件
Picture1.Print "123"  '向图片上面写字
SavePicture Picture1.Image, "C:\1.jpg"    '保存picture1中的图像到本地
End Sub

[此贴子已经被作者于2022-3-20 18:34编辑过]

#4

风吹过b2022-03-21 19:12

注意，Picture 有二个属性里有图像，如3楼代码中出现的属性
Picture1.Picture
Picture1.Image

VB代码绘制的图像，包括贴图，画图形，输出文字，都是在 Image 属性的图像里。

#5

老顽童9892022-03-22 16:24

谢谢三位版主！！！图像存储到本地文件夹内我知道。就是下面格式的图像文件不能存储：
我图像1分割成若干份，将这若干份转化到图像2上，这时图像2就变性了，属性变了。便成为“零”了不能
按原来的图像属性存储了。
  Picture2.PaintPicture Picture1.Picture, I * 60, J * 40, 60 + 8, 40 + 10, M * 60 + 15, N * 40 + 6, 60, 40, &HCC0020
  这时 Picture2.picture 为“0”
  这是为什么，怎么解决。情赐教！！！

#6

yuma2022-03-23 18:38

提供完整的代码，给你看一下，哪里的问题。