پیدا کردن آیتم در لیست باکس

[maxvel]

سلام راستش 1 سوال دارم که بدجوری گیجم کرده

اینکه چطوری یک آیتم رو تو آیتمهای لیست باکس پیدا کنیم

مثلا در آیتم ها یه آیتم وجود داره به اسم maxvel

میخوام با زدن یک دکمه این آیتم رو پیدا کنه و بگه ک چندمین آیتم لیست باکسه

ممنون از کمکا پیشا پیش

[tolid123456789]

سلام دوست عزيز
ابتدا اشياء زير رو به فرم اضافه كنيد
ListBox1
TextBox1
TextBox2
Button1
سپس در ليست باكستون آيتم هاي دلخواه رو اضافه كنيد
مثلا حروف انگليسي از A تا F
بعد كد زير رو براي دكمه خودتون بنويسيد:
Dim count_Row_listbox As Integer = ListBox1.Items.Count - 1
Dim text_of_listbox As String
Dim i As Integer
For i = 0 To count_Row_listbox
text_of_listbox = ListBox1.Items.Item(i)
If TextBox1.Text = text_of_listbox Then
ListBox1.SelectedIndex = i
TextBox2.Text = ListBox1.SelectedIndex
Exit For
End If
Next
حالا مثلا وقتي D رو در تكست باكس 1 تايپ كنيد و روي دكمه كليك كنيد هم در ليست باكس اون رو انتخاب ميكنه و هم در تكست باكس 2 شماره ايندكس رو برميگردونه

موفق باشيد
اگر سئوالي بود در خدمتيم

[Hossis]

این کد رو هم در یک تاپیک دیگه دیدم, ساده و مفید بود
Dim i As Integer = ListBox1.FindString(TextBox1.Text )
ListBox1.SelectedIndex = i
If TextBox1.Text = "" Then
ListBox1.SelectedIndex = -1
End If