myeventargs.vb

来自「我基于.netframwork1.0开发的一个B/S网络店铺（会员）销售管理系统」· VB 代码 · 共 35 行

Namespace Data

    Public Class LogonEventArgs
        Inherits EventArgs

        Private _success As Boolean
        Private _op As LogonOperator

        'Public Sub New()
        '    _op = New LogonOperator()
        'End Sub

        Public Property Success() As Boolean
            Get
                Return _success
            End Get
            Set(ByVal value As Boolean)
                _success = value
            End Set
        End Property

        Public Property Operator() As LogonOperator
            Get
                Return _op
            End Get
            Set(ByVal Value As LogonOperator)
                _op = Value
            End Set
        End Property
    End Class

    Public Delegate Sub logonEventHandler(ByVal sender As Object, ByVal e As LogonEventArgs)

End Namespace