Table of contents
TOC
Свернуть оглавление
Развернуть оглавление

Пример: методы Paste, PutInClipboard, SetTextPaste, PutInClipboard, SetText Methods Example

office 365 dev account|Последнее обновление: 06.04.2018
|
2 Участники

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

  • Два элемента управления 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
© 2018 Microsoft