PDA

نسخه کامل مشاهده نسخه کامل : در مورد لیست بــــــــــــــــــــــــ ــــــاکس



reza_rashte
03-12-2011, 00:11
سلام دوستان من یه لیست باکس دارم و دو دکمه.
دکمه اول:اضافه کردن نام ها به لیست باکس
دکمه دوم:برای حذف از لیست باکس هست یعنی من یه inputbox گذاشتم نام رو از من بگیره و اگه تو لیست باکس باشه حظ کنه و اگه نباشه مسج بده که نیست.
حالا دکمه اولم کار می کنه دکمه دومم هم زمانی که مسج باکس میزارم کار می کنه و میگه پیدا شد یا نشد.
اما زمانی که بعد شرط که پیدا شد removitem میزنم خطا می ده.
اگه می شه راهنماییم کنید ممنون.

Akbar"22"
03-12-2011, 15:21
کد های برنامه رو بفرست ...

Payman_62
04-12-2011, 18:37
سلام.
احتمالا از بالا میشماری میای پایین. همیشه این جور مواقع لوپتو از ته لیست بذار به سمت ابتدای لیست.
یعنی Step رو 1- قرار بده.

reza_rashte
08-12-2011, 16:25
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"
11-12-2011, 20:02
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

reza_rashte
12-12-2011, 20:05
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیدکدهارو به صورت بالا تصحیح کن .
من می خ.ام حذف بشه اگه پیدا شد.:18:

Akbar"22"
12-12-2011, 22:56
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید


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