اینم با وی بی:
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
اینم با وی بی:
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
اینم برنامه ای که نوشتم اصلا کار نمیکنه....
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
ای بابا
از دیروز تا حالا چقدر آدم ریخته تو این گفتگو
انگار پا قدمم خیر بوده و جوابت رو گرفتی
اگه جوابت رو نگرفتی بگو تا منم راهم رو بنویسم![]()
اهان من الان این تایپک آخری تو رو دیدم
خب معلومه چرا کار نمیکنه
تو باید حلقه for رو تا listcount ادامه بدی نه تا listindex
البته یه تغییر دیگه هم میخواد
این هم کد کاملش
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)