pastespec命令

雪山飞狐_lzh

回帖发生错误；我重新发了：）

GetFormat、GetText 和 SetText 方法示例

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

用户把文本键入文本框然后单击 CommandButton1，把文本以标准文本格式传输到 DataObject。单击 CommandButton2，在 DataObject 中检索文本。单击 CommandButton3，用自定义格式把文本从 TextBox1 复制到 DataObject。单击 CommandButton4，用自定义格式在 DataObject 中检索文本。

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

名为 TextBox1 的文本框。

名为 CommandButton1 到 CommandButton4 的四个命令按钮控件。

名为 Label1 的标签。
Dim MyDataObject As DataObject

Private Sub CommandButton1_Click()
'把标准格式放到剪贴板上
    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()
'从剪切板得到标准格式
    If MyDataObject.GetFormat(1) = True Then
        Label1.Caption = "Std format - "_
            & MyDataObject.GetText(1)
    End If
End Sub

Private Sub CommandButton3_Click()
'把自定义格式放到剪切板上
    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()
'从剪切板得到自定义格式
    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