Visual Studio中VB能否将函数存入数组？含同/异参数场景咨询

参数签名相同的Sub #

完全可以实现，核心是使用**委托（Delegate）**统一函数签名，再将Sub的地址存入委托类型的数组中。

步骤示例： #

1. 定义与目标Sub匹配的委托类型：

Delegate Sub MyDelegate(ByVal param1 As Integer, ByVal param2 As String)

2. 编写参数签名一致的Sub：

Sub Function_A(ByVal num As Integer, ByVal text As String)
    Console.WriteLine($"Function_A: {num}, {text}")
End Sub

Sub Function_B(ByVal num As Integer, ByVal text As String)
    Console.WriteLine($"Function_B: {num}, {text}")
End Sub

Sub Function_C(ByVal num As Integer, ByVal text As String)
    Console.WriteLine($"Function_C: {num}, {text}")
End Sub

3. 创建委托数组并赋值：

Dim subArray() As MyDelegate = {AddressOf Function_A, AddressOf Function_B, AddressOf Function_C}

4. 调用数组中的Sub：

' 遍历数组调用每个Sub
For Each subItem In subArray
    subItem(123, "Test Input")
Next

参数签名不同的Sub #

直接存储到同一数组不可行，因为委托类型要求严格匹配函数的参数数量、类型（Sub无返回值）。但可以通过包装函数或Object参数兼容的方式间接实现，代价是失去部分类型安全性。

实现示例（包装函数方式）： #

1. 定义接受Object()参数的通用委托：

Delegate Sub FlexibleDelegate(ByVal ParamArray args As Object())

2. 编写参数不同的原始Sub：

Sub Function_D(ByVal num As Integer)
    Console.WriteLine($"Function_D: {num}")
End Sub

Sub Function_E(ByVal text As String, ByVal flag As Boolean)
    Console.WriteLine($"Function_E: {text}, {flag}")
End Sub

3. 编写包装函数，将原始Sub适配到通用委托的签名：

Sub WrapFunction_D(ByVal args As Object())
    ' 手动校验参数数量和类型
    If args.Length = 1 AndAlso TypeOf args(0) Is Integer Then
        Function_D(CInt(args(0)))
    End If
End Sub

Sub WrapFunction_E(ByVal args As Object())
    If args.Length = 2 AndAlso TypeOf args(0) Is String AndAlso TypeOf args(1) Is Boolean Then
        Function_E(CStr(args(0)), CBool(args(1)))
    End If
End Sub

4. 创建数组并调用：

Dim flexibleSubArray() As FlexibleDelegate = {AddressOf WrapFunction_D, AddressOf WrapFunction_E}

' 传入对应参数调用
flexibleSubArray(0)(New Object() {456})
flexibleSubArray(1)(New Object() {"Hello World", True})

注意事项： #

这种方式需要手动处理参数校验和类型转换，容易出现运行时错误。如果对类型安全要求高，建议按参数签名分组，存入不同类型的委托数组。

内容的提问来源于stack exchange，提问作者MizzardNet7 Net7