如何得到三维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