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

[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]

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