VarPtr 类型不匹配

voxxov

各位老师好!

32位转64位过程中,我按照论坛老师们给出了方法,更改了Declare PtrSafe/Longlong 等处,但运行时,在如下程序中,依旧报错 VarPtr 类型不匹配.



请老师们百忙之中给予指点,万分感谢!!!!!!


程序如下:


Public Sub CreateBitmapQRCode(Optional DotColor As LongLong = 0, Optional BgColor As Variant = 16777215, Optional Zoom As Double = 5)
    Dim X As Integer, Y As Integer
    Dim m As Integer
   
    m = UBound(QRMaskedArray, 2)
    ReDim BitArray(0 To m + 3, 0 To m + 3)
    For Y = 0 To m + 3
        For X = 0 To m + 3
            If X > m Or Y > m Then
                BitArray(X, Y) = BgColor
            Else
                BitArray(X, Y) = IIf(QRMaskedArray(0, X, Y) > 0, DotColor, BgColor)
            End If
        Next X
    Next Y
    Call ArrayToBitmap(VarPtr(BitArray(0, 0)), UBound(BitArray) + 1, UBound(BitArray) + 1, 1, BgColor)
End Sub

ykcbf1100

没有附件不好判断。