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

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

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

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

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

کد برنامه!

کد:

---

Dim strs As String
Private Sub Command1_Click()
  stra = InputBox("äÇã ÎæÏ ÑÇ æÇÑÏ ˜äíÏ ¿")
  List1.AddItem stra
 
End Sub

Private Sub Command2_Click()
  strs = InputBox("")
  For i = 0 To List1.ListCount
  If List1.List(i) = strs Then
      MsgBox "222"
  End If
  Next i
End Sub

---

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

نقل قول:

---

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

کد:

---

Dim strs As String
Private Sub Command1_Click()
  stra = InputBox("äÇã ÎæÏ ÑÇ æÇÑÏ ˜äíÏ ¿")
  List1.AddItem stra
 
End Sub

Private Sub Command2_Click()
  strs = InputBox("")
  For i = 0 To List1.ListCount
  If List1.List(i) = strs Then
      MsgBox "222"
  End If
  Next i
End Sub

---

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

---

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

کد:

---

Dim strs As String
Private Sub Command1_Click()
  stra = InputBox("äÇã ÎæÏ ÑÇ æÇÑÏ ˜äíÏ ¿")
  List1.AddItem stra
 
End Sub

Private Sub Command2_Click()
  strs = InputBox("")
  For i = 0 To List1.ListCount
  If List1.List(i) = strs Then
      List1.RemoveItem i
  End If
  Next i
End Sub

---

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