Question

VB如何点击按钮在Listbox中添加删除项目

如题，最好能给串源代码，谢谢。

Answer 1

Private Sub Command1_Click()
List1.AddItem Text1.Text '添加文本框内容到列表框
End Sub

Private Sub Command2_Click()
If List1.ListIndex >= 0 Then List1.RemoveItem List1.ListIndex '删除当前选择的列表框项目
End Sub

Answer 2

添加:
List1.AddItem "要添加的内容"

删除(适用于单选和多选):
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then List1.RemoveItem i
Next
End Sub

Answer 3

Dim int_lst As Integer

'添加项目
Private Sub Command1_Click()
List1.AddItem Text1
End Sub

'删除项目
Private Sub Command2_Click()
List1.RemoveItem int_lst
End Sub

Private Sub List1_Click()
int_lst = List1.ListIndex
End Sub

Answer 4

List1.AddItem "aaaaa"
List1.RemoveItem List1.ListIndex