pastespec命令

雪山飞狐_lzh · 发表于 2006-3-29 20:22:00

回帖发生错误；我重新发了：）
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

pastespec命令

发表回复

精选推荐