[حريف برمجة]

عند الاختيار من الكومبو بوكس 12 في اول صف ضع هذا السطر :

كود :

ComboBox13.Items.Clear()

قبل هذا السطر :

كود :

        If ComboBox12.SelectedIndex = 0 Then

---

ايضاً يمكنك اختصار الكود بشكل افضل كالتالي :

كود :

Private Sub ComboBox12_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox12.SelectedIndexChanged
        ComboBox13.Items.Clear()

        If ComboBox12.SelectedIndex = 0 Or ComboBox12.SelectedIndex = 1 Or ComboBox12.SelectedIndex = 2 Or ComboBox12.SelectedIndex = 3 Then
            ComboBox13.Items.Add("الأول")
            ComboBox13.Items.Add("الثاني")
            ComboBox13.Items.Add("الثالث")
            ComboBox13.Items.Add("الرابع")
            ComboBox13.Items.Add("الخامس")
            ComboBox13.Items.Add("السادس")
        Else
            ComboBox13.Items.Add("الأول")
            ComboBox13.Items.Add("الثاني")
            ComboBox13.Items.Add("الثالث")
            ComboBox13.Items.Add("الرابع")
            ComboBox13.Items.Add("الخامس")
            ComboBox13.Items.Add("السادس")
            ComboBox13.Items.Add("السابع")
            ComboBox13.Items.Add("الثامن")
        End If