怎样声明和调用返回值是一个类（或数组）的外部dll函数。

[swallowzhou]

我对VB现在还不熟，请教各位高手，谢谢，先！

[swallowzhou]

up

[swallowzhou]

没人知道吗？我再顶

[唐古拉山]

可以按照传指针的方式调用,使用关键字: ByRef
这样可以方便地返回数组或者其它类型的信息体

[sunsuny]

byref o as Object
byref a as Array()

[limengchen]

'返回数组
private function a(...) as integer()
redim a(3)
dim i as integer
for i=0 to 3
a(i)=i
next i
end function

private sub command1_click()0D dim b() as integer '注意不能声明成b(3)
dim i as integer
b()=a(...)
for i=lbound(b()) to ubound(b())
0A print b(i)
next i
end sub

'返回类是不可能的，只能返回类的实例
private function c(...) as ClassName
...
end function
'或者
private sub c(byref obj as ClassName)
...
end function
'其中ClassName是类的名称