使用参数调用方法

Question

我想在动画结束时调用方法。我正在使用这个声明：

AddHandler anim.Completed, AddressOf anim_completed

但是我希望anim_completed sub与参数一起使用。任何想法如何做到这一点？

Answer 1

简单的解决方案。使用匿名事件处理程序，您将能够直接访问Ellipse对象。

Dim target As Ellipse = Nothing

AddHandler anim.Completed, Sub()
                                If target IsNot Nothing Then

                                End If
                            End Sub

Answer 2

您的委托/方法需要与事件具有相同的签名。但在这个活动中你可以打电话给你想要的东西。

AddHandler anim.Completed, AddressOf onAnimCompleted

Sub onAnimCompleted(sender As Object, e As EventArgs)

    Dim target As New Ellipse

    anim_completed(target)

End Sub