09-04-18, 07:16 PM
الرجاء مساعدتي في تعديل هذا الكود ليقوم بفهم ان الوقت التي تم الانقضاء منه حتى لو تم قفل البرنامج وفتحه يتضلل باللون الاحمر للاوقات المنتهية .
الكود :
الكود :
كود :
ListView1.Items.Clear()
For Each dr As DataRow In dc.ShowData().Rows
Dim item As New ListViewItem(dr("Code_ID").ToString())
item.SubItems.Add(dr("Code_num").ToString())
item.SubItems.Add(dr("Code_Timein").ToString())
item.SubItems.Add(dr("Code_Timeout").ToString())
item.SubItems.Add(dr("Code_mount").ToString())
item.SubItems.Add("")
ListView1.Items.Add(item)
For i As Integer = 0 To ListView1.Items.Count - 1 Step 1
If Val(ListView1.Items(i).SubItems(3).Text < DateTime.Now.ToString("h:mm:ss tt")) Then
ListView1.Items(i).BackColor = Color.Red
ListView1.Items(i).ForeColor = Color.White
ListView1.Items(i).SubItems(5).Text = "إنتهى الوقت المحدد"
Else
ListView1.Items(i).SubItems(5).Text = "لم ينته الوقت المحدد"
End If
Next
Next