در مورد لیست بــــــــــــــــــــــــ ــــــاکس

[reza_rashte]

سلام دوستان من یه لیست باکس دارم و دو دکمه.
دکمه اول:اضافه کردن نام ها به لیست باکس
دکمه دوم:برای حذف از لیست باکس هست یعنی من یه inputbox گذاشتم نام رو از من بگیره و اگه تو لیست باکس باشه حظ کنه و اگه نباشه مسج بده که نیست.
حالا دکمه اولم کار می کنه دکمه دومم هم زمانی که مسج باکس میزارم کار می کنه و میگه پیدا شد یا نشد.
اما زمانی که بعد شرط که پیدا شد removitem میزنم خطا می ده.
اگه می شه راهنماییم کنید ممنون.

[Akbar"22"]

کد های برنامه رو بفرست ...

[Payman_62]

سلام.
احتمالا از بالا میشماری میای پایین. همیشه این جور مواقع لوپتو از ته لیست بذار به سمت ابتدای لیست.
یعنی Step رو 1- قرار بده.

[reza_rashte]

Private Sub Command4_Click()
Dim f As Boolean

f = False
k = InputBox("enter name")
For i = 1 To 20
If a(i) = k Then
List1.RemoveItem List1




'MsgBox"fond at:" & CStr(i)
f = True
End If
Next i
If f = False Then
MsgBox "not found:", vbCritical
End If

کد برنامه!

[Akbar"22"]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

کدهارو به صورت بالا تصحیح کن .

[reza_rashte]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

کدهارو به صورت بالا تصحیح کن .

من می خ.ام حذف بشه اگه پیدا شد.

[Akbar"22"]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

اینو امتحان کن .