السلام عليكم ورحمة الله وباركته ,,, اخواني حياكم الله
انا ربط بين 2 combobox ونجحت الفكرة وهي حين اختار القيمة الاولى من الكمبو تاتي القيمة في الكمبو الاخر ولكن بقيمة التالية
مثال الكمبو 1 فيه items 1-2-3-4
الكمبو 2 فيه 1-2-3-4 items
عند الضغط على 1في الكمبو 1 تاتي 2 في الكمبو 2 وهكذا
ComboBox2.SelectedIndex = ComboBox1.SelectedIndex + 1
المشكلة :
اذا وصلت اخر قيمة في الكمبو 1 وهي 4 يعطي خطاء لانه العدد الانديكس الي يزيد فيه الكمبو 1 لا يوجد في الكمبو2
وبارك الله فيكم
(24-03-15, 03:09 PM)abid كتب : [ -> ]السلام عليكم ورحمة الله وباركته ,,, اخواني حياكم الله
انا ربط بين 2 combobox ونجحت الفكرة وهي حين اختار القيمة الاولى من الكمبو تاتي القيمة في الكمبو الاخر ولكن بقيمة التالية
مثال الكمبو 1 فيه items 1-2-3-4
الكمبو 2 فيه 1-2-3-4 items
عند الضغط على 1في الكمبو 1 تاتي 2 في الكمبو 2 وهكذا
ComboBox2.SelectedIndex = ComboBox1.SelectedIndex + 1
المشكلة :
اذا وصلت اخر قيمة في الكمبو 1 وهي 4 يعطي خطاء لانه العدد الانديكس الي يزيد فيه الكمبو 1 لا يوجد في الكمبو2
وبارك الله فيكم
شيئ طبيعي
لانه لايوجد بالكومبو بوكس الثاني قيمه لعرضها
حلك هنا اما ان تحاول ان تجد حيله أخرى لتنفيذ طلبك
او ان تقوم بوضع كودك داخل جملة TRY حتى لا تظهر رسالة الخطأ ويستمر عمل البرنامج
ولكن في هذه الحالة سيبقى الكومبوبوكس الثاني يحمل اخر قيمه تم وضعها فيه فقط وليست القيمه الصحيحه التي تريدها لانها غير موجوده بالاساس
كود :
Try
ComboBox2.SelectedIndex = ComboBox1.SelectedIndex + 1
Catch ex As Exception
End Try
بالتوفيق
(24-03-15, 03:25 PM)Dr.Sherif Alazizi كتب : [ -> ] (24-03-15, 03:09 PM)abid كتب : [ -> ]السلام عليكم ورحمة الله وباركته ,,, اخواني حياكم الله
انا ربط بين 2 combobox ونجحت الفكرة وهي حين اختار القيمة الاولى من الكمبو تاتي القيمة في الكمبو الاخر ولكن بقيمة التالية
مثال الكمبو 1 فيه items 1-2-3-4
الكمبو 2 فيه 1-2-3-4 items
عند الضغط على 1في الكمبو 1 تاتي 2 في الكمبو 2 وهكذا
ComboBox2.SelectedIndex = ComboBox1.SelectedIndex + 1
المشكلة :
اذا وصلت اخر قيمة في الكمبو 1 وهي 4 يعطي خطاء لانه العدد الانديكس الي يزيد فيه الكمبو 1 لا يوجد في الكمبو2
وبارك الله فيكم
شيئ طبيعي
لانه لايوجد بالكومبو بوكس الثاني قيمه لعرضها
حلك هنا اما ان تحاول ان تجد حيله أخرى لتنفيذ طلبك
او ان تقوم بوضع كودك داخل جملة TRY حتى لا تظهر رسالة الخطأ ويستمر عمل البرنامج
ولكن في هذه الحالة سيبقى الكومبوبوكس الثاني يحمل اخر قيمه تم وضعها فيه فقط وليست القيمه الصحيحه التي تريدها لانها غير موجوده بالاساس
كود :
Try
ComboBox2.SelectedIndex = ComboBox1.SelectedIndex + 1
Catch ex As Exception
End Try
بالتوفيق
د.جزاك الله خيرا وبارك الله فيك
طيب واذا اردت ان اربط tow combo ولكن اريد ايضا ان احذف احد عناصر الكمبو الثاني كيييف؟
السلام عليكم ورحمة الله وبركاته
اخي الكريم بالنسبة لربط الكومبو مع بعض لايجوز ربطها بالاندكس لان الاندكس يبدأ من الصفر
لذلك ستجد ان القيمة التي ستأتي هي اكبر ب 1
انما الربط يكون بـ Selectedvalue كما يجب وضع الكود في جملة try_Catch تلافيا لاي خطأ
انظر الى الكود الموجود في الرد التالي:
http://vb4arb.com/vb/showthread.php?tid=33916