前提是你已经在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自带的打印功能了。
VB中如何实现将picture控件中的图像存入access数据库中
使用第3方控件，例如：XSEED,将PictureBox中的信息编译成jpg或bmp成编码后存储到Image字段或者其他类型的字段，读取的时候也用XSEED等控件来解译。这种资料很多的。搜一下就有了
在vb.net中,运行代码之后在picturebox里用鼠标移动事件,画了一条曲线...
Picture1.AutoRedraw = True '必须设为 True ，这样才能图形和文本输出到屏幕，并存储在内存的图象中。然后可以使用 Image 属性 SavePicture Picture1.Image, "C:\\Pic1.BMP"'此代码保存的是 Picture1 里使用 Line 、 Circle 、PaintPicture 等绘图方法画出来的图片，包括背景色以及 PICTURE 属性指定的...
在VB中怎样将PictureBox内显示的内容(包括里边的控件)保存为图片文件...
在VB中将PictureBox内显示内容(包含里面加载的控件)保存为图片文件需要使用多个API函数来实现。被保存的图片是bmp格式的。 实现代码: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48...
vb中如何在picturebox中写点的代码?然后把像素值赋给各点,显示出整个图...
’给你一个简单的例子，新建工程后在窗体上插入一个picture1的控件，和一个command1的控件 ‘例子中可以显示坐标系，如不需要显示删除那一段代码即可 Private Sub Command1_Click()'绘制f(x)=8*sin(x)正弦波 Picture1.DrawWidth = 2 '设置绘图线宽（点大小）Dim y As Double For x = -12 ...
在VB中怎样将PictureBox内显示的内容(包括里边的控件)保存为图片文件...
picturebox控件，可以实现截屏保存。手动绘制的图案的属性是image，这个属性受自动重绘设置控制，当设为假时，WINDOWS 仅临时输出，并不保存到内存里，截图，覆盖都会导致 图像消失。当设为真时，WINDOWS会建议对应的缓冲区，图像会保存在内存里，能被截图，覆盖时，会自动调用内存的内存进行重新绘图 ...
vb中image或者picture box中点击图片时水平翻转,翻转过来随即出现acess数...
先设置一个image1控件，读入原图 放置一个picturebox1 代码如下就可实现图片水平翻转 Private Sub Form_Load()Picture1.AutoRedraw = True Picture1.PaintPicture Image1.Picture, 0, 0, Picture1.Width, Picture1.Height End Sub Private Sub Picture1_Click()Picture1.PaintPicture Image1.Picture, ...
vb.net中,我用picturebox控件画曲线。使用picturebox.CreateGraphics...
首先你要建一个 Bitmap 再将picture控件的image属性与之相关联 再到 picture的image上画线 保存image到文件 \/\/\/ Dim mybitmap As Bitmap mybitmap = New Bitmap(300, 150)PictureBox0.Image = mybitmap Dim Graph As Graphics Graph =Graphics.FromImage(PictureBox0.image)Graph .drawline(Pe...
怎么在VB中将picturebox控件中的内容保存为图片?
2）AutoRedraw 属性，返回或设置从图形方法到持久图形的输出。该属性为True，可使 Form 对象或 PictureBox 控件的自动重绘有效。图形和文本输出到屏幕，并存储在内存的图象中。该对象不接受绘制事件，必要时，用存储在内存中的图象进行重绘。以下代码保存PictureBox 控件装载的图片为bmp文件：Private Sub ...
如何vb.net2010中实现PictureBox动态从Access读取图片
解决了 Dim pic() As Byte = CType(tbl.Rows(0).Item("img1"), Byte())Dim mem As New MemoryStream(pic, &H9A, pic.Length - &H9A)pic1.Image = Image.FromStream(mem)
vb6.0中,请问如何将一个以上的picturebox中画的曲线保存在一张图片上...
可以做个隐藏画面。将你需要保存的Picture画像重绘到该画面上。然后Print该画面。利用API截取图片或者另存。
