Excel VBA ListBox列表框学习

列表框的常用属性

1)BackColor 属性:设定Listbox的背景色。可采用任意整数来表示某一种有效的颜色,也可采用由红、绿、蓝三种成分构成的RGB 函数来指定颜色,每一种色素的值是0 至255 之间的任意整数。

2)BorderColor 属性:指定Listbox的边框颜色。

3)BorderStyle 属性:指定Listbox边框类型。其值可为fmBorderStyleNone :控件无可见的边框线(默认值)和fmBorderStyleSingle:控件有一单线的边框。BorderStyle 用 BorderColor 来定义其边框的颜色。

4)ColumnCount 属性:指定Listbox的显示列数。

5)ColumnWidths 属性:指定多列的Listbox中的各列的宽度。以磅为单位,设为 0 时则隐藏该列。ColumnWidths接受一个字符串参数,假如Listbox控件有3列,可这样设置:ListBox1.ColumnWidths = "80;90;100"。

6)ColumnHeads 属性:设置是否显示Listbox列标题,布尔值。只有设置RowSource时,才可以显示标题。通过AddItem、List或Column赋值的Listbox无法显示标题。

7)Enabled 属性:指定一个控件能否接受焦点和响应用户产生的事件。

8)Font 对象:定义控件所用文字的特征,包括字体,字号大小,斜体,下划线等。

9)ForeColor 属性:指定控件的前景色,即文字的颜色。

10)Height、Width 属性:设置或返回控件的高度和宽度,以磅为单位。

11)Left、Top 属性:控件与所在容器的左边或顶边之间的距离。

12)ListStyle 属性:规定列表框列表的外观。可选值有两个:fmListStylePlain 和fmListStyleOption。fmListStyleOption显示选项按钮,形状跟MultiSelect属性有关。当Listbox可以多选时,选项按钮为方形□,否则为圆形○。

13)MultiSelect 属性:设置Listbox控件是否允许多项选择。可选值为:

fmMultiSelectSingle  只可选择一个条目(默认)。fmMultiSelectMulti 按空格键或单击鼠标以选定列表中条目或取消选定。fmMultiSelectExtended 按Shift并单击鼠标,或按Shift的同时按一个方向键,将所选条目由前一项扩展到当前项。按Ctrl的同时单击鼠标可选定或取消选定。

14)TextAlign 属性:定义控件中文本的对齐方式。其值可为:fmTextAlignLeft 将所显示文本的第一个字符与控件显示或编辑区的左边界对齐(默认值)。fmTextAlignCenter 在控件的显示或编辑区中,使文本中央对齐。fmTextAlignRight 将所显示文本的最后一个字符与控件显示或编辑区的右边界对齐。

15)TopIndex 属性:设置和返回出现在表格最顶端位置的项目。出现在顶端位置的表项的编号默认值是 0(或表中第一个项目)。如果表是空的或未被显示,返回值为 -1。

16)Visible 属性:定义一个对象是可视的还是被隐藏的。

 

VBA中,ListBox控件被广泛用于提供给用户一个选项列表,用户可以从这个列表中选择一项或多项。要为ListBox内容进行设定,你可以使用以下几种方法: 1. 使用`AddItem`方法:这个方法可以向ListBox中添加一个新的项目。例如,如果你想要添加“选项1”到名为`ListBox1`的控件中,你可以使用`ListBox1.AddItem "选项1"`。 2. 使用`List`属性:这个属性允许你通过数组的方式一次性为ListBox添加多个项。比如,你可以这样使用:`ListBox1.List = Array("选项1", "选项2", "选项3")`。 3. 使用`ListIndex`属性:这个属性允许你设置ListBox中哪一项是被选中的。它的值是从0开始的索引,0代表第一项,1代表第二项,以此类推。如果你想选中第三项,你需要设置`ListBox1.ListIndex = 2`(因为数组索引是从0开始的)。 4. 使用`ListCount`属性:这个属性可以告诉你ListBox中项目的总数。 5. 使用`RemoveItem`方法:如果需要从ListBox中移除一个项目,可以使用这个方法。例如,要移除ListBox1中的第一个项目,可以使用`ListBox1.RemoveItem 0`。 6. 清空ListBox:如果你想清空ListBox中的所有项目,可以将`List`属性设置为空数组,例如`ListBox1.List = Array()`。 下面是一个简单的例子,展示如何在VBA中为ListBox设置内容: ```vba Sub 设置ListBox内容() Dim i As Integer ' 假设ListBox1已经在表单上创建好了 ' 清空ListBox ListBox1.Clear ' 使用List属性添加项目 ListBox1.List = Array("苹果", "香蕉", "橙子", "葡萄") ' 也可以使用循环添加 For i = 0 To 3 ListBox1.AddItem "选项" & i Next i ' 设置选中第三项(索引为2) ListBox1.ListIndex = 2 End Sub ``` 在使用VBA操作ListBox时,请确保你已经将其添加到了表单上,并且已经正确地引用了这个控件。
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值