taskfilters.vb

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

Public Enum TaskFilterValue
    AllTasks = 0
    OpenTasks = 1
    MyTasks = 2
End Enum

Public Class TaskFilter
    Private m_FilterValue As TaskFilterValue
    Private m_DisplayText As String

    Public Shared Function GetValues() As ArrayList

        Dim m_ResourceManager As New Resources.ResourceManager("TaskVision.Localize", System.Reflection.Assembly.GetExecutingAssembly())

        Dim retVal As New ArrayList()
        retVal.Add(New TaskFilter(m_ResourceManager.GetString("Filter_All"), TaskFilterValue.AllTasks))
        retVal.Add(New TaskFilter(m_ResourceManager.GetString("Filter_Open"), TaskFilterValue.OpenTasks))
        retVal.Add(New TaskFilter(m_ResourceManager.GetString("Filter_My"), TaskFilterValue.MyTasks))
        Return retVal
    End Function

    Public Sub New(ByVal displayText As String, ByVal filterValue As TaskFilterValue)
        m_DisplayText = displayText
        m_FilterValue = filterValue
    End Sub

    Public Property Value() As TaskFilterValue
        Get
            Return m_FilterValue
        End Get
        Set(ByVal Value As TaskFilterValue)
            m_FilterValue = Value
        End Set
    End Property

    Public Property Text() As String
        Get
            Return m_DisplayText
        End Get
        Set(ByVal Value As String)
            m_DisplayText = Value
        End Set
    End Property
End Class