Пример использования методов Paste, PutInClipboard и SetTextPaste, PutInClipboard, SetText methods example

В следующем примере показано перемещение данных из текстового поля в DataObject, из объекта DataObject в буфер обмена и из буфера обмена в другой элемент TextBox.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.

Метод PutInClipboard передает данные из объекта DataObject в буфер обмена.The PutInClipboard method transfers the data from a DataObject to the Clipboard. Также используются методы SetText и вставки .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:

  • Два элемента управления TextBox с именами TextBox1 и TextBox2.Two TextBox controls named TextBox1 and TextBox2.
  • Элемент управления CommandButton с именем CommandButton1.A CommandButton named CommandButton1.
Dim MyData As DataObject 
 
Private Sub CommandButton1_Click() 
 Set MyData = New DataObject 
 
 MyData.SetText TextBox1.Text 
 MyData.PutInClipboard 
 
 TextBox2.Paste 
End Sub 
 
Private Sub UserForm_Initialize() 
 TextBox1.Text = "Move this data to a " _ 
 & "DataObject, to the Clipboard, then to " _ 
 & "TextBox2!" 
End Sub