Question

vb中如何把在text1中输入的数据，从列表框list1中删除。

也就是说在text1中输入要删除的内容， 列表框list1中有并删除。。我网上查了各种方法都不行。。谁帮忙下啊。

Answer 1

Private Sub Command1_Click()
Dim i As Integer
If Text1.Text <> "" Then
   For i = 0 To List1.ListCount - 1
       If List1.List(i) = Text1.Text Then
       List1.RemoveItem (i)
       Exit For
       End If
  Next i
End If
End Sub

Answer 2

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

Answer 3

sub command1_click()
dim i as integer
for i = 0 to list1.listcount-1
if list1.list(i)=text1.text then
list1.removeitem(i)
end if
next
end sub

Answer 4

其实不需要循环这么麻烦的
list1.text=text1.text

List1.RemoveItem List1.ListIndex '删除list选中的一项

Answer 5

任务，任务，任务