vb列表框内容添加和删除

1、首先，打开VB软件，在窗体上面添加一个列表框，如下图所示。

2、单击列表框，在属性窗口中，设置列表框的属性和内容，如下图所示。

3、在窗体上面，添加两个命令按钮，如下图所示。

4、分别设置，两个命令按钮的属性，名称分别为“复制”，“清除”，如下图所示。

5、双击“清除”命令按钮，编辑其代码，如下图所示。

6、运行程序，验证结果。选中列表框中的“语文”，点击“复制”命令按钮，则在列表框中，复制了“语文”项目；再选择“政治”，点击“清除”命令按钮，则列表框中“政治”项目消失。如下图所示。

按以下步骤实现动态添加命令按钮

（1）新建一个VB6工程

（2）Form1窗体代码

Option Explicit

'定义要动态添加的命令按钮变量（带事件处理）

Dim WithEvents cmdX As CommandButton

'点击动态添加的按钮，d出对话框

Private Sub cmdX_Click()

    MsgBox "动态添加的命令按钮！！！"

End Sub

'鼠标双击窗体，动态添加一个命令按钮

Private Sub Form_DblClick()

    If cmdX Is Nothing Then

        Set cmdX = Controls.Add("VB.CommandButton", "cmd1")

        cmdX.Caption = "点击我呀"

        cmdX.Width = 4500

        cmdX.Move 150, 150

        cmdX.Visible = True

    End If

End Sub

（3）运行

启动后

鼠标双击窗体

点击命令按钮，d出一个对话框

---