在頁面上新增、剪下和貼上控制項

下列範例使用 Microsoft Forms 2.0 Controls集合，以及Controls.Add、Controls.Cut和Page.Paste方法，在MultiPage的Page上新增、剪下和貼上控制項。 在剪下和貼上動作中涉及的控制項是動態新增到表單中。

本範例假定使用者動作的順序為：新增、剪下、貼上新控制項。

若要使用本範例，請將此範例程式碼複製到表單的指令碼編輯器中。 若要執行該程式碼，您需要開啟該表單以啟動 Open 事件。 請確定表單包含：

• 三個名稱分別為 CommandButton1 到 CommandButton3 的 CommandButton 控制項。

• 一個名為 MultiPage1 的 MultiPage 。

Dim CommandButton1 
Dim CommandButton2 
Dim CommandButton3 
Dim MultiPage1 
Dim MyTextBox 
 
Sub CommandButton1_Click() 
 Set MyTextBox = MultiPage1.Pages(MultiPage1.Value).Controls.Add("Forms.TextBox.1", "MyTextBox", 1) 
 CommandButton2.Enabled = True 
 CommandButton1.Enabled = False 
End Sub 
 
Sub CommandButton2_Click() 
 MultiPage1.Pages(MultiPage1.Value).Controls.Cut 
 CommandButton3.Enabled = True 
 CommandButton2.Enabled = False 
End Sub 
 
Sub CommandButton3_Click() 
 Dim MyPage 
 Set MyPage = MultiPage1.Pages.Item(MultiPage1.Value) 
 
 MyPage.Paste 
 CommandButton3.Enabled = False 
End Sub 
 
Sub Item_Open() 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CommandButton1") 
 Set CommandButton2 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CommandButton2") 
 Set CommandButton3 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CommandButton3") 
 Set MultiPage1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("MultiPage1") 
 
 CommandButton1.Caption = "Add" 
 CommandButton2.Caption = "Cut" 
 CommandButton3.Caption = "Paste" 
 
 CommandButton1.Enabled = True 
 CommandButton2.Enabled = False 
 CommandButton3.Enabled = False 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。