提高VB6.0处理图像的速度的方法

通常我们都觉得VB6.0在处理图像的能力方面表现很差，一般很少有它来做图像处理。如果把图像先装入数组，再做各种运算，最后将图像显示到图像控件，速度还是比较快的。以下是我用imagxpress控件配合此方法的代码：

模块

'Imagx是自定义变量类型

Public Type ImageX

    ImageArray() As Byte

End Type

'将imagxpress控件中的图像写入数组

Function GetImage(imageOBJ As ImagXpress) As ImageX  

    Dim PBag As New PropertyBag

    PBag.WriteProperty "Picture", imageOBJ.Picture

    GetImage.ImageArray = PBag.Contents '获取容器Byte 到 B() 数组中

End Function

'将数组内容写入imagxpress控件

Sub PutImage(imageOBJ As ImagXpress,image As ImageX )

    Dim PBag As New PropertyBag

    PBag.Contents = image .ImageArray

    Set imageOBJ.Picture = PBag.ReadProperty("Picture")

End Sub