将控件添加到 MultiPage 控件

以下示例使用 Microsoft Forms 2.0 Controls 集合的 AddClearRemove 方法在运行时将控件添加到 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。