ParamArray参数的传递，可能是搞不定的了。请看代码。

[foolishidea]

Public sub Test1(ParamArray Args())
call test2()'???????????参数怎么写
End sub


别人DLL中有一个像下面这样定义的方法
public sub test2(ParamArray Args())

End sub


现在要在Test1中调用Test2，并把Test1的参数Args传到Test2中去。注意：Test2不能改动，Test1怎么改都行。各位老大有没有什么好办法？

[holydiablo]

你这个ParamArray是个什么东西啊，Args动态数组？？？

[EpopeeLei]

什么意思不太明白，在参数前加个Byval看行不行。

[EpopeeLei]

哦，好像明白了，前面我说的没错，将Test2改成：
public sub test2(Byval ParamArray Args())

End sub

[foolishidea]

动态参数数组不可以加Byval

[holydiablo]

你的语法我看不太懂

[foolishidea]

come on......

[foolishidea]

看看MSDN中Function的用法，有讲ParamArray关键字的。

[xwyou]

'//Try it!
Public sub Test1(ParamArray Args() As Variant)
call test2()'???????????参数怎么写
End sub

'//The array declared by the ParamArray keyword can only be of
'//the Variant type.

[foolishidea]

现在要在Test1中调用Test2，并把Test1的参数Args传到Test2中去。
~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~

注意：Test2不能改动，Test1怎么改都行。

谢谢！

[foolishidea]

我现在用极其愚蠢的方法来应付的。

Public sub Test1(ParamArray Args())

select case ubound(args)
case -1
call test2()
case 0
call test2(Args(0))
case 1
call test2(Args(0), Args(1)
case 2
call test2(Args(0), Args(1), Args(2))
case 3
call test2(Args(0), Args(1), Args(2), Args(3))
case 4
call test2(Args(0), Args(1), Args(2), Args(3), Args(4))
.
.
.
.
.
.

end select
End sub


哎！苦命的我！

[y1g1y1]

问题已解决!
演示程序去小站下载.

http://ygyuan.3322.net/
http://ygyuan.onchina.net/

[foolishidea]

好办法！