41 lines
1.2 KiB
VB.net
41 lines
1.2 KiB
VB.net
Imports DevExpress.XtraNavBar
|
|
|
|
Public Class NavControlOverview
|
|
Private _DataSource As List(Of WorkflowItem)
|
|
|
|
Public Property DataSource As List(Of WorkflowItem)
|
|
Get
|
|
Return _DataSource
|
|
End Get
|
|
Set(value As List(Of WorkflowItem))
|
|
_DataSource = value
|
|
|
|
'TODO: Update Navbar Items
|
|
If Not IsNothing(value) Then
|
|
UpdateItems(value)
|
|
End If
|
|
|
|
End Set
|
|
End Property
|
|
|
|
Private Sub UpdateItems(WorkflowItems As List(Of WorkflowItem))
|
|
Dim oTotalItems = WorkflowItems.Count
|
|
Dim oGroupedItems = WorkflowItems.GroupBy(Function(Item As WorkflowItem)
|
|
Return Item.Process
|
|
End Function)
|
|
|
|
AddItem("Alle Workflows", oTotalItems)
|
|
|
|
For Each oGroupedItem As IGrouping(Of String, WorkflowItem) In oGroupedItems
|
|
AddItem(oGroupedItem.Key, oGroupedItem.Count)
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub AddItem(Title As String, Count As Integer)
|
|
Dim oItem = New NavBarItem() With {
|
|
.Caption = $"{Title} ({Count})"
|
|
}
|
|
NavBarControl.Groups.First().ItemLinks.Add(oItem)
|
|
End Sub
|
|
End Class
|