vb 封装一个 带 action 带 参数的方法

您可以使用以下代码来封装一个带有 action 和参数的方法：

Public Sub PerformAction(ByVal action As String, ByVal ParamArray args() As Variant)
    '执行指定的 action
    Select Case action
        Case "Action1"
            '执行 Action1
            '在这里添加您的代码
            MsgBox "Performing Action1 with args: " & Join(args, ", ")
        Case "Action2"
            '执行 Action2
            '在这里添加您的代码
            MsgBox "Performing Action2 with args: " & Join(args, ", ")
        Case Else
            '未知的 action
            MsgBox "Unknown action: " & action
    End Select
End Sub

在上面的代码中，我们使用了 `Select Case` 语句来根据传入的 action 参数执行不同的操作。参数数组 `args` 则用于传递任意数量的参数。在每个 case 分支中，您可以添加自己的代码来执行相应的操作。

使用此方法时，您可以像下面这样调用它：

PerformAction "Action1", "param1", "param2", "param3"

在上面的代码中，我们传递了字符串 "Action1" 作为 action 参数，以及三个字符串参数 "param1"、"param2" 和 "param3"。您可以根据需要传递任意数量的参数。