Office VBA教程:List属性

返回或设置命令栏的组合框控件中某项的值。String 类型,可读写。

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

expression.List(Index)

expression   必需。该表达式返回一个 CommandBarComboBox对象。

Index   Long 类型,必需。要设置的项。

VBA示例

本示例可实现的功能为:查看标题为“Stock Data”的组合框控件(该控件位于命令栏“Custom”上)中第四个列表项的值。如果该项不是“View News”,则显示一条消息提示用户组合框可能已损坏并要求重新安装应用程序。


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
    .AddItem "View News", 4
    .Caption = "Stock Data"
    .DescriptionText = "View Data For Stock"
End With
If CommandBars("Custom").Controls(1).List(4) _
     <> "View News" Then
MsgBox ("Stock Data appears to be damaged." & _
     " Please reinstall application.")
End If

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

Office VBA教程:List属性

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