关于VB.NET的事件(event)(二)

最新推荐文章于 2024-03-21 17:03:05 发布

原创最新推荐文章于 2024-03-21 17:03:05 发布 · 861 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb.net #class #object

本文介绍如何在VB.NET中创建自定义事件，并在触发事件时返回特定值。通过示例代码展示了事件数据类的定义、委托的声明及事件的触发过程。

当然VB.NET还可以在自定义事件中添加触发事件的返回值.

可以这样做.'事件数据类 Public Class HEventArgs Inherits EventArgs End Class '声明委托 Public Delegate Sub EventHandler(ByVal sender As Object, ByVal e As HEventArgs) '定义一个类 Public Class car1 Public Event star As EventHandler Protected Overridable Sub OnEventHR(ByVal e As HEventArgs) '调用委托 RaiseEvent star(Me, e) End Sub Public Sub start() Dim E As New HEventArgs OnEventHR(E) End Sub End Class

先申明一个事件类,继承于EVENTARGS类.

EventArgs 是包含事件数据的类的基类。此类不包含事件数据，在事件引发时不向事件处理程序传递状态信息的事件会使用此类。如果事件处理程序需要状态信息，则应用程序必须从此类派生一个类来保存数据。

Dim obj1 As New car1 Sub obj_HR(ByVal sender As Object, ByVal e As HEventArgs) MsgBox("事件处理器捕捉到了事件.xx" & e.ToString() & sender.ToString) '处理事件. End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load AddHandler obj1.star, AddressOf obj_HR'使用了委托触发Obj_HR过程 End Sub

在需要的时候可以这样调用:

obj1.start() '调用过程事件

这样就引发了obj_HR过程,并传递sender和e.