مشكلة في Combo Box عند تغيير Text لا يتغير ال Index

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي

Private Sub ComboBox1_TextChanged(sender As Object, e As System.EventArgs) Handles ComboBox1.TextChanged
    	If ComboBox1.SelectedIndex = -1 Then
        	Me.Text = "There 's no item seleced!!"
    	Else
        	Me.Text = "The item index is " & ComboBox1.SelectedIndex
    	End If
	End Sub

VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي

Private Sub ComboBox1_TextChanged(sender As Object, e As System.EventArgs) Handles ComboBox1.TextChanged
    	If ComboBox1.SelectedIndex = -1 Then
        	Me.Text = "There 's no item seleced!!"
    	Else
        	Me.Text = "The item index is " & ComboBox1.SelectedIndex
    	End If
	End Sub

أشكرك كثيراً أخي الكريم على ردك .... فقد كان الخطوة الأولى للوصول للحل الأمثل و هو ( تثبيت ال Index بعد اختيار Text

Private Sub CboDegree_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboDegree.TextChanged
        With sender
            If .Text.Equals("") Then
                .SelectedIndex = -1
                Call SearchEmployee()
            End If
        End With
    End Sub

هنا نلاحظ أنه يجب عمل ResetText لتثبيت ال Text بعد اختيار القيمة من القائمة المنسدلة

Private Sub CboDegree_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboDegree.SelectedIndexChanged
        With sender
            If .SelectedIndex > -1 Then
                Call SearchEmployee()
                .ResetText()
            End If
        End With
    End Sub

و الحمد لله مشت معاي