جستجو در ArrayList ؟

[uservb]

ما یه ArrayList داریم که اطلاعاتی توش هست . با کد زیر میشه توش سرچ کرد . مثلا
Public Code, sName As New ArrayList
این کد رو توی فرم لود کپی کنید

Code.Add("فروردین")
Code.Add("فروردین")
Code.Add("اردیبهشت")
Code.Add("اردیبهشت")
Code.Add("خرداد")
sName .Add("1")
sName .Add("2")
sName .Add("3")
sName .Add("4")
sName .Add("5")

یک تکت باکس و لیست باکس و دکمه به فرم اضافه کنید .و کد زیر رو توی دکمه بنویسید:
نام تکست باکس : SchText

If SchText.Text = "" Then Exit Sub
SchText.Text = LCase(SchText.Text)
For Each i As String In Code
i = LCase(i)
If i.Contains(SchText.Text) Then SearchF.ListBox1.Items.Add(i)
Next

وقتی روی دکمه کلیک کنید از توی کد سرچ میکنه و مقداری رو که توش کلمه ای رو که توی تکست باکس نوشتیم رو توی
لیست باکس اضافه میکنه .
اما من میخوام که وقتی کلمه خرداد رو نوشتیم علاوه بر مقدار خرداد مقدار 5 رو که در درون Sname هست رو نشون بده. درواقع
میخوام که اگه جواب در سطر سوم از Code بود مقدار سطر سوم از Sname رو هم به دست بیارم.
ممنون میشم اگه جواب رو به صورت کد بگذارید.

[b.mahsa]

نمی دونم منظورتون رو درست متوجه شدم یا نه این کد رو تو رویداد Button1_Click بنویس




If SchText.Text = "" Then Exit Sub
SchText.Text = LCase(SchText.Text)
For i = 0 To Code.Count - 1
If Code.Item(i) = SchText.Text Then
ListBox1.Items.Add(Code.Item(i))
Label1.Text = sName(i.ToString)
End If
Next



یک lable هم به فرم اضافه کن.
اگر درست متوجه نشدم. بیشتر توضیح بده.

[Hossis]

جواب اخير درسته، شما بايد به جاي For each از حلقه For n=x to y استفاده کنيد تا شماره عضو جاري رو بدست بياريد.

[uservb]

خیلی ممنون از پاسختون . ولی این کدی رو که شما گذاشتید در صورتی جواب رو میده که حتما عین کلمه رو سرچ کنیم.
در حالی که کدی رو که من براتون نوشتم فقط کافی یکی از حرف ها رو بنویسید اونوقت از بین اونایی که این حرف رو دارن همه رو لیست میکنه.
ممنون میشم اگه یه چنین کدی رو بذارید.

[Hossis]

خط چهارم رو اين جوري تغيير بديد

If Code.Item(i).contains( SchText.Text) Then