开发者

VB.NET function that takes other functions as a parameter, and executes them

开发者 https://www.devze.com 2022-12-28 08:05 出处:网络
Is there a way in vb.net to create a sub/function that will take as an argument some kind of pointer to another function, and allow this new sub/function to execute the passed function?

Is there a way in vb.net to create a sub/function that will take as an argument some kind of pointer to another function, and allow this new sub/function to execute the passed function?

What I have are 10-12 xml-rpc functions I am calling against a remote server. Each of these functions has different argument lists (one takes 1 string, another might take 3 strings and one int, etc). All of them return an object.

As I am calling these, it seems like it should be able to be factored better. For instance, everytime I call any of these functions, I want to test the return value for a session drop, and do somethi开发者_StackOverflow社区ng to try and reconnect to the remote system, etc.

Using .net 3.5

Thanks!

-R


You need to be taken...to Func'y town


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

    ' call passed in function
    Dim value = outerFunction
End Sub


Use Func<in T, out TResult>


After some more research, I came up with a solution:

Using the CallByName function:

MSDN reference

This allowed me to have one function that actually ran the 12 individual functions, and enabled me to have a centralized error handling system:

   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 

Note that you need to have Imports Microsoft.VisualBasic.CallType in the module/class you are working on.

0

精彩评论

暂无评论...
验证码 换一张
取 消