快帮忙呀！老板提问了，要我解决！！如何得到控件中的内容，并把它保存为一幅图片？？？

Question

如何得到控件中的内容，并把它保存为一幅图片？？？
特急呀，
希望有人帮我写出来，
或者提供这方面的资料
在线等待。
高分相送。
本人不甚感激
跟键盘上的PRTSCR键差不多
但因为控件太大，
超过显示屏幕，
怎么解决呢？？
我只会VB呀！！

Answer 1

我不知道你看看有关OLE方面的书籍能不能对你有帮助

Answer 2

savepicture ICTUREBOX.image,"c:\aaa.bmp")

Answer 3

简单的问题 SavePicture Picbox1.image,"c:\1.bmp"

Answer 4

SavePicture 语句从对象或控件（如果有一个与其相关）的 Picture 或 Image 属性中将图形保存到文件中。语法SavePicture picture, stringexpressionSavePicture 语句的语法包含下面部分：参数 描述 
picture 产生图形文件的 PictureBox 控件或 Image 控件。 
stringexpression 欲保存的图形文件名。 说明无论在设计时还是运行时图形从文件加载到对象的 Picture 属性，而且它是位图、图标、元文件或增强元文件，则图形将以原始文件同样的格式保存。如果它是 GIF 或 JPEG 文件，则将保存为位图文件。Image 属性中的图形总是以位图的格式保存而不管其原始格式。SavePicture 语句示例
本例使用 SavePicture 语句保存画在 Form 对象的 Picture 属性中的图形。要试用此例，可将以下代码粘贴到 Form 对象的声明部分，然后运行此例，单击 Form 对象。Private Sub Form_Click ()
   ' 声明变量。
   Dim CX, CY, Limit, Radius   as Integer, Msg as String
   ScaleMode = vbPixels   ' 设置比例模型为像素。
   AutoRedraw = True ' 打开 AutoRedraw。
   Width = Height   ' 改变宽度以便和高度匹配。
   CX = ScaleWidth / 2   ' 设置 X 位置。
   CY = ScaleHeight / 2   ' 设置 Y 位置。
   Limit = CX   ' 圆的尺寸限制。
   For Radius = 0 To Limit   ' 设置半径。
      Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
      DoEvents   ' 转移到其它操作。
   Next Radius
   Msg = "Choose OK to save the graphics from this form "
   Msg = Msg & "to a bitmap file."
   MsgBox Msg
   SavePicture Image, "TEST.BMP"   ' 将图片保存到文件。
End Sub

Answer 5

谢谢大家,
我昨天已经解决了
想想,
确实简单.
只是因为我从来没写过图形方面的程序.
昨天看了PICTUREBOX方面的东东.
多谢了,
下次请大家帮忙!