Item 方法和选项按钮控件示例

下例用 Item 方法访问 Controls 和 Pages 集合中的单个成员。用户选择 Controls 集合的选项按钮，或者选择多页控件的选项按钮，然后单击命令按钮，则在标签中返回相应的控件名称。

窗体包含：

• 名为 CommandButton1 的命令按钮。
• 名为 Label1 的标签。
• 名为 OptionButton1 和 OptionButton2 的选项按钮。
• 名为 MultiPage1 和多页控件。

Dim MyControl 

Sub UserForm_CommandButton1_Click()
    If UserForm_OptionButton1.Value = True Then
        UserForm_Label1.Caption = UserForm_CommandButton1.Caption
        
    ElseIf UserForm_OptionButton2.Value = True Then
        '处理 Pages 集合的当前页
        Set MyControl = UserForm_MultiPage1.Pages.Item(UserForm_MultiPage1.Value)
        UserForm_Label1.Caption = MyControl.Name
    End If
End Sub

Sub UserForm_Initialize()
    ControlsIndex = 0

    UserForm_OptionButton1.Caption = "Button Name"
    UserForm_OptionButton2.Caption = "Pages Name"
    UserForm_OptionButton1.Value = True
    
    UserForm_CommandButton1.Caption = "Get Member Name"
End Sub