تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشروعي محتاج الى لمسات خفيفة
#1
اولا :
التعامل مع list view

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

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

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

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

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

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

كود :
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
الرد }}}}
تم الشكر بواسطة:
#4
تفضل اخي راجع المثال التالي


الملفات المرفقة
.rar   0theghost0.rar (الحجم : 256.82 ك ب / التحميلات : 32)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج للتواصل مع مسؤولي المنتدى ولا احد يجيب . Rabeea Qbaha 7 138 11-10-17, 01:12 AM
آخر رد: Amir_alzubidy
Information [سؤال] محتاج كود لOpenFileDialog و DataGridView lemozza 3 89 02-10-17, 07:20 PM
آخر رد: سعود
Lightbulb [VB.NET] محتاج مثال ككود ربط الكريستال ريبورت مع جدولين والقاعدة mysql مصمم الدوادمي 3 63 29-09-17, 12:18 AM
آخر رد: wale90
  [VB.NET] محتاج كود يقوم بإعادة الترقيم 0theghost0 4 99 26-09-17, 09:52 AM
آخر رد: سعود
  [VB.NET] محتاج مساعدة من فضلكم asadtaif 2 97 15-09-17, 01:01 PM
آخر رد: asadtaif
  [VB.NET] المساعدة في بعض الاشياء البسيط في مشروعي هذا 0theghost0 4 180 06-09-17, 09:34 AM
آخر رد: 0theghost0
  [VB.NET] هل يمكن عمل مشروعي نسخة محموله? Marwan9990 7 199 14-08-17, 01:12 PM
آخر رد: Marwan9990
  محتاج حد يساعدني بالتيم فيور بخصوص b4a hatem555 0 100 23-06-17, 07:19 AM
آخر رد: hatem555
  محتاج كود ربط قاعدة اكسس علي اكثر من جهاز hatem555 1 160 11-06-17, 06:52 PM
آخر رد: sendbad100
  [VB.NET] محتاج كود ارسال مسج للفيس بوك dubai.eig 3 205 11-05-17, 01:52 AM
آخر رد: tryold

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم