Page 对象、多页控件、Add、Clear、Remove 方法示例

下例在运行时间使用 Add、Clear 和 Remove 方法，在多页控件的页中添加和删除控件。

窗体包含：

• 名为 MultiPage1 的多页控件。
• 名为 CommandButton1 到 CommandButton3 的三个命令按钮控件。

注:此示例在金字塔中是无效

Dim MyTextBox

Sub UserForm_CommandButton1_Click()
Set MyTextBox = UserForm_MultiPage1.Pages(0).Controls.Add("Forms.TextBox.1", "MyTextBox", Visible)
End Sub

Sub UserForm_CommandButton2_Click()
    UserForm_MultiPage1.Pages(0).Controls.Clear
End Sub

Sub UserForm_CommandButton3_Click()
    If UserForm_MultiPage1.Pages(0).Controls.Count > 0  Then
        UserForm_MultiPage1.Pages(0).Controls.Remove "MyTextBox"
    End If
End Sub

Sub UserForm_Initialize()
    UserForm_CommandButton1.Caption = "Add control"
    UserForm_CommandButton2.Caption = "Clear controls"
    UserForm_CommandButton3.Caption = "Remove control"
End Sub