uservb
پنج شنبه 24 تیر 1389, 20:58 عصر
ما یه 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 رو هم به دست بیارم.
ممنون میشم اگه جواب رو به صورت کد بگذارید.
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 رو هم به دست بیارم.
ممنون میشم اگه جواب رو به صورت کد بگذارید.