Permalink
Fetching contributors…
Cannot retrieve contributors at this time
95 lines (83 sloc) 2.94 KB
Imports System.ComponentModel
Imports System.Collections.ObjectModel
Namespace SDKSample
Public Class Task
Implements INotifyPropertyChanged
Private _name As String
Private _description As String
Private _priority As Integer
Private _type As TaskType
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
Public Sub New()
End Sub
Public Sub New(ByVal name As String, ByVal description As String, ByVal priority As Integer, ByVal type As TaskType)
Me._name = name
Me._description = description
Me._priority = priority
Me._type = type
End Sub
'<SnippetToString>
Public Overrides Function ToString() As String
Return _name.ToString()
End Function
'</SnippetToString>
Public Property TaskName() As String
Get
Return _name
End Get
Set(ByVal value As String)
_name = value
OnPropertyChanged("TaskName")
End Set
End Property
Public Property Description() As String
Get
Return _description
End Get
Set(ByVal value As String)
_description = value
OnPropertyChanged("Description")
End Set
End Property
Public Property Priority() As Integer
Get
Return _priority
End Get
Set(ByVal value As Integer)
_priority = value
OnPropertyChanged("Priority")
End Set
End Property
Public Property TaskType() As TaskType
Get
Return _type
End Get
Set(ByVal value As TaskType)
_type = value
OnPropertyChanged("TaskType")
End Set
End Property
Protected Sub OnPropertyChanged(ByVal info As String)
Dim handler As PropertyChangedEventHandler = PropertyChangedEvent
If handler IsNot Nothing Then
handler(Me, New PropertyChangedEventArgs(info))
End If
End Sub
End Class
Public Class Tasks
Inherits ObservableCollection(Of Task)
Public Sub New()
MyBase.New()
Add(New Task("Shopping", "Pick up Groceries and Detergent", 2, TaskType.Home))
Add(New Task("Laundry", "Do my Laundry", 2, TaskType.Home))
Add(New Task("Email", "Email clients", 1, TaskType.Work))
Add(New Task("Clean", "Clean my office", 3, TaskType.Work))
Add(New Task("Dinner", "Get ready for family reunion", 1, TaskType.Home))
Add(New Task("Proposals", "Review new budget proposals", 2, TaskType.Work))
End Sub
End Class
Public Enum TaskType
Home
Work
End Enum
End Namespace