تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار في طريقة الربط بين combo و list في الـ VB 6
#1
استفسار في طريقة الربط بين combo و list في الـ VB 6


السلام عليكم ورحمة الله وبركاته

عندي في البرنامج على سبيل المثال

عدد 10 combo boxes
عدد 1 List box

المطلوب أني أريد وضع بيانات داخل الـ list box وربطها بباقي الـ combo boxes

وعند التعدل في اللست بوكس .. تظهر التعديلات أوتوماتيكيا في الكومبو

لأن البرنامج عندي يحتوي على أكثر من 40 كومبو بوكس وأضطر إلى التعديل في قائمة كل كومبو .. فما الحل ؟؟

[ATTACH=CONFIG]3860[/ATTACH]


مرفق نسخة من البرنامج


الملفات المرفقة صورة/صور
   

.rar   combo.rar (الحجم : 1.28 ك ب / التحميلات : 93)
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

- وضح أكثر ماتريده مطلبك غير واضح .
- تحياتي .
الرد }}}
تم الشكر بواسطة:
#3
VB_Coder كتب :السلام عليكم

- وضح أكثر ماتريده مطلبك غير واضح .
- تحياتي .



أخي الفاضل :

انا عندي تقريبا في البرنامج 40 كومبو بوكس .. كلهم نفس الليست اللى فيهم واحدة .. اللى أنا عايزه بدل ما أمسك كل كومبو بوكس وأكتب الليست اللى فيها وأكرر الموضوع ده 40 مرة

أنا عايز مثلا أعمل ليست في كومبو واحد وبالتالي الـ 39 الباقيين ياخدوا نفس البيانات الموجودة في الكومبو الأول
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم

- إستخدم هذا الكود :

كود :
Private Sub Command1_Click()

Dim Ctrl As Control
Dim I As Integer

For Each Ctrl In Controls

    If TypeOf Ctrl Is ComboBox And Ctrl.Name <> "Combo1" Then
       Ctrl.Clear
       For I = 0 To Combo1.ListCount - 1
           Ctrl.AddItem Combo1.List(I)
       Next
    End If
    
Next

End Sub

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#5
VB_Coder كتب :السلام عليكم

- إستخدم هذا الكود :

كود :
Private Sub Command1_Click()

Dim Ctrl As Control
Dim I As Integer

For Each Ctrl In Controls

    If TypeOf Ctrl Is ComboBox And Ctrl.Name <> "Combo1" Then
       Ctrl.Clear
       For I = 0 To Combo1.ListCount - 1
           Ctrl.AddItem Combo1.List(I)
       Next
    End If
    
Next

End Sub

- تحياتي .



تمام تمام تمام

مشكور جدا جدا جدا

الكود أدى الغرض المطلوب

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار بارك الله فيكم افيدوني اي سفن 2 186 26-12-23, 05:15 PM
آخر رد: اي سفن
  استفسار احمد جعبلي 3 859 30-03-23, 06:51 PM
آخر رد: sanyor77
  استفسار السفير الخرافي 2 646 21-02-23, 08:23 PM
آخر رد: Taha Okla
  طريقة اضافة كود الاعداد في فجوال الاكسس نيمو 0 586 17-09-22, 01:36 AM
آخر رد: نيمو
  استفسار عن طريقة حماية تطبيقات الفيجوال بيسك moghastar 2 3,698 16-10-20, 02:15 AM
آخر رد: مقداد إسماعيل
  استفسار عن طريقة الربط بين قاعدة بيانات اكسيس 2003 عن طريق الانترنت jordaniancopy 1 1,847 29-08-20, 11:46 PM
آخر رد: diggitalk2017@gmail.com
  شرح طريقة انشاء barcode بسهوله ولد رائع 4 5,562 22-06-19, 08:06 PM
آخر رد: ابن دوعن
  [Acces2010] استفسار بخصوص الفيجول بيسك والاكسس issamsaidd 1 2,195 19-12-18, 01:24 AM
آخر رد: elgokr
  [سؤال] المساعدة - بربط Combo بقاعدة البيانات amor58 1 1,986 30-01-18, 11:19 PM
آخر رد: Amir_Alzubidy
  اذا نسخت نص من ملف نصي والصقته في اداة List تظهر علماتا استفهام مهما غير من ترميز الم سعود 3 2,267 18-11-17, 11:14 AM
آخر رد: sendbad100

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


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