011事件处理方式一

Module Module1
    Class UserLogin
        '1.声明事件
        Public Event Logon(ByVal UserName As String)

        Sub CheckUser(ByVal user As String)
            If user.Equals("Admin") Then        'Equals区分大小写
                Console.WriteLine("登录成功")
                '2.引发事件
                RaiseEvent Logon(user)
            Else
                Console.WriteLine("没有" & user)
            End If
        End Sub
    End Class

    '3.声明WithEvents
    Dim WithEvents EventObject As New UserLogin
    Sub Main()
        '4.运行了引发事件的类方法
        EventObject.CheckUser("Admin")

        Console.Read()
    End Sub

    '5.事件处理过程
    Public Sub Logon_EventHandler(ByVal user As String) Handles EventObject.Logon
        Console.WriteLine("用户" & user & "登录到系统")
    End Sub


End Module