我做了这样一段程序，希望能够保存picturebox中的全黑底一连串方块的图片。但总是保存为全黑图片，怎么回事呢？



form如下：

一个窗体上有一个command和一个picturebox。



程序如下：

Private Sub Command1_Click()
SavePicture Picture1.Image, "c:\1.bmp"
End Sub



Private Sub Picture1_Click()
Picture1.BackColor = QBColor(0)
For i = 0 To 7
Picture1.FillStyle = i
Picture1.FillColor = QBColor(i + 7)
i1 = i + 1
Picture1.Line (300 * i1, 400 * i1)-(110 * i1, 220 * i1), QBColor(12), B
Next i

End Sub



希望步骤如下：

1、点击picturebox，生成全黑底一连串方块；

2、点击command，保存Picture1box中的内容到c:\1.bmp。

已知道啦！设置Picture1.AutoRedraw = True

不错,自己解决了.

看标题还以为你要自己写过程,一个像素的保存BMP文件呢.

其实BMP文件的结构也很简单.
不过,我只会读写24位真彩的BMP.其它格式时,我不会抖动,不会对齐.