vb中读取vc编译的dll中的数组的问题!

[astroboy]

我用mfc编译的dll文件,我想从vb中调用它,获得里面数组里的数据,请问如何实现!

[功名半纸]

use SAFEARRAY！！！！！！！！！！！

The following example accepts an array pointer and creates an array containing 10 integer elements:

short WINAPI NewArray(LPSAFEARRAY *ppsa)
{
LPSAFEARRAY psa;
SAFEARRAYBOUND sa;

sa.lLbound = 1;
sa.cElements = 10;

if (*ppsa == NULL) //array not yet initialized
{
if ((psa = SafeArrayCreate(VT_I2, 1, &sa)) == NULL)
return -2;
*ppsa = psa;
}

if ((*ppsa)->cDims != 1) // check array dimensions
return -1;

else return -3;

return 0;
}

Declared and called from Visual Basic:

Declare Function NewArray Lib "debug\ADVDLL.DLL" _
(a() As Integer) As Integer

Sub NewArrayTest()
Dim a(1) As Integer
Dim b() As Integer

MsgBox NewArray(a) & ":" & LBound(a) & ":" & UBound(a)
MsgBox NewArray(b) & ":" & LBound(b) & ":" & UBound(b)
End Sub

[astroboy]

没人回答阿!郁闷!