如何将PictureBox上的内容保存为一张图片?
包括手动绘制的部分,PictureBox中的控件,背景图片,还有PictureBox可能很大,也需要保存包括不可见部分?
包括手动绘制的部分,PictureBox中的控件,背景图片,还有PictureBox可能很大,也需要保存包括不可见部分?
解决方案 »
- rs.CursorLocation = adUseClient 这句什么时候用加啊? 我以前都没加过,一直用的挺好,今天写了个SQL语句却不行了
- 如何判定现在的日期是星期几,在线等,急!
- 我想 typename,boxid,"20","颜色"打印在同一行,为什么他们在不同的行
- 紧急求救!!!VB+远程SQL SERVER 打包问题 在线等 QQ:15709535
- Excel文件的问题(50分)-----wating online
- 高手指教-剪切板问题 VB
- 进来看看吧!
- 请问如何遍历某个程序窗体的的edit控件
- 关于建立临时文件的问题
- 关于用datagrid的问题???
- 请大家试用CSDN的收藏功能,并发表你们的意见
- ┽土家妹┽ 小猪妹(ratcn),我十分想你!
SavePicture Picture1.Image, "c:/fff.bmp"
可以改变保存的属性,比如改正为PICUTRE1.PICTURE
Picture1.Picture不包含不可见部分
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
http://community.csdn.net/Expert/topic/3855/3855512.xml?temp=.2521326
用PictureBox中的控件很多,需要用滚动条才能查看全部内容,屏幕只能同时其中显示一部分内容,
用上面的方法无法将不可见部分也保存为图片.
有没有更好的方法?
再加多一个PictureBox,让它足够大(大到不用滚动条都能显示所有控件),而Left和Top设置得不要让它在Form的可见区,然后将你要保存图片的PictureBox上的内容转到这个PictureBox上,再保存这个新的。除此之外,我想不出还有什么好办法! :(
可见不可见都可以存的。
不过要把picture的autodraw属性设置为true。
应该就可以了!!我这个东西一直都在用。没啥问题
-------------------------------------------------------------
这样做最大只能保存和屏幕一样大的图片,我的PictureBox中的内容在一般情况下会超过屏幕的大小,所以很可能还是有一些显示不出来的.
-------------------------------------------------------------
这样做最大只能保存和屏幕一样大的图片,我的PictureBox中的内容在一般情况下会超过屏幕的大小,所以很可能还是有一些显示不出来的.
==============================================================你可以将PictureBox放到比屏幕还大都没问题的,主要是用你的PictureBox的客户区,和屏幕大小没关系。