33 lines
915 B
VB.net
33 lines
915 B
VB.net
Imports System.ComponentModel
|
|
Imports DigitalData.GUIs.ClientSuite
|
|
|
|
Public Class WorkflowItem
|
|
Implements INotifyPropertyChanged
|
|
|
|
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
|
|
|
|
Private _state As String
|
|
|
|
Public Property Title As String
|
|
Public Property CreatedAt As DateTime
|
|
Public Property Process As String
|
|
|
|
Public Property StateImage As Image
|
|
Public Property State As String
|
|
Get
|
|
Return _state
|
|
End Get
|
|
Set(value As String)
|
|
_state = value
|
|
Select Case value
|
|
Case "Start"
|
|
StateImage = My.Resources.
|
|
Case "Not started"
|
|
StateImage = My.Resources.ampel_gelb
|
|
Case Else
|
|
StateImage = Nothing
|
|
End Select
|
|
End Set
|
|
End Property
|
|
End Class
|