为 VB.NET 的类增加自定义事件

最新推荐文章于 2024-08-10 04:02:20 发布

转载最新推荐文章于 2024-08-10 04:02:20 发布 · 860 阅读

本文介绍了一种在VB.NET中实现事件处理的方法。通过具体的代码示例，详细讲解了如何在类中定义事件、声明 WithEvents 对象、编写事件处理代码以及触发事件。此教程适合初学者了解VB.NET事件的基本用法。

基本思路：
１，首先在要定义事件的类中声明事件，然后使用RaiseEvent 激发该事件．
Public Class Person

　　Private name As String

　　 Public Event walked(ByVal distance As Integer)
　　　
　　Public Sub onwalk(ByVal distance As Integer)
　　　　RaiseEvent walked(distance)
　　End Sub
End Class
2. 使用WithEvents 声明该类的对象．
　　Friend WithEvents myperson As Person
３，编写事件处理代码．
　　Private Sub myperson_walked(ByVal distance As Integer)　－
　　　Handles myperson.walked
　　　TextBox1.Text = "walked" & distance
　　 End Sub
４，调用事件．
　　Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) 　Handles Button1.Click
　　myperson.onwalk(20)
　　End Sub