多列组合框和列表框的设置.doc

多列组合框和列表框的设置
多列组合框和列表框添加列表项
如果组合框和列表框是多列的话,除了使用Error! Reference source not ,还需要设置控件的其他属性,如下面的代码所示。
#001 Private Sub UserForm_Initialize()
#002 Dim iRow As Integer
#003 Dim Arr As Variant
#004 iRow = ("A65536").End(xlUp).Row
#005 Arr = ("A1:G" & iRow)
#006 With
#007 .ColumnCount = 7
#008 .ColumnWidths = "45,45,45,45,45,30,45"
#009 .BoundColumn = 1
#010 .Column = (Arr)
#011 End With
#012 End Sub
代码解析:
在窗体初始化时为多列列表框添加列表项。
第4行代码,设置列表框显示的列数。ColumnCount 属性指定列表框或组合框的显示列数,语法如下:
[= Long]
参数object是必需的,一个有效的对象。
参数Long是可选的,指定需显示的列数。
如果将ColumnCount设为-1,将显示所有列。
第8行代码,设置列表框各列的宽度。ColumnWidths 属性指定多列的组合框或列表框中的各列的宽度,语法如下:
[= String]
参数object是必需的,一个有效的对象。
参数String是可选的,以磅为单位设置列的宽度。
如将ColumnWidths 属性设为-1 或空,则将控件宽度等分,给予列表中的各列。设为 0 则隐藏该列,大于 0 的数值则是该列的精确宽度值。若要指定另一种不同的度量单位,设置时必须包括该度量单位。
第9行代码,设置多列列表框中的第一列为数据的来源。BoundColumn 属性标识多列组合框或列表框中的数据的来源,语法如下:
[= Variant]
参数object是必需的,一个有效的对象。
参数Variant是可选的,标识选择 BoundColumn 属性值的方法,设置值如表格 1131所示:
值
说明
0
将 ListIndex 属性的值赋予控件。
1 或者大于 1
将指定列中的值赋予控件。当采用此属性时,列从 1 开始计数(默认值)。
表格 11 Variant 的设置值
当选择了多