全部显示

List 属性

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

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

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

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

示例

本示例可实现的功能为：查看标题为“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