Expand Minimize
3 out of 5 rated this helpful - Rate this topic

Paste, PutInClipboard, SetText Methods Example

The following example demonstrates data movement from a TextBox to a DataObject, from a DataObject to the Clipboard, and from the Clipboard to another TextBox. The PutInClipboard method transfers the data from a DataObject to the Clipboard. The SetText and Paste methods are also used.

To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains:

  • Two TextBox controls named TextBox1 and TextBox2.

  • A CommandButton named CommandButton1.

Dim MyData As DataObject 
Private Sub CommandButton1_Click() 
 Set MyData = New DataObject 
 MyData.SetText TextBox1.Text 
End Sub 
Private Sub UserForm_Initialize() 
 TextBox1.Text = "Move this data to a " _ 
 & "DataObject, to the Clipboard, then to " _ 
 & "TextBox2!" 
End Sub

Community Additions

© 2014 Microsoft. All rights reserved.