taskprogresses.vb

来自「TaskVision 应用程序展示了用于个人和公司相关任务管理的一个完整的 n 」· VB 代码 · 共 37 行

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