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

发布时间：2020-12-17 07:48:04 所属栏目：百科来源：网络整理

导读：基本思路：１，首先在要定义事件的类中声明事件，然后使用RaiseEvent 激发该事件． Public Class Person Private name As String Public Event walked(ByVal distance As Integer) Public Sub onwalk(ByVal distance As Integer) RaiseEvent walked(distanc

基本思路：
１，首先在要定义事件的类中声明事件，然后使用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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!