辽宁戳脚翻子传承史略:如何给列表框或组合框添加单列或者多列项目

来源：百度文库编辑：偶看新闻时间：2024/04/30 03:50:41

网站名称: Excel技巧网 | Excel 2010新领地

主题状态: 本帖已收录 ET技术文库欢迎指正！审核理由 by historydata

historydata

">[理由]

站内采编: 素材源帖由本站会员 pan267 提供

署名作者: 水星钓鱼

本文来自:

引用作品:

适用版本: 2007

语言环境: 简体中文

学习方法: 掌握Excel技巧的关键是动手操作 | 下载 ≠ 知识

本帖最后由水星钓鱼于 2009-12-7 19:48 编辑

Q：如何给列表框或组合框添加单列或者多列项目？
A：由于给列表框和组合框添加项目的方法是一样的。所以接下来都以列表框为例，且假设用户窗体上有一个列表框控件ListBox1。
附件如下
对于单列的列表框，向一个空的列表框添加项目可以使用列表框的AddItem方法。
如下所示：

Private Sub UserForm_Initialize()
With Me.ListBox1
.AddItem = "a"
.AddItem = "b"
.AddItem = "c"
End With
End Sub

复制代码使用Additem方法只能一个元素一个元素的添加，利用它的第二个参数还可以灵活的指定将要添加的元素的位置。
如果想要一次性添加多个元素，可以使用列表框的List属性。
如以下代码也是向列表框添加a,b,c元素：

Private Sub UserForm_Initialize()
With Me.ListBox1
.List = Array("a", "b", "c")
End With
End Sub

复制代码可以把List属性的数据类型看作是Variant类型。当列表框中无项目时，List属性值为Null,一旦列表框中有了项目，它就是一个以行数为第一维，列数为第二维的二维数组。
对于想要设置显示为多列的列表框，首先要设置列表框的ColumnCount属性为想要显示的列数。（如果不设置该属性，将不能显示多列数据)
如果再用AddItem方法给列表框添加项目的话，会出现怎样的情况呢？
如下所示：

Private Sub UserForm_Initialize()
With Me.ListBox1
.ColumnCount = 2
.AddItem "A"
.AddItem "B"
'检查列表框第2列第1行的元素
MsgBox VarType(.List(0, 1)) = vbNull
End With
End Sub

复制代码运行代码可以发现，用AddItem方法给多列的列表框赋值时，只能赋值给第一列，其余列都是Null值。此时可以使用List属性来改变其余列的元素。
如下所示：

Private Sub UserForm_Initialize()
With Me.ListBox1
.ColumnCount = 2
.AddItem "A"
.AddItem "B"
.List(0, 1) = "C"
.List(1, 1) = "D"
End With
End Sub

复制代码当然也可以一次性将一个二维数组赋值给列表框。
如下所示：

Private Sub UserForm_Initialize()
With Me.ListBox1
.ColumnCount = 2
.List = Application.Evaluate("{""A"",""C"";""B"",""D""}")
End With
End Sub

复制代码这里容易犯的错误就是直接用list属性来为列表框的某行某列赋值。
如下所示：

Private Sub UserForm_Initialize()
With Me.ListBox1
.ColumnCount = 2
.List(0, 0) = 1
End With
End Sub

复制代码这是错误的，因为当要指定具体的某个行列数时，前提是要这个行列已经存在。事实上，在给List(0, 0)赋值前，它是不存在的。引用了不存在的元素将导致错误。

vb中如何将数据库一字段下的所有记录添加到组合框的列表内在E语言中如何知道列表框的项目数据求对应的列表项目？谁知道怎样在C++的组合框中添加项目?在线等在EXCEL2000中如何保护单列或单行数据? 如何将选定的多个媒体文件添加到一个列表框控件中呢？如何清空添加或删除程序列表? 如何添加好友列表？添加歌曲到foobar列表时出现“移动项目”选项，请问如何关闭此选项？如何添加项目？c# 怎样给右键添加项目? VB编程中如何向列表框中添加文件目录？求助源代码，谢谢添加或删除程序列表显示缓慢任务管理器里的多列列表框是怎么来的。如何在GooglePages上添加背景音乐或视频或者Flash VC中怎样设置组合框，总打不开那个列表，。如何在打开方式的列表中添加或删除某一程序？如何对QQ在添加删除或程序列表上的名称进行修改如何隐藏控制面版中[添加或删除……]列表中的个别软件魔兽世界中不使用插件，如何添加或删除邮件收件人列表？ QQ空间里的新建模块有MTV视频模块,我想问问如何能够添加多个视频顺序播放,或者有列表的选折性播放??? 如何方便地给电影或者其他视频文件添加字幕？ VB.NET:可以用哪几种方法在列表框中添加选项?列表框中的选项在程序运行期间应如何修改? 添加信息到MFC列表框的问题，网络编程添加信息到MFC列表框的问题，网络编程