Question

代码，vb中，从列表框中删除文本框里输入的内容

Private Sub Form_KeyDown(KeyCode As Integer, _
Shift As Integer)
If Chr(KeyCode) = "A" Then
Text1.Text = InputBox("请输入要添加的项目")
List1.AddItem Text1.Text
End If

If Chr(KeyCode) = "D" Then
Text1.Text = InputBox("请输入要删除的项目")
For i = 0 To i
If List1.List(i) = i + 1 Then
List1.RemoveItem Text1.Text

End If
Next i
End If
End Sub添加可以，但删除就行不通了？哪里有错？请指点一下~~~

Answer 1

If Chr(KeyCode) = "D" Then
Text1.Text = InputBox("请输入要删除的项目")
For i = 0 To i
If List1.List(i) = Text1.Text Then
List1.RemoveItem(i)

End If
Next i
End If
试下这个

Answer 2

RemoveItem只能使用list的下标
要改成list.removeitem i

Answer 3

List1.RemoveItem Text1.Text
RemoveItem的参数不是Text值 而是List1中Item的序号