将控件添加到 MultiPage 控件
以下示例使用 Microsoft Forms 2.0 Controls 集合的 Add、Clear 和 Remove 方法在运行时将控件添加到 MultiPage的 Page 以及从中删除控件。
若要使用本示例,请将此示例代码复制到窗体的"脚本编辑器"中。 若要运行本代码,需要打开该窗体,以便激活 Open 事件。 确保该窗体包含:
一个名为"MultiPage1"的 MultiPage 。
三个名称分别为"CommandButton1"到"CommandButton3"的 CommandButton 控件。
Dim MyTextBox
Dim MultiPage1
Sub Item_Open()
Set MyPage = Item.GetInspector.ModifiedFormPages("P.2")
Set MultiPage1 = MyPage.MultiPage1
MyPage.CommandButton1.Caption = "Add control"
MyPage.CommandButton2.Caption = "Clear controls"
MyPage.CommandButton3.Caption = "Remove control"
End Sub
Sub CommandButton1_Click()
Set MyTextBox = MultiPage1.Pages(0).Controls.Add("Forms.TextBox.1", "MyTextBox", 1)
End Sub
Sub CommandButton2_Click()
MultiPage1.Pages(0).Controls.Clear
End Sub
Sub CommandButton3_Click()
If MultiPage1.Pages(0).Controls.Count > 0 Then
MultiPage1.Pages(0).Controls.Remove "MyTextBox"
End If
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。