如何在VBNET中将MethodName作为过程的参数传递

Question

我想创建一个参数也是过程的过程。这可能吗？
我创建了一些可用作参数的过程，如下所示：

Private Sub Jump(xStr as string)
    Msgbox xStr & " is jumping."
End Sub

Private Sub Run(xStr as string)
    Msgbox xStr & " is jumping."
End Sub

这个过程应该调用上面的过程：

Private Sub ExecuteProcedure(?, StringParameter) '- i do not know what to put in there
     ? ' - name of the procedure with parameter
End Sub

使用方法：

 ExecuteProcedure(Jump, "StringName")
 ExecuteProcedure(Run, "StringName")

- John Woo

Answer 1

我认为以下代码是你需要的示例。

Public Delegate Sub TestDelegate(ByVal result As TestResult)

Private Sub RunTest(ByVal testFunction As TestDelegate)

     Dim result As New TestResult
     result.startTime = DateTime.Now
     testFunction(result)
     result.endTime = DateTime.Now

End Sub

Private Sub MenuItemStartTests_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemStartTests.Click

     Debug.WriteLine("Starting Tests...")
     Debug.WriteLine("")
     '==================================
     ' Add Calls to Test Modules Here

     RunTest(AddressOf Test1)
     RunTest(AddressOf Test2)

     '==================================

     Debug.WriteLine("")
     Debug.WriteLine("Tests Completed")

End Sub

整篇文章可以在http://dotnetref.blogspot.com/2007/07/passing-function-by-reference-in-vbnet.html找到。

希望这能帮到你。

- Gerald P. Wright

---

+1 因为通常投票的任务是由第三方而不是 OP 完成的，而我就是一个第三方。 - Lion

什么是测试结果？ - Dennis