全部显示

ListIndex 属性

返回或设置在命令栏组合框控件的列表框中选定项的索引号。如果没有选中列表中的任何项，那么该属性的返回值为 0。Long 类型，可读写。

注意  此属性只能用于列表框控件。

说明

设置 ListIndex 属性，使指定控件选中给定的项，并在应用程序中执行与该选项对应的操作。

示例

本示例根据命令栏“My Custom Bar”组合框中的选项，用 ListIndex 属性确定需运行的正确的子程序。因为本示例使用 ListIndex 属性，所以组合框中的文本可为任意内容。

Sub processSelection()
Dim userChoice As Long
userChoice = CommandBars("My Custom Bar").Controls(1).ListIndex
    Select Case userChoice
        Case 1
            chartcourse
        Case 2
            displaygraph
        Case Else
            MsgBox ("Invalid choice. Please choose again.")
    End Select
End Sub