سؤال فى الكومبو بوكس - نسخة قابلة للطباعة

كود :

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

كود :

Select Case ComboBox1.Text

            Case "احمد", "محمد", "خالد"

                MsgBox("msg")

        End Select

كود :

   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