savepicture不能产生有效的bmp文件

Question

CommonDialog1.ShowOpen
SavePicture Picture1, CommonDialog1.FileName没问题的

Answer 1

真的得到的是一个 0字节的BMP文件
不信你看看http://www.csdn.net/cnshare/soft/10/10968.shtm
或者到http://www.skycn.com/down1.php?id=7529下载
下载解压后运行主程序，按F5进入这个有问题的picture

Answer 2

SavePicture Picture1.picture, CommonDialog1.FileName
或者
SavePicture Picture1.image, CommonDialog1.FileName
你2个都试一下，看看那个有反应

Answer 3

exe阿
根本没源码
这怎么看

Answer 4

原码就是上面那几行
private sub crd1_click()
CommonDialog1.ShowOpen
SavePicture Picture1, CommonDialog1.FileName
end sub

Answer 5

本例使用 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 6

SavePicture Picture1.image, FileName

Answer 7

我也试过，用SavePicture Picture1.image, CommonDialog1.FileName可以的
但用SavePicture Picture1.Picture, CommonDialog1.FileName 是不可以的！！

Answer 8

因为你自己画上去的图像是写在image属性里的。而非picture属性。