vb列表框内容添加和删除

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

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

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

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

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

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

Excel中的VB语言叫做VBA，在VBE中使用代码新建即可。

Excel版本参考：2010

演示：新建一个表名为test的工作表。

1、ALT+F11，进入VBE窗口。

2、右击工作表标签-插入-模块。

3、输入代码：

Sub test()

Worksheets.Add(after:=Sheets(Sheets.Count)).Name = "test"

End Sub

4、按下F5执行，查看工作表，新建的test表 已新建好。

'以下代码可以向当前数据库添加数据表

'(测试OK,添加"Table1"数据表，包含4个字段)：

Set

NewTable

=

CurrentDb.CreateTableDef("Table1")

With

NewTable

.Fields.Append

.CreateField("字段1",

dbText)

.Fields.Append

.CreateField("字段2",

dbText)

.Fields.Append

.CreateField("字段3",

dbText)

.Fields.Append

.CreateField("字段4",

dbText)

End

With

CurrentDb.TableDefs.Append

NewTable

---