Imports DevExpress.XtraGrid.Views.Tile

Public Class frmInvDashboard
    Private Sub frmInvDashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIES". Sie können sie bei Bedarf verschieben oder entfernen.
        Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIES)

    End Sub

    Private Sub TileView1_ItemCustomize(sender As Object, e As DevExpress.XtraGrid.Views.Tile.TileViewItemCustomizeEventArgs) Handles TileView1.ItemCustomize
        Dim oView As TileView = sender
        Dim ovalue = oView.GetRowCellValue(e.RowHandle, "Title")
        If ovalue = "Alle Rechnungen" Then
            e.Item.AppearanceItem.Normal.BackColor = Color.Blue
            'e.Item.Elements(1).Text = ""
            e.Item.Elements(0).Appearance.Normal.ForeColor = Color.White
            e.Item.Elements(1).Appearance.Normal.ForeColor = Color.White
            e.Item.Elements(2).Appearance.Normal.ForeColor = Color.White
            'Console.WriteLine("")
        ElseIf ovalue = "Zeitkritisch" Then
            e.Item.Elements(0).Appearance.Normal.ForeColor = Color.Red
            e.Item.Elements(1).Appearance.Normal.ForeColor = Color.Red
            e.Item.Elements(2).Appearance.Normal.ForeColor = Color.Red
        End If
    End Sub
End Class