Partager via

Ajouter, couper et coller un contrôle sur une page

  • Article

L’exemple suivant utilise la collection Controls Microsoft Forms 2.0 et les méthodes Controls.Add, Controls.Cut et Page.Paste pour ajouter, couper et coller un contrôle sur une page d’un objet MultiPage. Le contrôle utilisé dans les opérations de couper-coller est ajouté dynamiquement au formulaire.

Dans cet exemple, on suppose que l'utilisateur ajoute, coupe puis colle le nouveau contrôle.

Pour utiliser cet exemple, copiez-en le code vers l’éditeur de script d’un formulaire. Pour exécuter le code, vous devez ouvrir le formulaire afin d’activer l’événement Open. Vérifiez que le formulaire contient :

  • Trois contrôles CommandButton nommés CommandButton1 à CommandButton3.

  • un contrôle MultiPage nommé MultiPage1.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.