منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عمل checked على مجموعة معينة داخل listview بالفجويل باسيك 6 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : عمل checked على مجموعة معينة داخل listview بالفجويل باسيك 6 (/showthread.php?tid=4316)

عمل checked على مجموعة معينة داخل listview بالفجويل باسيك 6 - abdouhai - 22-09-12

[COLOR="#B22222"]
السلام عليكم

إخواني وضعت لكم مثال بالمرفقات.

من خلال هذا المثال أريد منكم أن تدلوني على كود

بحيث من خلال هذا الكود و عند الضغط على checkbox سواء لمدينة الرباط أو فاس أو مدينة الدارالبيضاء التي نلخصها نحن المغاربة في كلمة casa.
من خلال هذا الكود يتم عمل checked = true لجميع العناصر التي تندرج بهذه المدينة التي توجد أمام checkbox.

أرجو أن تكونوا فهمتم قصدي من السؤال.

المرجو عدم التأخير عني في هذا السؤال.[/COLOR]

تم مشكل في رفع المرفق لكن أجيبوني عن فهمتم من سؤالي مشكورين

مشكورين إخواني و أساتذتي الكرام.

عمل checked على مجموعة معينة داخل listview بالفجويل باسيك 6 - Ahmad Jawad - 22-09-12

أخي ، لنستطيع مساعدتك ، إرفع المثال هنا http://vb4arb.com/vb/uploader.php

عمل checked على مجموعة معينة داخل listview بالفجويل باسيك 6 - abdouhai - 22-09-12

المثال المرفق

http://vb4arb.com/vb/uploaded/186_01348292897.zip

عمل checked على مجموعة معينة داخل listview بالفجويل باسيك 6 - ناجي إبراهيم - 22-09-12

السلام عليكم...

انقر نقراً مزدوجاً على كل من Check2 (عنوانه rabat) و Check3 (عنوانه fes) و Check4 (عنوانه casa) و اكتب الأكواد التالية كما هو مبين:
كود :
Private Sub Check2_Click()
    Dim AName As String
    Dim AItem As ListItem
  
    AName = UCase$(Check2.Caption)
  
    For Each AItem In ListView1.ListItems
        If UCase$(AItem.SubItems(4)) = AName Then AItem.Checked = (Check2.Value = vbChecked)
    Next AItem
End Sub

Private Sub Check3_Click()
    Dim AName As String
    Dim AItem As ListItem
  
    AName = UCase$(Check3.Caption)
  
    For Each AItem In ListView1.ListItems
        If UCase$(AItem.SubItems(4)) = AName Then AItem.Checked = (Check3.Value = vbChecked)
    Next AItem
End Sub

Private Sub Check4_Click()
    Dim AName As String
    Dim AItem As ListItem
  
    AName = UCase$(Check4.Caption)
  
    For Each AItem In ListView1.ListItems
        If UCase$(AItem.SubItems(4)) = AName Then AItem.Checked = (Check4.Value = vbChecked)
    Next AItem
End Sub

نرجو الاستفادة و السلام.

عمل checked على مجموعة معينة داخل listview بالفجويل باسيك 6 - abdouhai - 22-09-12

السلام عليكم

شكرا كثير أخي ناجي ابراهيم

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

RE: عمل checked على مجموعة معينة داخل listview بالفجويل باسيك 6 - awidan76 - 27-12-15

تسلمووووووووو الله يعطيكم العافيه