发现剪帖板的秘密

概述 
　　Windows 中的Ctrl+C 和Ctrl+V 大家应该很熟悉了，但是您知道剪帖板里有啥？
　　举个例子，在IE4中选一段东东，按Ctrl+C，然后在FrontPage 中按Ctrl+V，您选的东东完整地拷贝到了FrontPage 中，字体，颜色等等。明显，剪帖板中一定包含了Html信息，而如果我们在编程也要得到这些信息，该怎么办呢？ 
　　本文提供了两种技巧，一是如何得到关于剪贴格式的名称，一是如何用文本格式显示剪贴版中特定剪贴格式内容。 
　　在我们的第一个演示中，利用一个很笨的方法来得到Html剪贴格式的名称。 　　　　　　 　　　　　　 　　GetClipboardFormatName可以由剪贴板的ID得到该格式的名称，于是用一个循环来查找所有包含Html文字的格式。 
　　在第二个例子中，我们使用了在例子一中得到的名称，把在IE4中剪贴的Html内容合并到一个TextBox 中， 好让我们知道里面有什么样的信息。 

实现步骤 

例子一 得到剪贴格式的名称 
1 新建一个工程。 
2 在工程中增加一个命令按钮(Command1)。 
3 增加下面的代码： 

Private Declare Function GetClipboardFormatName Lib "user32" Alias "GetClipboardFormatNameA" (ByVal wFormat As Long, ByVal lpString As String, ByVal nMaxCount As Long) As Long 

Private Sub Command1_Click() 
　　Dim FormatID As Long 
　　Dim BufferLen As Long 
　　Dim Buffer As String * 80 
　　　For FormatID = 50000 To 60000 ’一般有效的 ID 在该区内 
　　　BufferLen = GetClipboardFormatName(FormatID, Buffer, 80) 
　　　If BufferLen > 0 Then 
　　　If InStr(UCase(Left(Buffer, BufferLen)), "HTML") > 0 Then 
　　　　 MsgBox FormatID & ":" & Buffer 
　　　End If 
　　　Next 
End Sub 


　　 运行该程序， 可以发现多个带 Html 的格式名称， 经过测试，HTML Format是我们要找的。 注意： 没有 IE4 的话， 可以使用 RTF 进行查询， 以查看 RichText 的剪贴内容。 

例子二 得到 IE4 的剪贴内容 
1 新建一个工程。 
2 在工程中增加一个命令按钮(Command1)， 一个TextBox(Text1)， 允许多行显示。 
3 增加下面的代码： 

Private Declare Function OpenClipboard Lib "USER32" (ByVal hWnd As Long) As Long 
Private Declare Function CloseClipboard Lib "USER32" () As Long 
Private Declare Function GetClipboardData Lib "USER32" (ByVal wFormat As Long) As Long 
Private Declare Function IsClipboardFormatAvailable Lib "USER32" (ByVal wFormat As Long) As Long 
Private Declare Function RegisterClipboardFormat Lib "USER32" Alias "RegisterClipboardFormatA" (ByVal lpString As String) As Long 
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long 
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long 
Private Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) As Long 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long) 

Public Function GetClipboardIDForCustomFormat(ByVal sName As String) As Long 
　　Dim wFormat As Long 
　　wFormat = RegisterClipboardFormat(sName & Chr$(0)) 
　　If (wFormat > &HC000&) Then 
　　　GetClipboardIDForCustomFormat = wFormat 
　　End If 
End Function 

Public Function GetClipboardDataAsString(ByVal hWndOwner As Long, ByVal lFormatID As Long) As String 
　Dim bData() As Byte 
　Dim hMem As Long 
　Dim lSize As Long 
　Dim lPtr As Long 

　If (OpenClipboard(hWndOwner)) Then 
　　If (IsClipboardFormatAvailable(lFormatID) <> 0) Then 
　　　hMem = GetClipboardData(lFormatID) 
　　　　If (hMem <> 0) Then 
　　　　　lSize = GlobalSize(hMem) 
　　　　　　If (lSize > 0) Then 
　　　　　　　　lPtr = GlobalLock(hMem) 
　　　　　　　　　　If (lPtr <> 0) Then 
　　　　　　　　　　　ReDim bData(0 To lSize - 1) As Byte 
　　　　　　　　　　　CopyMemory bData(0), ByVal lPtr, lSize 
　　　　　　　　　　　GlobalUnlock hMem 

　　　　　　　　　　　GetClipboardDataAsString = StrConv(bData, vbUnicode) 
　　　　　　　　　　End If 
　　　　　　End If 
　　　　End If 
　　End If 
　　CloseClipboard 
　End If 

End Function 


Private Sub Command1_Click() 
Dim lID As Long 
Dim sText As String 

’ 如果没有 IE4，可以使用 "RTF Format" 
　lID = GetClipboardIDForCustomFormat("HTML Format") 
　If (lID <> 0) Then 
　　sText = GetClipboardDataAsString(Me.hWnd, lID) 
　　Text1.Text = sText 
　End If 

End Sub 

　　运行该程序。在IE4 中选任意的东东，按Ctrl+C，然后按 Command1，可以在Text1 中看到如下的内容， 汉字显示问题与GetClipboardDataAsString = StrConv(bData, vbUnicode)有关