منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مشروعي محتاج الى لمسات خفيفة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اولا :
التعامل مع list view

في حالة اضافة اي شيء في ليست فيو لايظهر اوتوماتيكي لازم اعيد تشغيل البرنامج ليظهر محتواه

ثانيا :
التعامل مع الوقت داخل ليست فيو
عندما اضيف وقت الاستخدام ووقت الانتهاء لايتحرك الوقت داخل ليست فيو

اتمنى ان تفيدوني
بخصوص الاستفسار الاول ضع الكود الخاص بتعبئة List view في الزر الخاص بالاضافة اي بعد عملية الحفظ مباشرة.
مشكور اخوي لكن واجهتني مشكلة

ان بعد عملية الرفرش او التحديث لايخبرني من الذي انتهى وقته ومن لم ينتهي وقته

الكل يكون لم ينتهي وقتهم فما الحل ؟؟

الكود قمت كبتابة الكود في تايمر :

كود :
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       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("hh:mm:ss t")) 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
   End Sub
تفضل اخي راجع المثال التالي