Question

在VB中的pictureBox画曲线，之后像把该曲线以图片格式往ACCESS中保存，如何实现？？急急急急

我是菜鸟！

Answer 1

vb6将图片和数据保存到word中的方法：
前提是你已经在vb程序中将图形画好了，而且数据已经计算出来了。
得新建一个text（名字为Text1，并设置为不可见）和picturebox（名字为Final，并设置为不可见）
On Error Resume Next

Public MyWord As Object
Public NewDoc As Object
Set MyWord = CreateObject("Word.Application") '创建一个word对象
MyWord.Visible = True
MyWord.Caption = "文档名字"
Set NewDoc = MyWord.Documents.Add
'图片保存
Me.Final.Height = Me.picture1.Height
Me.Final.Width = Me.picture1.Width
Me.Final.Height = Me.picture1.Height 'picture1为待存入word的图片
Me.Final.Width = Me.picture1.Width
'vbSrcCopy：源位图直接覆盖目标位图
BitBlt Me.Final.hdc, 0, 0, Me.Final.Width, Me.Final.Height, Me.picture1.hdc, 0, 0,vbSrcCopy
Me.Final.Picture = Me.Final.Image

Set Me.Final.Picture = Me.Final.Image
SavePicture Me.Final.Picture, "C:\1.bmp" '将图像Final保存到 C:\1.bmp
Clipboard.Clear '清除剪贴板
Clipboard.SetData Me.Final.Picture 'vbCFBitmap 图片框中图片装入剪贴板
MyWord.Selection.Paste '将剪贴板中的图像复制到Word文档中
MyWord.Selection.TypeText (vbCrLf) '换行
'数据保存
Me.Text1.Text = "***" & data 'data为存数据的变量
'如果需要换行
Me.Text1.Text = Me.Text1.Text & vbCrLf & “***” ’vbCrLf 用来换行
Clipboard.Clear ' 清除剪贴板。
Clipboard.SetText Me.Text1.Text ' 将正文放置在剪贴板上。
MyWord.Selection.Paste
MyWord.Selection.TypeText (vbCrLf)

Kill "C:\1.bmp" '删除创建的图像
Clipboard.Clear '清除剪贴板
Me.Final.Cls
Set NewDoc = Nothing
Set MyWord = Nothing '清除对象
图像和数据存入word后，就可以使用word自带的打印功能了。