如何在 VB NET 中将方法名称作为过程的参数传递

Posted 2023-02-25

【中文标题】如何在 VB NET 中将方法名称作为过程的参数传递

【英文标题】：How to Pass MethodName as Parameter of a Procedure in VBNET

【发布时间】：2012-01-31 14:54:38

【问题描述】：

我想创建一个Procedure，它的参数也是一个procedure。可能吗？ 我创建了一些程序用作以下参数：

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")

【参考方案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找到

希望这会有所帮助。

【讨论】：

+1 因为投票通常是第三方而不是 OP 的任务，而且我是第三方。

什么是测试结果？