[0theghost0]

الرجاء مساعدتي في تعديل هذا الكود ليقوم بفهم ان الوقت التي تم الانقضاء منه حتى لو تم قفل البرنامج وفتحه يتضلل باللون الاحمر للاوقات المنتهية .

الكود :

كود :

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

[0theghost0]

تم الحل وشكرا للكل