منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
استفسار في طريقة الربط بين combo و list في الـ VB 6 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : استفسار في طريقة الربط بين combo و list في الـ VB 6 (/showthread.php?tid=10191)

استفسار في طريقة الربط بين combo و list في الـ VB 6 - moghastar - 22-08-13

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


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

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

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

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

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

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

[ATTACH=CONFIG]3860[/ATTACH]


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

استفسار في طريقة الربط بين combo و list في الـ VB 6 - VB_Coder - 23-08-13

السلام عليكم

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

استفسار في طريقة الربط بين combo و list في الـ VB 6 - moghastar - 23-08-13

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

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



أخي الفاضل :

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

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

استفسار في طريقة الربط بين combo و list في الـ VB 6 - VB_Coder - 24-08-13

السلام عليكم

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

كود :
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

- تحياتي .

استفسار في طريقة الربط بين combo و list في الـ VB 6 - moghastar - 24-08-13

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

- تحياتي .



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

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

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

بارك الله فيك