taskprogresses.vb

使用Access数据库演示的任务分配管理程序 一个使用ADO.NET基于Microsoft Access数据库演示的任务分配管理的程序

'---------------------------------------------------------------------
'  This file is part of the Microsoft .NET Framework SDK Code Samples.
' 
'  Copyright (C) Microsoft Corporation.  All rights reserved.
' 
' This source code is intended only as a supplement to Microsoft
' Development Tools and/or on-line documentation.  See these other
' materials for detailed information regarding Microsoft code samples.
' 
' THIS CODE AND INFORMATION ARE PROVIDED AS IS WITHOUT WARRANTY OF ANY
' KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
' IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
' PARTICULAR PURPOSE.
'---------------------------------------------------------------------

Public Class TaskProgress

    Public Shared Function GetValues() As ArrayList
        Dim retVal As New ArrayList()
        retVal.Add(New TaskProgress(0))
        retVal.Add(New TaskProgress(25))
        retVal.Add(New TaskProgress(50))
        retVal.Add(New TaskProgress(75))
        retVal.Add(New TaskProgress(100))

        Return retVal
    End Function

    Private m_Value As Integer = 0

    Public Sub New(ByVal value As Integer)
        m_Value = value
    End Sub

    Public Property Value() As Integer
        Get
            Return m_Value
        End Get
        Set(ByVal v As Integer)
            m_Value = v
        End Set
    End Property

    Public ReadOnly Property Text() As String
        Get
            Return m_Value.ToString() & "%"
        End Get
    End Property
End Class