پاک کردن از لیست باکس در صورتی که مقداره تکست باکس در لیست وجود داشته باشه

[ir-security]

سلام
کد چک کردن مقدار تکست باکس با لیست باکس و پاک کردن مقدار از لیست باکس در صورتی که مقدار تکست باکس در لیست وجود داشته باشه چیه؟

[Fery666]

سلام دوست عزیز .

این کد فکر کنم بکارتون بیاد :




Private Sub Command1_Click()
s = List1.ListCount
For j = 0 To List1.ListCount - 1
s = s - 1
If List1.List(s) = Text1.Text Then List1.RemoveItem s
Next j
End Sub

Private Sub Form_Load()
Randomize
For i = 0 To 15
List1.AddItem Int(Rnd * 15)
Next i
End Sub