如何将"System.Drawing.Image“带给DIB

Question

我已经创建了一个可消费的COM类库。

类库获取照相机的图像。它是图像/位图类型的。

我在VB6中使用类库，我需要在VB6中显示这个图像。

我如何将这个System.Drawing.Image转换成VB6可以显示的东西？

我可以使用DIB (使用CreateDIBSection等)吗？

如果是，如何准确地将System.Drawing.Image转换为DIB？

谢谢!

Answer 1

这是我过去做过的事。首先，有几个先决条件：

从COM类库Library获得一个Byte()，设置对

• 的引用

有了这些，代码就很简单了。Camera是一个COM类库，Retrieve方法返回加载到图像控件中的Byte()：

Option Explicit

Private Sub cmdLoad_Click()
   Dim cam As Camera.Image
   Set cam = New Camera.Image
   Image1.Picture = LoadPictureFromByteArray(cam.Retrieve())
End Sub

Private Function LoadPictureFromByteArray(Image() As Byte) As StdPicture
   Dim vec As WIA.Vector
   Set vec = New WIA.Vector
   vec.BinaryData = Image
   Set LoadPictureFromByteArray = vec.ImageFile.FileData.Picture
End Function