Office VBA教程:ListCount属性

返回指定命令栏组合框控件中列表项的数目。Long 类型,只读。

VBA示例

本示例可实现的功能为:查看命令栏“Custom”上某组合框控件中的项数。如果过程所产生的列表中包含的项数小于三,则显示一条消息提示用户组合框可能已损坏并要求重新安装应用程序。


Set myBar = CommandBars _
    .Add(Name:="Custom", Position:=msoBarTop, _
    Temporary:=True)
With myBar
    .Controls.Add Type:=msoControlComboBox, ID:=1
    .Visible = True
End With
With CommandBars("Custom").Controls(1)
    .AddItem "Get Stock Quote", 1
    .AddItem "View Chart", 2
    .AddItem "View Fundamentals", 3
    .Caption = "Stock Data"
    .DescriptionText = "View Data For Stock"
End With
If CommandBars("Custom").Controls(1).ListCount _
     <> 4 Then
MsgBox ("ComboBox appears to be damaged." & _
     " Please reinstall.")
End If

上页:Office VBA教程:List属性 下页:Office VBA教程:ListHeaderCount属性

Office VBA教程:ListCount属性

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属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号