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

最新推荐文章于 2019-01-03 15:14:18 发布

roseworld58

最新推荐文章于 2019-01-03 15:14:18 发布

阅读量842

点赞数

CC 4.0 BY-SA版权

文章标签： vb.net class object

本文链接：https://blog.youkuaiyun.com/ROSEWORLD/article/details/5933127

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

当然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.