：函数间传递ParamArray参数数组的有关问题

高手请进：函数间传递ParamArray参数数组的问题
我写的一个小程序中需要在函数间传递用ParamArray指定的参数数组，而且被调用的函数也使用ParamArray来指定参数，但现在被两个问题难住了，希望各位高手能够指点迷津。

示例代码在下面。

VB code

Private Function MyFunc(ParamArray a())    If a()为空 Then  '<--这里应该怎么写？        MyFunc = SubFunc1()    Else '不为空            If a()包含结构体 Then  '<--这里应该怎么写？            MyFunc = SubFunc2(a)  '<--怎么写才能将包含结构体的数组正确传递到被调用的函数？        Else            MyFunc = SubFunc3(a)        End If    End IfEnd FunctionPrivate Function SubFunc1()    '代码略End FunctionPrivate Function SubFunc2(ParamArray SomeParam())    '代码略End FunctionPrivate Function SubFunc3(ParamArray SomeParam())    '代码略End Function

1. 参数数组为空，也就是不指定参数的情况下：
  (1) 如果能够在数组为空的时候将空数组传递给被调用的函数，是最理想的（直接传递参数到SubFunc2）。但如果不能，则——
  (2) 我想用判断数组是否为空的方法来分别调用SubFunc1和SubFunc2。此时，如何判断数组是否为空？

2. 参数中可能包含结构体，如何能够将包含结构体的参数数组准确传递给被调用的函数？


第一次提问，分不是很多，希望大家多多帮助，谢谢！

[解决办法]
判断的方法：
1.可以判断参数的个数
2.判断参数名称所在位置的类型

判断出来以后，分别执行对应的函数

不过我的意见在做实际做的时候，不用这么写，要我的话：

1. Call MyFunc()
2. Call MyFunc(i, l, s)
3. Call MyFunc(l, s, varTest，i)
改为：
SubFunc1
SubFunc2 i,l,s
SubFunc3 l, s, varTest，i
[解决办法]
我来说一说呵呵呵。
1、ParamArray中，不支持结构型参数传递。
2、ParamArray参数，是一定会被初始化的。如果外部没有传参数，那么Ubound为-1.一般用Ubound +1可以获得外界传递的参数个数。
3、Paramarray参数，不能作为参数传递给另一个函数。
有关如何传递ParamArray，可以参考VBCorlib代码中有关Helper.Swap的用法。很有借鉴意义。

[解决办法]
结构，不支持后期绑定的。所以不能给ParamArray赋值。ParamArray的实质就是Variant型数组。并且VB运行时在传出前做了锁定。
[解决办法]
同一个方法执行不同的代码嘛,多态

VB code

'------------------------------------Form1代码-------------------------'全都调用Execute方法来执行不同的操作Public Sub Execute(obj As IExecute)    obj.ExecuteEnd Sub'也可以这样写,就可以不用iExecute.cls了,也不用Implements 它了'Public Sub Execute(obj As object)'    obj.IExecute_Execute'End SubPrivate Sub 执行方法1_Click()    Execute New cExecuteAEnd SubPrivate Sub 执行方法2_Click()    Dim x As New cExecuteB    x.ParamA = 10    Execute xEnd SubPrivate Sub 执行方法3_Click()    Dim x As New cExecuteC    x.x = 100    x.y = 100    Execute xEnd Sub'-----------------------------Moudle.bas代码 定义一个结构----------------Public Type Point    x As Long    y As LongEnd Type'--------------------------------------cExecuteA.cls代码-------------------------Implements IExecute'这个类执行不需要参数Public Sub IExecute_execute()    MsgBox "这个类执行不需要参数"End Sub'cExecuteB代码Implements IExecutePublic ParamA As Long'这个类执行需要一个参数Public Sub IExecute_execute()    MsgBox "这个类执行需要一个参数" & ParamAEnd Sub'----------------------------cExecuteC.cls代码------------------------Implements IExecutePrivate typeA As Point Public Property Let x(value As Long)    typeA.x = valueEnd PropertyPublic Property Let y(value As Long)    typeA.y = valueEnd Property'这个类执行需要一个结构Public Sub IExecute_execute()    MsgBox "这个类执行需要一个结构" & "x=" & typeA.x & ",y=" & typeA.yEnd Sub'----------------------------------------IExecute.cls代码-------------------------Public Sub Execute()End Sub 

 

查看更多 下一篇