Office VBA教程:ListHeaderCount属性

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

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

说明

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

VBA示例

本示例可实现的功能为:在命令栏“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

上页:Office VBA教程:ListCount属性 下页:Office VBA教程:ListIndex属性

Office VBA教程:ListHeaderCount属性

Office VBA教程:ListIndex属性 Office VBA教程:Location属性
Office VBA教程:LookIn属性 Office VBA教程:Mask属性
Office VBA教程:MatchAllWordForms属性 Office VBA教程:MatchTextExactly属性
Office VBA教程:MenuAnimationStyle属性 Office VBA教程:Mode属性
Office VBA教程:MouseTips属性 Office VBA教程:MoveWhenInTheWay属性
Office VBA教程:Name属性 Office VBA教程:NameLocal属性
Office VBA教程:NewBalloon属性 Office VBA教程:Object属性
Office VBA教程:OLEMenuGroup属性 Office VBA教程:OLEUsage属性
Office VBA教程:On属性 Office VBA教程:OnAction属性
Office VBA教程:Parameter属性 Office VBA教程:Parent属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号