26 lines
1.4 KiB
VB.net
26 lines
1.4 KiB
VB.net
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 |