AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

DeletefrmDashboard

Browse Source
This commit is contained in:
SchreiberM
2020-03-11 08:51:39 +01:00
parent 94c3ff456e
commit 4b55777b87
4 changed files with 0 additions and 425 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
app/DD_PM_WINDREAM/frmInvDashboard.vb
View File

@@ -1,26 +0,0 @@
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