جستجو در کمبوباکس

[samiasoft]

سلام دوستان

برای اعمال جستجو هنگام نوشتن داخل کمبوباکس دستور زیر رو نوشتم :

ComboBox1.AutoCompleteMode = AutoCompleteMode.Suggest

ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems

حال میخواستم کاربر هنگامی که متنی داخل کمبوباکس مینویسد بررسی کنم که آیا متن نوشته شده در داخل لیست کمبوباکس موجود هست یا نه ، که اگر موجود بود خطای تکراری بودن را نمایش دهد که برای همین کار دستور زیر نوشتم :

Dim i As Integer

        i = ComboBox1.FindString(ComboBox1.Text)

        If i < 0 Then

        Else

            If ComboBox1.Items(i) = ComboBox1.Text Then

                Label1.Text = "تکراری است"

            Else

                Label1.Text = "تکراری نیست"

            End If





        End If

اما مشکلی که هست این هستش که اگر در لیست کمبوباکس مثلا "سس" باشه و من کلمه "سسس" را جستجو کنم بازهم نمایش میدهد که تکراری هست! به نظرتون چرا؟

[hamidrezax1]

دوست عزیز را حل برای برنامه نویسی بیار زیاد هستش من به نوبه خودم به شما این پیشنهاد میدم.قطعا دوستان می تونن پیشنهاد های بهتری به شما ارائه کنند
Me.Label1.Text = Me.ComboBox1.Text


For index = 0 To Me.ComboBox1.Items.Count - 1
If Me.Label1.Text = Me.ComboBox1.Items(index) Then


Exit Sub


End If


Next


MsgBox("یافت نشد")

[pamapz]

جالب بود
واقعا راه حل ساده ای پیشنهاد دادین