تقييم الموضوع :
  • 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) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل هنالك امكانية لطباعة النص داخل الداتا ريبورت بشكل عامودي mohammed_atallah 2 699 11-09-22, 06:00 PM
آخر رد: mohammed_atallah
  عرض الصور من قاعدة بيانات اكسس داخل الداتا ريبورت mohammed_atallah 0 517 04-09-22, 09:17 AM
آخر رد: mohammed_atallah
  ممكن كود للبحث عن مجلد مع خيارات معينة القناص المحترف 2 2,854 31-05-21, 06:43 PM
آخر رد: Ahmad War
  كيف أربط طابعة معينة بتقرير الداتاريبورت VB6 amazonette 2 1,745 03-11-19, 09:43 PM
آخر رد: amazonette
  كيفية البحث وعمل فلتر للبيانات داخل Mysql ؟ gedo 2 2,166 07-11-18, 05:53 PM
آخر رد: gedo
  الحذف من داخل DATAGRID باستخدام ADO دهشوش1 2 2,200 09-11-17, 04:20 AM
آخر رد: دهشوش1
  دمج مجموعة مربعات نصوص المعتصم بالله القليعي 21 6,267 20-09-17, 09:16 AM
آخر رد: المعتصم بالله القليعي
  سؤال حول Listview superwoofer 0 1,556 18-12-16, 10:15 AM
آخر رد: superwoofer
  [ تم الحل ] : البحث بأوّل حرف داخل الفليكس جريد عبد العزيز البسكري 5 3,258 30-11-16, 01:54 AM
آخر رد: عبد العزيز البسكري
Brick مساعده في الفيجوال باسيك اكسل للمختصين hady27 0 1,961 24-05-16, 09:47 PM
آخر رد: hady27

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


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