Permalink
Cannot retrieve contributors at this time
Fetching contributors…
| 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 |