Comment passer MethodName en tant que paramètre d'une procédure dans VBNET

Je veux créer une Procédure qui son paramètre est également une procédure. Est-il possible?

J'ai créé quelques procédures pour être utilisés en tant que paramètres ci-dessous:

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

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

cette procédure doit appeler la procédure ci-dessus:

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

utilisation:

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

source d'informationauteur John Woo

  1. 19

    Je crois que le code suivant est un exemple de ce dont vous avez besoin.

    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

    L'intégralité de l'article peut être trouvé à http://dotnetref.blogspot.com/2007/07/passing-function-by-reference-in-vbnet.html

    Espère que cette aide.