Partager via

Événement DblClick, propriété CanPaste, méthodes Paste, Copy – Exemple

  • Article

L’exemple suivant utilise la propriété CanPaste et la méthode Paste pour coller un objet ComboBox du Presse-papiers vers une page d’un objet MultiPage.

Cet exemple utilise également les méthodes SetFocus et Copy pour copier un contrôle du formulaire dans le Presse-papiers.

L'utilisateur clique sur CommandButton1 pour copier le contrôle ComboBox dans le Presse-papiers. L'utilisateur double-clique (en utilisant l'événement DblClick) sur CommandButton1 pour coller le contrôle ComboBox dans le contrôle MultiPage.

Pour utiliser cet exemple, copiez le code de l’exemple dans la partie Déclarations d’un formulaire. Vérifiez que le formulaire contient :

  • TextBox nommé TextBox1.
  • Un contrôle ComboBox nommé ComboBox1.
  • Un contrôle Multipage nommé MultiPage1.
  • CommandButton nommé CommandButton1.

Remarque

Cet exemple inclut aussi une sous-routine pour illustrer le collage du texte dans un contrôle.

Private Sub UserForm_Initialize() 
 ComboBox1.AddItem "It's a beautiful day!" 
 
 CommandButton1.Caption = "Copy ComboBox to " _ 
 & "Clipboard" 
 CommandButton1.AutoSize = True 
End Sub 
 
Private Sub MultiPage1_DblClick(ByVal Index As Long, _ 
 ByVal Cancel As MSForms.ReturnBoolean) 
 If MultiPage1.Pages(MultiPage1.Value).CanPaste = _ 
 True 
 Then 
 MultiPage1.Pages(MultiPage1.Value).Paste 
 Else 
 TextBox1.Text = "Can't Paste" 
 End If 
End Sub 
 
Private Sub CommandButton1_Click() 
 UserForm1.ComboBox1.SetFocus 
 UserForm1.Copy 
End Sub 
 
'Code for pasting text into a control 
'Private Sub ComboBox1_DblClick(ByVal Cancel As _ 
 MSForms.ReturnBoolean) 
' If ComboBox1.CanPaste = True Then 
' ComboBox1.Paste 
' Else 
' TextBox1.Text = "Can't Paste" 
' End If 
'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.