SavePicture Picture1.Image,"C:\1.bmp"
解决方案 »
- 哪个调色软件好用,比如能很容易的调出一幅任意渐变颜色的图像。
- 用鼠标拖放一个文件到程序窗体,得到文件的路径,用VB如何实现?(没分给了,3跪1叩求解)
- VB能不能实现像QQ那样的屏幕截图功能?
- 用shell打开程序后如何关闭?
- 如何得到listbox中文本行的高度?
- 问题质量下降,都没有兴趣回答了!
- 如何将ADO导出的XML(没有持久 Recordset 文件名)导入ADO中
- 自认为是高手的请进~!!!有问题?
- 用什么方法可以得到一个字的高度和宽度?谢谢!
- 如何在VB中调用VC的动态库FORCALDLL.DLL?
- 怎么解决相对路径问题?(打包)帮个忙~~~
- 请问我该如何注册dbgrid32.ocx?急,我把所有的分都给你了
本例使用 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