Imports System.ComponentModel Imports DigitalData.GUIs.ClientSuite Public Class WorkflowItem Implements INotifyPropertyChanged Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged Public Enum ItemState Normal Warning Danger End Enum Public Property StateImage As Image Public Property Title As String Public Property CreatedAt As DateTime Public Property WorkflowName As String Private _state As ItemState Public Property State As ItemState Get Return _state End Get Set(value As ItemState) _state = value Select Case value Case ItemState.Normal StateImage = My.Resources.ampel_gruen Case ItemState.Warning StateImage = My.Resources.ampel_gelb Case ItemState.Danger StateImage = My.Resources.ampel_rot Case Else StateImage = Nothing End Select End Set End Property End Class