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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم أسئلة واستفسارات الأعضاء - المنتدى القديم > قسم Visual Basic 6 وما قبله > عمل checked على مجموعة معينة داخل listview بالفجويل باسيك 6
نسخة كاملة : عمل checked على مجموعة معينة داخل listview بالفجويل باسيك 6
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

abdouhai

22-09-12, 02:20 AM
[COLOR="#B22222"]
السلام عليكم

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

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

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

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

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

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

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

Ahmad Jawad

22-09-12, 08:13 AM
أخي ، لنستطيع مساعدتك ، إرفع المثال هنا http://vb4arb.com/vb/uploader.php

abdouhai

22-09-12, 09:49 AM
المثال المرفق

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

ناجي إبراهيم

22-09-12, 05:38 PM
السلام عليكم...

انقر نقراً مزدوجاً على كل من 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

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

abdouhai

22-09-12, 09:23 PM
السلام عليكم

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

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

awidan76

27-12-15, 03:41 AM
تسلمووووووووو الله يعطيكم العافيه
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم أسئلة واستفسارات الأعضاء - المنتدى القديم > قسم Visual Basic 6 وما قبله > عمل checked على مجموعة معينة داخل listview بالفجويل باسيك 6