全部显示

ListHeaderCount 属性

返回或设置命令栏组合框控件中出现在分隔行之上的列表项的数目。Long 类型，可读写。

注意  对于内置的组合框控件，该属性为只读。

说明

ListHeaderCount 属性值为 - 1 时表示组合框控件中没有分隔行。

示例

本示例可实现的功能为：在命令栏“Custom”中添加一个组合框控件，然后在该组合框列表中添加两个列表项。并且用 ListHeaderCount 属性在组合框的第一项和第二项间显示一分隔行。此外，本示例还设置列表项的行数，组合框的宽度，并将该组合框的默认值设置为空。

Set myBar = CommandBars("Custom")
Set myControl = myBar.Controls.Add(Type:=msoControlComboBox)
With myControl
    .AddItem Text:="First Item", Index:=1
    .AddItem Text:="Second Item", Index:=2
    .DropDownLines = 3
    .DropDownWidth = 75
    .ListHeaderCount = 1
End With