AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS14032016

Browse Source
This commit is contained in:
SchreiberM
2016-03-14 16:50:50 +01:00
parent 32a1c4cf5e
commit 1bb7d5c737
1 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
app/DD-Record-Organiser/frmCockpit.vb
View File

@@ -13,6 +13,8 @@
captiongrbx = CURRENT_TASKS_GENERAL.Rows.Count & " Tasks - Team/Group" captiongrbx = CURRENT_TASKS_GENERAL.Rows.Count & " Tasks - Team/Group"
grbxTasksGeneral.Text = captiongrbx grbxTasksGeneral.Text = captiongrbx
Dim i As Integer Dim i As Integer
Dim _col As Color = Color.White
For Each row As DataRow In CURRENT_TASKS_GENERAL.Rows For Each row As DataRow In CURRENT_TASKS_GENERAL.Rows
'Dim i = row.Item(0) 'Dim i = row.Item(0)
@@ -23,12 +25,17 @@
'.SubItems.Add(row.Item(1)) '.SubItems.Add(row.Item(1))
'.SubItems.Add("Dritte Spalte") '.SubItems.Add("Dritte Spalte")
.Tag = row.Item(0) .Tag = row.Item(0)
.BackColor = _col
End With End With
i += 1 i += 1
' ListViewTasksGeneral.Items(i).BackColor = _col
If i Mod 2 = 0 Then If _col = Color.White Then
ListViewTasksGeneral.Items(i).BackColor = Color.Lavender _col = Color.Lavender
End If Else
_col = Color.White
End If
Next Next
Catch ex As Exception Catch ex As Exception