تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عمل checked على مجموعة معينة داخل listview بالفجويل باسيك 6
#1
[COLOR="#B22222"]
السلام عليكم

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

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

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

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

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


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

مشكورين إخواني و أساتذتي الكرام.
الرد }}}}
تم الشكر بواسطة:
#2
أخي ، لنستطيع مساعدتك ، إرفع المثال هنا http://vb4arb.com/vb/uploader.php
يا عالما بحالي 
الرد }}}}
تم الشكر بواسطة: awidan76
#3
المثال المرفق

http://vb4arb.com/vb/uploaded/186_01348292897.zip
الرد }}}}
تم الشكر بواسطة: awidan76
#4
السلام عليكم...

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

نرجو الاستفادة و السلام.
الرد }}}}
تم الشكر بواسطة: awidan76
#5
السلام عليكم

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

كنت محتاج لهذا الكود كثيرا و خصوصا في مشاريعي المقبلة.
الرد }}}}
تم الشكر بواسطة: awidan76
#6
تسلمووووووووو الله يعطيكم العافيه
اعز الناس واعز معلمين :
1)   sniper.ps
2) Ahmed_Mansoor
3) myalsailamy
4) ahmedabdelaliem الله يحفظهم 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تم الحل ] : البحث بأوّل حرف داخل الفليكس جريد عبد العزيز البسكري 5 72 30-11-16, 01:54 AM
آخر رد: عبد العزيز البسكري
Brick مساعده في الفيجوال باسيك اكسل للمختصين hady27 0 150 24-05-16, 09:47 PM
آخر رد: hady27
  قرائة سطر معين داخل ملف تكست vb6 شفنطل 4 1,154 16-04-16, 10:20 PM
آخر رد: Ahmed_Mansoor
Rainbow [سؤال] البحث عن كلمة داخل عدة الروابط dlshad24 3 431 03-07-15, 05:54 PM
آخر رد: dlshad24
  [vb6.0] كيفية تنفيذ كود مكتوب داخل اداة textbox ghost_programmer 6 1,166 03-06-15, 05:48 PM
آخر رد: ghost_programmer
  [سؤال] تحويل الصوت الى نص داخل textbox maro 1 1,069 07-01-15, 11:30 AM
آخر رد: برير مسبل
  اضافة ملفات داخل حقل superwoofer 5 769 10-12-14, 09:47 PM
آخر رد: superwoofer
  كيفية وضع سطور معينة من جريد الى جريد اخرى ؟ gedo 2 544 14-11-14, 03:12 AM
آخر رد: gedo
Rainbow [سؤال] الكتابة داخل inputbox باللغةالعربية متلغبطة amrelgadaa 3 644 07-11-14, 02:57 PM
آخر رد: amrelgadaa
  نسخ مجموعة من الملفات alglad 1 311 07-05-14, 10:31 PM
آخر رد: سعود

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


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