将控制图像导出到bmp文件的代码

Question

我正在尝试将按钮bmp数据导出到bmp文件。

例如，假设我已使用向导将图像分配给按钮，然后我想要一些代码将该图像导出到文件系统（image.bmp）。

是否有简单的指示或说明？

Answer 1

您可以使用Command按钮的.PictureData属性检索位图图像数据，然后使用.bmp对象将数据写入ADODB.Stream文件：

Dim strm As New ADODB.Stream
strm.Type = adTypeBinary
strm.Open
strm.Write Me.Command0.PictureData
strm.SaveToFile "C:\Users\Gord\Desktop\ButtonImage.bmp"
strm.Close
Set strm = Nothing