vb 封装一个 方法 要求 有 action 参数 且action 带参

下面是一个示例代码，其中包含一个名为`ExecuteAction`的方法，该方法接受一个名为`action`的参数，并且该参数本身还包含一些其他参数：

Public Sub ExecuteAction(ByVal action As String, ByVal ParamArray args() As Variant)
    Select Case action
        Case "Action1"
            '执行 Action1 的代码
            Dim arg1 As Variant
            arg1 = args(0)
            '使用arg1执行其他操作
        Case "Action2"
            '执行 Action2 的代码
            Dim arg1 As Variant, arg2 As Variant
            arg1 = args(0)
            arg2 = args(1)
            '使用arg1和arg2执行其他操作
        Case Else
            '未知的操作
    End Select
End Sub

在这个示例中，`ExecuteAction`方法接受名为`action`的字符串参数。根据`action`参数的值，该方法将执行不同的操作。每个操作都可以接受任意数量的参数，这些参数将作为`args`数组传递给该方法。在这个示例中，`args`数组中的第一个参数将被赋值给`arg1`变量，第二个参数将被赋值给`arg2`变量（如果存在）。然后，您可以使用`arg1`和`arg2`变量执行其他操作。