Copy、GetFromClipboard 和 GetText 方法、DataObject 对象示例

以下示例演示数据从 TextBox 移动到剪贴板、从剪贴板移动到 DataObject,以及从 DataObject 移动到另一个 TextBoxGetFromClipboard 方法将数据从剪贴板传输到 DataObject。 还使用 CopyGetText 方法。

若要使用此示例,请将此示例代码复制到窗体的 Declarations 部分。 确保该窗体包含:

  • 两个名称分别为"TextBox1"和"TextBox2"的 TextBox 控件。
  • 一个名为"CommandButton1"的 CommandButton
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 支持和反馈,获取有关如何接收支持和提供反馈的指南。