Eine bestimte Dauer vor jetziger zeit Listview färben!

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Manu67100.

    Eine bestimte Dauer vor jetziger zeit Listview färben!

    Hallo liebe Community( :thumbup: ),
    Ich arbeite auf einem zeitplaner.
    Auf der form befindet sich eine listview.
    Mein ziel ist es eine bestimmte zeit vor der jetzigen Zeit das jeweilige item zu färben
    - 1 Stunde davor : grün
    - 30 minuten davor : gelb
    - 15 minuten davor : rot
    Mein jetztiger code:

    VB.NET-Quellcode

    1. Private Sub ListviewColoring(ByVal Nowhour As Integer, ByVal Nowmin As Integer)
    3. For Each i As ListViewItem In ListView1.Items
    4. Dim values() As String = i.Text.Split(":"c) ' Von 18:40 zu 18 in Value(0) und 40 in Value(1)
    5. If i.Checked = False Then
    6. If Nowhour = values(0) Then
    7. If values(1) >= Nowmin + 15 And values(1) <= Nowmin + 30 Then
    8. i.BackColor = Color.Yellow
    9. ElseIf values(1) >= Nowmin And values(1) <= Nowmin + 15 Then
    10. i.BackColor = Color.Red
    11. End If
    12. Else
    13. End If
    14. Else
    15. End If
    16. Next
    18. End Sub

    Doch leider geht es nicht: wenn es 19:03 ist und die angegebene zeit ( listviewitem .text) 18: 59 würde dieser eintrag nicht gefärbt. Irgent eine andere idee :?:
    Ich freue mich auf eure Hilfe. Manu

    Danke,
    Aber habe ein anderes problem: wenn ein eintrag in 1 oder mehr sunden ist , wird er in color.Wheat gefärbt...

    VB.NET-Quellcode

    1. Private Sub ListviewColoring()
    3. For Each i As ListViewItem In ListView1.Items
    4. If i.Checked = False Then
    6. If i.BackColor = Color.Tomato Or i.BackColor = Color.Teal Then
    8. Else
    9. Dim start As DateTime = DateTime.Now
    10. Dim va() As String = i.Text.Split(":"c)
    11. Dim setedtime As DateTime = DateTime.Now.AddHours(va(0))
    12. setedtime = DateTime.Now.AddMinutes(va(1))
    13. Dim span As Double = (setedtime - start).TotalMinutes
    14. Dim nowmin As Integer = start.Minute
    15. Dim nowh As Integer = start.Hour
    16. Dim setmin As Integer = va(1)
    17. Dim seth As Integer = va(0)
    18. If (setmin - nowmin) >= 0 And (seth - nowh) >= 0 Then
    19. '59 - 30 Green
    20. If span <= 59 And span >= 30 Then
    21. i.BackColor = Color.LightGreen
    22. End If
    23. If span <= 30 And span >= 15 Then
    24. '30 - 15 Green
    25. i.BackColor = Color.Yellow
    26. End If
    27. If span <= 15 And span >= 1 Then
    28. '15 - 1 Green
    29. i.BackColor = Color.Yellow
    30. End If
    32. Else
    33. i.BackColor = Color.Wheat
    34. End If
    36. End If
    38. Else
    39. i.BackColor = Color.Teal
    40. End If
    41. Next
    43. End Sub

    MFG manu

Facebook
Telefonspende