调用vc的dll时类型转换的问题

Question

如何写成vb中的结构 ，  如何引用？
#ifndef _BLTMAPSRUCT
#DEFINE _BLTMAPSRUCT
typedef struct _Bitmapdf
{
   byte* pBuffer;
   long  bitSize;
   DWORD lHeight;
   WORD  bbitCount;
   WORD  bPlane;
}BITMAPSRUCT,* LPBITMAPSRUCT;
#endif
HRESULT WINAPI InitMineOut(void);
HRESULT WINAPI DESTROYOOUT(void);
HRESULT WINAPI GetGraphicOut(LPBITMAPDATA pMap);

Answer 1

public type Bitmapdf
  pBuffer as long
  bitSize as long
  lHeight as long
  bbitCount as integer
  bPlane as integer
end typepublic declare function InitMineOut lib "outgraph.dll" () as long
public declare function DESTROYOOUT lib "outgraph.dll" () as long
public declare function GetGraphicOut lib "outgraph.dll" (pMap as Bitmapdf) as long

Answer 2

那我怎么引用pbuffer的动态数组？

Answer 3

dim tOut as Bitmapdf
dim b() as byte
dim ...
...
ret=GetGraphicOut(tOut)
redim b(tOut.bitSize-1)
copymemory b(0),byval tOut.pBuffer,tOut.bitSize
...

Answer 4

ret我就当作函数返回值，我只是举个例子