سرچ در combobox

اینم با وی بی:

کد:

---

http://atmtn.persiangig.com/Program/search%20%28VB%29.rar

---

نقل قول:

---

نوشته شده توسط homa m [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اجزا فرم ....یه تکست باکس ...یه کامبو.....و دو تا دکمه سرچ و add ....با یه listbox

چند تا اسمو از طریق تکست به لیست کامبو اضافه میکنیم و بعد اسمی رو در تکست میزنیم که در کامبو سرچ بشه اگه اسم تو لیست

کامبو موجود بود اونرو توی اون نشون بده.... مرحله بعدیش هم اگه اسم توی لیست کامبو باشد توی listbox نشونش بده اگرم نباشد

اونو به انتهای لیست اضافه کنه البته تو این مرحله با دکمه سرچ اضافه بشه نه با دکمه add

---

اینم برنامه ای که نوشتم اصلا کار نمیکنه....

Private Sub search_Click()
r = 0
For i = 0 To Combo1.ListIndex
If Text1.Text = Combo1.Text Then
Combo1.Text = Text1.Text
List1.AddItem (Combo1.Text)
Else
Combo1.AddItem (Text1.Text)
End If
Next
End Sub

ای بابا
از دیروز تا حالا چقدر آدم ریخته تو این گفتگو:18:
انگار پا قدمم خیر بوده و جوابت رو گرفتی:31:
اگه جوابت رو نگرفتی بگو تا منم راهم رو بنویسم:5:

اهان من الان این تایپک آخری تو رو دیدم:27:
خب معلومه چرا کار نمیکنه
تو باید حلقه for رو تا listcount ادامه بدی نه تا listindex

البته یه تغییر دیگه هم میخواد
این هم کد کاملش:5:

[PHP]Private Sub search_Click()
r = 0
For i = 0 To Combo1.ListCount-1
If Text1.Text = Combo1.list(i) Then
Combo1.Text = Text1.Text
List1.AddItem (Combo1.Text)
Else
Combo1.AddItem (Text1.Text)
End If
Next
End Sub[/PHP]