Méthodes Copy, GetFromClipboard, GetText, objet DataObject – Exemple

L’exemple suivant illustre le déplacement de données d’un objet TextBox vers le Presse-papiers, du Presse-papiers à un DataObject et d’un DataObject vers un autre Objet TextBox. La méthode GetFromClipboard transfère les données du Presse-papiers vers un DataObject. Les méthodes Copy et GetText sont également utilisées.

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

• deux contrôles TextBox TextBox1 et TextBox2 ;
• CommandButton nommé CommandButton1.

Dim MyData as DataObject 
 
Private Sub CommandButton1_Click() 
 'Need to select text before copying it to Clipboard 
 TextBox1.SelStart = 0 
 TextBox1.SelLength = TextBox1.TextLength 
 TextBox1.Copy 
 
 MyData.GetFromClipboard 
 TextBox2.Text = MyData.GetText(1) 
End Sub 
 
Private Sub UserForm_Initialize() 
 Set MyData = New DataObject 
 TextBox1.Text = "Move this data to the " _ 
 & "Clipboard, to a DataObject, then to " 
 & "TextBox2!" 
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.