Функция VB.NET, которая принимает другие функции в качестве параметра и выполняет их.

Question

Есть ли способ в vb.net создать суб/функцию, которая примет в качестве аргумента какой-то указатель на другую функцию и позволит этому новому sub/function для выполнения переданной функции?

У меня есть функции 10-12 xml-rpc Я звоню на удаленный сервер. Каждая из этих функций имеет разные списки аргументов (одна берет 1 строку, другая может принимать 3 строки и один int и т. Д.). Все они возвращают объект.

Как я их называю, похоже, что он должен быть в состоянии быть лучше. Например, каждый раз, когда я называю любой из этих функций, я хочу, чтобы проверить возвращаемое значение для падения сеанса, и сделать что-то, чтобы попытаться восстановить соединение с удаленной системой и т.д.

Использование .net 3.5

Спасибо !

-R

Answer 1

Использование Func<in T, out TResult>

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 reference

Это позволило мне иметь одну функцию, которая на самом деле управлял 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 

Обратите внимание, что вам нужно иметь Imports Microsoft.VisualBasic. CallType в модуле/классе, над которым вы работаете.