读书人

怎么得到三维BYTE数组对应维的指针并

发布时间: 2012-03-16 16:34:56 作者: rapoo

如何得到三维BYTE数组对应维的指针,并转换为long型?
redim myarray(2,100,100) as Byte
要得到 myarray(0,100,100)的首地址指针,并且转换为long型...
另外,Byte型确定是无符号型吗?

[解决办法]
Option Explicit

Private Declare Sub CopyMemory Lib "kernel32 " Alias "RtlMoveMemory " (Destination As Any, Source As Any, ByVal Length As Long)

Dim myarray() As Byte


Private Sub Form_Load()


ReDim myarray(2, 100, 100)

myarray(0, 100, 100) = 25


Dim l As Long

CopyMemory ByVal VarPtr(l), ByVal VarPtr(myarray(0, 100, 100)), 4

End Sub


读书人网 >VB

热点推荐