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

استفسار في طريقة الربط بين combo و list في الـ VB 6


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

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

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

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

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

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

[ATTACH=CONFIG]3860[/ATTACH]


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

السلام عليكم

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

VB_Coder كتب :السلام عليكم

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

أخي الفاضل :

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

أنا عايز مثلا أعمل ليست في كومبو واحد وبالتالي الـ 39 الباقيين ياخدوا نفس البيانات الموجودة في الكومبو الأول

السلام عليكم

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


- تحياتي .

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

- تحياتي .

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

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

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

بارك الله فيك