TopIndex 属性示例

下例识别显示在列表框中的顶层条目和在列表框内具有焦点的条目。该示例用 TopIndex 属性识别显示在列表框顶层的条目；用 ListIndex 属性来识别具有焦点的条目。用户可在列表框中选定一个条目。当用户选定条目或用户单击命令按钮时，TopIndex 和 ListIndex 的显示值被更新。

窗体包含：

• 名为 Label1 的标签。
• 名为 TextBox1 的文本框。
• 名为 Label2 的标签。
• 名为 TextBox2 的文本框。
• 名为 CommandButton1 的命令按钮。
• 名为 ListBox1 的列表框。

Sub UserForm_CommandButton1_Click()
    UserForm_ListBox1.TopIndex = UserForm_ListBox1.ListIndex
    UserForm_TextBox1.Text = UserForm_ListBox1.TopIndex
    UserForm_TextBox2.Text = UserForm_ListBox1.ListIndex
End Sub

Sub UserForm_ListBox1_Change()
    UserForm_TextBox1.Text = UserForm_ListBox1.TopIndex
    UserForm_TextBox2.Text = UserForm_ListBox1.ListIndex
End Sub

Sub UserForm_Initialize()
    Dim i

    For i = 0 To 24
        UserForm_ListBox1.AddItem "Choice " & (i + 1)
    Next
    UserForm_ListBox1.Height = 66
    UserForm_CommandButton1.Caption = "Move to top of list"
    UserForm_CommandButton1.AutoSize = True
   	UserForm_CommandButton1.TakeFocusOnClick = False
        
    UserForm_Label1.Caption = "Index of top item"
    UserForm_TextBox1.Text = UserForm_ListBox1.TopIndex

    UserForm_Label2. Caption = "Index of current item"
    UserForm_Label2.AutoSize = True
    UserForm_Label2.WordWrap = False
    UserForm_TextBox2.Text = UserForm_ListBox1.ListIndex
End Sub