怎样将BYTE数组类型里面的值传递给API函数里面声明为ANY的参数。

Question

Private Declare Function WritePrinter Lib "winspool.drv" (ByVal _
  hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, _
  pcWritten As Long) As LongDim buff()  As Byte
下面我要将buff传递给API里面pBuf（声明为ANY）,我改怎么做！
高手HELP!

Answer 1

WritePrinter（hPrinter，这里用地址………………buff数组名就是地址，可以直接使用

Answer 2

有两种方法：
1.传址可以用buff(0)第一个元素代表数组地址
2.传值可以用虚拟指针Byval varptr(buff(0))

Answer 3

Dim   buff()     As   Byte 
这样不行，必须给buff分配内存空间，如dim buff(16) as byte

Answer 4

将数组的首个元素放进去就可以了。
比如VB中是：
DIM AA(100) AS BYTE
调用：WritePrinter ... AA(0)...
就可以了。