Поделиться через

Пример использования методов Copy, GetFromClipboard и GetText и объекта DataObject

  • Статья

В следующем примере показано перемещение данных из TextBox в буфер обмена, из буфера обмена в DataObject и из DataObject в другой Элемент TextBox. Метод GetFromClipboard передает данные из буфера обмена в DataObject. Также используются методы Copy и GetText .

Чтобы воспользоваться этим примером, скопируйте данный пример кода в раздел описаний формы. Убедитесь, что эта форма содержит:

  • Два элемента управления TextBox с именами TextBox1 и TextBox2.
  • Объект CommandButton с именем 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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.