在vb中，列表框可以使用additem和removeitem方法可以在程序运行时添加或者删除列表框中

1、首先打开VB，绘制好相应的控件，两个命令按钮，一个列表框，一个文本框。

2、接下来大概更改一下各个控件的属性。

3、然后编写命令按钮从键盘输入文本框，并能能够添加项目代码。

4、接下来就能够编写删除代码，记得要遍历查询。

5、运行后便可以看到这样的程序，就完成了。

VB6.0中可使用AddItem 方法将项目添加到 ListBox 或 ComboBox 控件中。也可使用

RemoveItem 方法从 ListBox 或 ComboBox 控件中删除项目。

AddItem 方法：用于将项目添加到 ListBox 或 ComboBox 控件，或者将行添加到 MS Flex Grid
控件。不支持命名参数。

RemoveItem 方法：用以从 ListBox 或 ComboBox 控件中删除一项，或从 MS Flex Grid
控件中删除一行。不支持命名参数。

代码示例：

先使用 Addltem 方法增加 100 项给一个列表框。然后使用RemoveItem 方法按要求删除偶数项目。

Private Sub Form_Click()
    Dim Entry, I, Msg   ' 声明变量。
    Msg = "点确定增加100个项目到列表框。"
    MsgBox Msg   ' 显示信息。
    For I = 1 To 100   ' 计数值从 1 到 100。
        Entry = "Entry " & I   ' 创建输入项。
        List1.AddItem Entry   ' 添加该输入项。
    Next I
    Msg = "点确定移除项目所有其它项目"
    MsgBox Msg   ' 显示信息。
    For I = 1 To 50   ' 确定如何
        List1.RemoveItem I   ' 每隔一项
    Next I   ' 删除。
End Sub

 莫名被投诉：违反了知道协议，现已被系统收回，无法继续高质流程。

’楼主把以下操作搞懂，列表对你就不是事了

Private Sub Form_Click()
List1.AddItem "no1" '增加
List1.AddItem "no2"
List1.AddItem "no3"
List1.RemoveItem 0 '删除首项
List1.RemoveItem List1.ListCount - 1 '删除末项
Print List1.Text '访问已选项
Print List1.List(List1.ListIndex) '同上
For i = 0 To List1.ListCount - 1 '遍历
If List1.List(i) = "no2" Then MsgBox "第" & i + 1 & "项": Exit For
Next i

If List1.ListIndex <> -1 Then List1.RemoveItem List1.ListIndex '删除已选项
If List1.ListCount <> 0 Then List1.Clear '清空

End Sub

索引是从0开始

增加三项
List1.AddItem "A"
List1.AddItem "B"
List1.AddItem "C"

删除第一项
List1.RemoveItem (0)

是啊是啊是啊