taskeventargs..vb

来自「使用Access数据库演示的任务分配管理程序 一个使用ADO.NET基于」· VB 代码 · 共 47 行

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:2.0.50727.42
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System

'*************************************************************
' Class Name:  TaskEventArgs
' Purpose:  [Insert class purpose here.]
' Description: 
'***************************************************************
Namespace Common
    
    Public Class TaskEventArgs
        Inherits System.EventArgs
        
        Private m_Task As Business.Task
        
        Public Sub New()
            MyBase.New
        End Sub
        
        Public Sub New(ByVal biz As Business.Task)
            MyBase.New
            Me.m_Task = biz
        End Sub
        
        Property Task() As Business.Task
            Get
                Return m_Task
            End Get
            Set
                m_Task = value
            End Set
        End Property
    End Class
End Namespace