GetFormat、GetText、SetText 方法示例

以下示例使用 GetFormat、 GetText 和 SetText 方法在 DataObject 和剪贴板之间传输文本。

用户将文本键入 到 TextBox 中 ，然后可以通过单击 CommandButton1 以标准文本格式将其传输到 DataObject 。

单击 CommandButton2 将检索 DataObject 中的文本。

单击 CommandButton3 会以自定义格式将 TextBox1 中的文本复制到 DataObject 。

单击 CommandButton4 会以自定义格式检索 DataObject 中的文本。

若要使用此示例，请将此示例代码复制到窗体的声明部分。 确保该窗体包含：

• 一个名为"TextBox1"的 TextBox 。
• 名为 CommandButton1 到 CommandButton4 的四个 CommandButton 控件。
• 一个名为"Label1"的 Label 。

Dim MyDataObject As DataObject 
 
Private Sub CommandButton1_Click() 
'Put standard format on Clipboard 
 If TextBox1.TextLength > 0 Then 
 Set MyDataObject = New DataObject 
 MyDataObject.SetText TextBox1.Text 
 Label1.Caption = "Put on D.O." 
 CommandButton2.Enabled = True 
 CommandButton4.Enabled = False 
 End If 
End Sub 
 
Private Sub CommandButton2_Click() 
'Get standard format from Clipboard 
 If MyDataObject.GetFormat(1) = True Then 
 Label1.Caption = "Std format - " _ 
 & MyDataObject.GetText(1) 
 End If 
End Sub 
 
Private Sub CommandButton3_Click() 
'Put custom format on Clipboard 
 If TextBox1.TextLength > 0 Then 
 Set MyDataObject = New DataObject 
 MyDataObject.SetText TextBox1.Text, 233 
 Label1.Caption = "Custom on D.O." 
 CommandButton4.Enabled = True 
 CommandButton2.Enabled = False 
 End If 
End Sub 
 
Private Sub CommandButton4_Click() 
'Get custom format from Clipboard 
 If MyDataObject.GetFormat(233) = True Then 
 Label1.Caption = "Cust format - " _ 
 & MyDataObject.GetText(233) 
End If 
End Sub 
 
Private Sub UserForm_Initialize() 
 CommandButton2.Enabled = False 
 CommandButton4.Enabled = False 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。