03-06-18, 12:25 AM
(آخر تعديل لهذه المشاركة : 03-06-18, 12:32 AM {2} بواسطة حريف برمجة.)
عند الاختيار من الكومبو بوكس 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
