如何获得粘贴版的内容？

Question

只处理文件的，比如复制了一个文件c:\123.txt
程序马上获得c:\123.txt的字符串

Answer 1

GetText 方法
 用于返回 Clipboard 对象中的文本字符串。不支持命名参数。语法object.GetText (format)GetText 方法的语法包含下列部分：部分 描述 
object 必需的。一个对象表达式，其值为“应用于”列表中的一个对象。 
format  可选的。一个数值或常数，如“设置值”中所描述的，它指定 Clipboard 对象的格式。必须用括号将常数或数值括起来。 
设置值format 的设置值有： 常数 值 描述 
vbCFLink &HBF00 DDE 对话信息  
vbCFText 1 （缺省值）文本 
vbCFRTF &HBF01 RTF（.rtf 文件） 
说明上述常数在 Visual Basic (VB)对象浏览器中的对象库里列出。如果 Clipboard 对象中没有与期望的格式相匹配的字符串，则返回一个零长度字符串 ("")。

Answer 2

GetText 方法示例 
本示例使用 GetText 方法从 Clipboard 对象中复制一个文字串至一字符串变量。要检验此示例，可将本例代码粘贴到一个带有一名为 Text1 的 TextBox 控件的窗体的声明部分，然后按 F5 键并单击该窗体。Private Sub Form_Click ()
   Dim I, Msg, Temp   ' 声明变量。
   On Error Resume Next   ' 设置错误处理。
   Msg = "Type anything you like into the text box below."
   Text1.Text = InputBox(Msg)  ' 取得用户正文。
   Msg = "Choose OK to copy the contents of the text box "
   Msg = Msg & "to the Clipboard."
   MsgBox Msg   ' 显示信息。
   Clipboard.Clear   ' 清除剪贴板。
   Clipboard.SetText Text1.Text  ' 将正文放置在剪贴板上。
   If Clipboard.GetFormat(vbCFText) Then
      Text1.Text = ""   ' 清除该正文框。
      Msg = "The text is now on the Clipboard. Choose OK "
      Msg = Msg & "to copy the text from the Clipboard back "
      Msg = Msg & "to the text box."
      MsgBox Msg   ' 显示信息。
      Temp = Clipboard.GetText(vbCFText)   ' 取得剪贴板正文。
      For I = Len(Temp) To 1 Step -1   ' 使该正文反向。
         Text1.Text = Text1.Text & Mid(Temp, I, 1)   
      Next I
   Else
      Msg = "There is no text on the Clipboard."
      MsgBox Msg   ' 显示错误信息。
   End If
End Sub

Answer 3

用一个TIMER控件,定期扫描 
Clipboard.GetText 即可.

Answer 4

其实当复制文件时，剪贴板只是保存了一个文件结构，这个文件结构如下：
DropFile＋文件1文件名＋vbNullChar＋文件2文件名＋vbNullChar……＋文件N文件名＋vbNullChar，其中DropFile是一个DROPFILES结构，这个结构在vb中定义如下：Private Type POINTAPI
　　 x As Long
　　 y As Long
End TypePrivate Type DROPFILES
　　 pFiles As Long
　　 pt As POINTAPI
　　 fNC As Long
　　 fWide As Long
End Type具体的你可以参考一下这篇文章：
http://lrgzfl.nease.net/program/vb60/file/18.txt