请教一个VB调用动态连接库的问题，急

[gaoruiqiang]

模板中申明：
Declare Function GetArray Lib "C:\WINNT\system32\aaa.dll" () As Variant
使用：
Private Sub Command1_Click()
Dim ID As Variant
ProgId = GetArray()
For i = 0 To UBound(ID) - 1
MsgBox (ID(i))
Next
End Sub

函数GetArray返回一个数组。
动态连接库我自己用VC编写的，我在VC里调试时，函数执行没有问题。我把程序生成可执行文件运行也没问题，但是在VB的环境里运行时，每次执行到ProgId = GetArray()就提示Bad DLL calling convention。
请问vb高手这是怎么回事，我对VB还真不太熟
如果分不够，我可以把我剩下的分全加上，谢谢

[海牛]

比蒙说：可以试试 rainstormmaster 的 ^_^.

[widewave]

Declare Function GetArray Lib "C:\WINNT\system32\aaa.dll" () As any

这个语法不对吧。

[ahbbnimor]

Declare Function GetArray Lib "C:\WINNT\system32\aaa.dll" () As Variant
语法有误
如果是在模块里声名应该:
Public Function 函数名 Lib 动态链接库名 (参数传递类型 参数名 as 参数类型) as 函数返回值的类型

你的那句应该写成:
Public Declare Function GetArray Lib "C:\WINNT\system32\aaa.dll" () As Any

[hupeng213]

改成这样：
Declare Function GetArray Lib "C:\WINNT\system32\aaa.dll" () As Variant
使用：
Private Sub Command1_Click()

Dim ID As Variant
ID = GetArray
For i = 0 To UBound(ID)
MsgBox (ID(i))
NextEnd Sub

[mingtian2008]

up

[rainstormmaster]

//Declare Function GetArray Lib "C:\WINNT\system32\aaa.dll" () As Variant

呵呵，vb好象不认识这样的声明吧，试试改为下面的声明：
Declare Function GetArray Lib "C:\WINNT\system32\aaa.dll" () As any

[widewave]

up

[chenhailiangbiy]

对于用VC＋＋编写的DLL，在VB中调用的话，可以先注册DLL，然后在VB的Project菜单下引用你编写的DLL，然后定义类的对象再调用DLL中的函数就可以了！！！
试试吧！！！