VB.Net 中 WithEvents、AddHandler
来源:互联网 发布:淘宝联盟社区找淘宝客 编辑:程序博客网 时间:2024/05/18 02:13
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 SubEnd ClassPublic Class ClassTest Public Event GetValue(ByVal str As String) Public Sub Test() RaiseEvent GetValue("事件例子") End SubEnd Class