+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشروعي محتاج الى لمسات خفيفة (/showthread.php?tid=16971)
مشروعي محتاج الى لمسات خفيفة - 0theghost0 - 25-08-16
اولا :
التعامل مع list view
في حالة اضافة اي شيء في ليست فيو لايظهر اوتوماتيكي لازم اعيد تشغيل البرنامج ليظهر محتواه
ثانيا :
التعامل مع الوقت داخل ليست فيو
عندما اضيف وقت الاستخدام ووقت الانتهاء لايتحرك الوقت داخل ليست فيو
اتمنى ان تفيدوني
RE: مشروعي محتاج الى لمسات خفيفة - Adrees - 25-08-16
بخصوص الاستفسار الاول ضع الكود الخاص بتعبئة List view في الزر الخاص بالاضافة اي بعد عملية الحفظ مباشرة.
RE: مشروعي محتاج الى لمسات خفيفة - 0theghost0 - 26-08-16
مشكور اخوي لكن واجهتني مشكلة
ان بعد عملية الرفرش او التحديث لايخبرني من الذي انتهى وقته ومن لم ينتهي وقته
الكل يكون لم ينتهي وقتهم فما الحل ؟؟
الكود قمت كبتابة الكود في تايمر :
كود :
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 SubRE: مشروعي محتاج الى لمسات خفيفة - Adrees - 28-08-16
تفضل اخي راجع المثال التالي