السلام عليكم
ازاى عندما اضيف بيان فى الكومبو بوكس يرتبط هذا البيان بعدة بياناتات اخرى فى كمبو بوكس اخر مثلا عندما اضيف اسم مدرسة مثلا فى كمبوبوكس1 يظهر اسماء المدرسين فى هذه المدرسة فى كمبوبوكس2وعندما اضيف اسم مدرسة اخرى فى كمبوبوكس1 يظهر اسماء المدرسين بهذه المدرسة فى كمبوبوكس 2 وهكذا وشكراااا
اسهل طريقة بدون قواعد بيانات هي
كود :
Public Class Form1
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
ComboBox2.Items.Clear()
Select Case ComboBox1.Text
Case "العراق"
ComboBox2.Items.AddRange(Ist.ToArray)
Case "مصر"
ComboBox2.Items.AddRange(Est.ToArray)
Case "السعودية"
ComboBox2.Items.AddRange(Sst.ToArray)
Case "سوريا"
ComboBox2.Items.AddRange(SE.ToArray)
End Select
ComboBox2.Text = ComboBox2.Items(0).ToString
End Sub
Dim st() As String = {"العراق", "مصر", "السعودية", "سوريا"}
Dim Ist() As String = {"بغداد", "البصرة", "موصل"}
Dim Est() As String = {"القاهرة", "الاسكندرية", "الجيزة"}
Dim Sst() As String = {"الرياض", "جده", "مكه"}
Dim SE() As String = {"دمشق", "حلب", "حمص"}
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.AddRange(st.ToArray)
ComboBox1.Text = ComboBox1.Items(0).ToString
End Sub
End Class
السلام عليكم اولا انا شاكر جداااااااااااااا لحضرتك لكن ازاى اضع البيانات داخل الكومبو بوكس من داخل البرنامج اثناء التشغيل وليس قبله وبذات الطلبات السابقة
السّلام عليكم و رحمة الله و بركاته
مادام عملية مدارس و مدرسين .. إضافة و تعديل و حذف و حركة تنقلية دائمة و مستمرة و متغيرة
يلزم أن تكون الكومبوبوكسات مرتبطة بقاعدة بيانات أحسن و أفضل بل من الضروري
تحياتي
لنفرض لديك زر بوتون وتكست بوكس تستخدم هذا الكود
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ComboBox1.Items.Add(TextBox1.Text)
End Sub
او اذا تريد تضيف كثير من الخيارات في نفس الوقت مثلا كان في التكست بوكس عدة كلمات مفصولة بسطر جديد مثل
مصر
السعودي
سوريا
العراق
تستخدم هذا الكود
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ComboBox1.Items.AddRange(TextBox1.Text.Split(vbNewLine).ToArray)
End Sub
السّلام عليكم و رحمة الله و بركاته
للتنويع بالأمثلة .. جهزت هذا المثال البسيط و به ما تكرم به الأخ الكريم 3booody
بالكومبو 1 و 2 و كذلك طريقة التعامل مع قاعدة البيانات بالكومبو 3 و 4
تحياتي
ملاحظة : تمّ تغيير المشروع بالمرفقات لأن الملف الذي أرفقته كان شخصي به بعض الإضافات و الآن الملف الجديد بإذن الله سيناسب فكرتك
لحضرتك منى جزيل الشكر والتقدير والعرفان بالجميل جزاك الله كل الخير
(27-10-19, 12:01 AM)عبد العزيز البسكري كتب : [ -> ]السّلام عليكم و رحمة الله و بركاته
للتنويع بالأمثلة .. جهزت هذا المثال البسيط و به ما تكرم به الأخ الكريم 3booody
بالكومبو 1 و 2 و كذلك طريقة التعامل مع قاعدة البيانات بالكومبو 3 و 4
تحياتي
ملاحظة : تمّ تغيير المشروع بالمرفقات لأن الملف الذي أرفقته كان شخصي به بعض الإضافات و الآن الملف الجديد بإذن الله سيناسب فكرتك
لدي سؤال اخي
انا عندي عدت اسماء في combobx
كيف خلي
Select Case يظهر رسالة اد كان الاختيار احمد او محمد خالد
Select Case
Case "احمد" or "محمد or "خالد"
Msgbox("msg")
بدون استخدام تكرار case
السلام عليكم و رحمة الله و بركاته
شوف أخي الكريم ..
يمكن أن تجد الإجابة الأفضل إن شاء الله
كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With ComboBox5
.Items.Add("محمد")
.Items.Add("أحمد")
.Items.Add("علي")
.Items.Add("سمير")
.Items.Add("خالد")
End With
End Sub
Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged
Dim Name As String = ComboBox5.Text
MsgBox(Name.ToString())
End Sub
تحياتي