18 lines
823 B
VB.net
18 lines
823 B
VB.net
Imports System.ComponentModel
|
|
|
|
Public Class frmWorkflowOverview
|
|
Private WorkflowItems As BindingList(Of WorkflowItem)
|
|
|
|
Private Sub frmWorkflowOverview_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
WorkflowItems = New BindingList(Of WorkflowItem) From {
|
|
New WorkflowItem() With {.Title = "Eingangsrechnung XYZ", .State = WorkflowItem.ItemState.Danger, .WorkflowName = "Rechnungseingang"},
|
|
New WorkflowItem() With {.Title = "Eingangsrechnung ABC", .State = WorkflowItem.ItemState.Normal, .WorkflowName = "Rechnungseingang"},
|
|
New WorkflowItem() With {.Title = "Mietvertrag XYZ läuft aus", .State = WorkflowItem.ItemState.Warning, .WorkflowName = "Vertragsprüfung"}
|
|
}
|
|
|
|
GridWorkflowOverview.DataSource = WorkflowItems
|
|
|
|
|
|
|
|
End Sub
|
|
End Class |