[مبتدئ]

هل يمكن لو عندى 5 combobox كل واحد فيهم فى items من A لى M
مثلآ لو اخترط فى combobox 1 حرف A وى فى combobox 2 حرف A حرف A الى فى combobox1 يتغير الى None
او لايمكن عمل حرف A فى Combobox 2 لو موجود فى احد combobox هل يوجد كود مناثب لهذا ؟

[kslawy]

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Me.ComboBox1.Items.Add("None")
        Me.ComboBox1.Items.Add("A")
        Me.ComboBox1.Items.Add("B")
        Me.ComboBox1.Items.Add("C")
        '***********************************
        Me.ComboBox2.Items.Add("None")
        Me.ComboBox2.Items.Add("A")
        Me.ComboBox2.Items.Add("B")
        Me.ComboBox2.Items.Add("C")


    End Sub


    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If Me.ComboBox1.Text = Me.ComboBox2.Text Then
            'None يتم اختيار القيمة الأولى وهي
            Me.ComboBox2.SelectedIndex = 0
        End If
    End Sub


    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        If Me.ComboBox2.Text = Me.ComboBox1.Text Then
            'None يتم اختيار القيمة الأولى وهي
            Me.ComboBox1.SelectedIndex = 0
        End If
    End Sub