VB.Net 中 WithEvents、AddHandler

最新推荐文章于 2019-04-16 10:36:22 发布

转载最新推荐文章于 2019-04-16 10:36:22 发布 · 1.8k 阅读

文章标签：

#vb.net #string #class

.NET 专栏收录该内容

48 篇文章

订阅专栏

本文介绍了一个使用VB.NET编写的简单示例程序，演示了如何通过WithEvents关键字和AddHandler语句两种方式来实现事件的定义和处理。示例中创建了一个名为ClassTest的类，该类定义了一个GetValue事件，而Form1类则通过不同方式订阅了这个事件。

Public Class Form1

    Dim WithEvents cls1 As New ClassTest()  'WithEvents方式
    Dim cls2 As New ClassTest()             'AddHandler方式

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cls1.Test()                         'WithEvents方式

        AddHandler cls2.GetValue, AddressOf cls2GetValue    'AddHandler方式
        cls2.Test()

        Me.Close()
    End Sub

    Private Sub cls1_GetVale(ByVal str As String) Handles cls1.GetValue     'WithEvents方式
        MsgBox("cls1  " & str)
    End Sub

    Private Sub cls2GetValue(ByVal str As String)    'AddHandler方式
        MsgBox("cls2  " & str)
    End Sub


End Class

Public Class ClassTest

    Public Event GetValue(ByVal str As String)

    Public Sub Test()
        RaiseEvent GetValue("事件例子")
    End Sub

End Class