VB.NET 函数将其他函数作为参数并执行它们

Question

vb.net中有没有一种方法可以创建一个子/函数，它将某种指向另一个函数的指针作为参数，并允许这个新的子/函数执行传递的函数？

我拥有的是针对远程服务器调用的 10-12 个 xml-rpc 函数。这些函数中的每一个都有不同的参数列表（一个需要 1 个字符串，另一个可能需要 3 个字符串和一个整数，等等）。它们都返回一个对象。

正如我所说的那样，似乎应该能够更好地分解它。例如，每次调用这些函数中的任何一个时，我都想测试会话丢弃的返回值，并执行一些操作来尝试重新连接到远程系统等。

使用 .net 3.5

谢谢！

-R

Answer 1

您需要...Func< /a>'y 镇

Answer 2

Public Sub DoSomething(outerFunction as Func(of T))
    ' do something

    ' call passed in function
    Dim value = outerFunction
End Sub

Answer 3

使用 Func

Answer 4

经过更多研究，我想出了一个解决方案：

使用 CallByName 函数：

MSDN参考

这使我能够拥有一个实际运行 12 个单独函数的函数，并使我能够拥有一个集中式错误处理系统：

   Private Function RunRemoteRequest(ByVal functionName As String, ByVal service_url As String, ByVal args() As Object) As Object
    Dim retnVal As Object

    Dim success As Boolean = False
    While success = False And Me._connAttemptCount < MAX_ATTEMPTS
        Try
            retnVal = CallByName(remProxy, functionName, Method, args)
            success = True
            Me._connAttemptCount = 0
        Catch ex As Exception
            Me._connAttemptCount += 1
            If ex.Message = "Error I am looking for" Then
                Me.Login()
            Else
                log.Error("Error in RunRemoteRequest(" & functionName & ").", ex)
            End If
        End Try
    End While

    RunRemoteRequest = retnVal

End Function 

请注意，您需要在您所在的模块/类中导入 Microsoft.VisualBasic.CallType正在努力。