Sniperdennis
Mitglied
Hallo,
undzwar habe ich mir überlegt in mein Programm noch eine Kleinigkeit wie farbige Zeilen in ListView. Die Farbe wird durch den Wert im Spaltenkopf "Datum" definiert. Die Zeile mit dem heutigen Datum wird Grün hinterlegt, das bevorstehende Datum Orange und ein vergangenes Datum Rot. Es funktioniert auch alles ausser das eine Zeile mit einem vergangenem Datum also z.b 12.08.2012 auch Orange wird. Jetzt raucht mir der Kopf weil der Code für mich keinen fehler enthält. Zum Code picBG ist eine PictureBox.
Was soll an diesem Teil des Codes falsch sein das er die Zeile nicht Rot sondern Orange färbt?
Ich hoffe ihr könnt mir helfen.
MfG
Sniperdennis
undzwar habe ich mir überlegt in mein Programm noch eine Kleinigkeit wie farbige Zeilen in ListView. Die Farbe wird durch den Wert im Spaltenkopf "Datum" definiert. Die Zeile mit dem heutigen Datum wird Grün hinterlegt, das bevorstehende Datum Orange und ein vergangenes Datum Rot. Es funktioniert auch alles ausser das eine Zeile mit einem vergangenem Datum also z.b 12.08.2012 auch Orange wird. Jetzt raucht mir der Kopf weil der Code für mich keinen fehler enthält. Zum Code picBG ist eine PictureBox.
PHP:
picBG.Width = ListView1.Width
picBG.Height = ListView1.ListItems(1).Height * (ListView1.ListItems.Count)
picBG.ScaleHeight = ListView1.ListItems.Count
picBG.ScaleWidth = 1
picBG.DrawWidth = 1
picBG.Cls
Dim F As Integer
For F = 1 To ListView1.ListItems.Count
If ListView1.ListItems(F).SubItems(3) = Date Then
picBG.Line (0, F - 1)-(1, F), vbGreen, BF
Else
If ListView1.ListItems(F).SubItems(3) > Date Then
picBG.Line (0, F - 1)-(1, F), &H80FF&, BF
Else
If ListView1.ListItems(F).SubItems(3) < Date Then
picBG.Line (0, F - 1)-(1, F), vbRed, BF
Else
End If
End If
End If
Next F
ListView1.Picture = picBG.Image
Was soll an diesem Teil des Codes falsch sein das er die Zeile nicht Rot sondern Orange färbt?
PHP:
If ListView1.ListItems(F).SubItems(3) < Date Then
picBG.Line (0, F - 1)-(1, F), vbRed, BF
Ich hoffe ihr könnt mir helfen.
MfG
Sniperdennis