"自定义事件"如何在VB.Net中运行？

在VB.Net中运行自定义事件，您需要首先定义一个事件，然后在需要的地方触发该事件。以下是一个简单的示例，展示了如何在VB.Net中创建和触发自定义事件。

定义一个事件：

Public Class CustomEventClass
    Public Event CustomEvent As EventHandler(Of CustomEventArgs)

    Public Sub TriggerCustomEvent(ByVal message As String)
        RaiseEvent CustomEvent(Me, New CustomEventArgs(message))
    End Sub
End Class

Public Class CustomEventArgs
    Inherits EventArgs

    Public Property Message As String

    Public Sub New(ByVal message As String)
        Me.Message = message
    End Sub
End Class

在需要的地方触发事件：

Dim customEventClass As New CustomEventClass()

AddHandler customEventClass.CustomEvent, Sub(sender, e)
                                             Dim eventArgs As CustomEventArgs = CType(e, CustomEventArgs)
                                             Console.WriteLine($"自定义事件触发，消息：{eventArgs.Message}")
                                         End Sub

customEventClass.TriggerCustomEvent("Hello, World!")

在这个示例中，我们首先创建了一个名为CustomEventClass的类，并在其中定义了一个名为CustomEvent的事件。然后，我们创建了一个名为CustomEventArgs的类，用于存储与自定义事件相关的信息。

接下来，我们创建了一个CustomEventClass类的实例，并使用AddHandler关键字添加了一个事件处理程序。当TriggerCustomEvent方法被调用时，该事件处理程序将被执行。在这个示例中，我们只是简单地将事件的消息打印到控制台上。

最后，我们调用TriggerCustomEvent方法，并传入一条消息。这将触发我们之前添加的事件处理程序，并在控制台上显示消息。