- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 3Adobe Illustrator CS5 序列號大全
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 6PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 7Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 8最新的Adobe Illustrator CS4序列號大全
- 9Intel i7-9700K性能跑分曝光：同代提升約12%
- 10XP系統怎么清除緩存？
- 11qq郵件是否已讀怎么看 QQ郵箱已經發出去的郵件怎么知道對方是否已經查看
- 12Intel Z390主板有望10月8日公布：8核9代酷睿隨后登場
[摘要]Windows 中的Ctrl+C 和Ctrl+V 大家應該很熟悉了， 但是您知道剪帖板里有啥？ 舉個例子， 在 IE4中選一段東東，按Ctrl+C， 然后在FrontPage 中按Ctrl+V， ...
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
4 運行該程序， 可以發現多個帶 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
4 運行該程序。 在IE4 中選任意的東東， 按Ctrl+C， 然后按 Command1， 可以在Text1 中看到如下的內容， 漢字顯示問題與 GetClipboardDataAsString = StrConv(bData, vbUnicode) 有關：
Version:1.0
StartHTML:000000213
EndHTML:000000863
StartFragment:000000758
EndFragment:000000772
StartSelection:000000758
EndSelection:000000772
SourceURL:file://G:\FrontPage Webs\Content\vbtt\download.htm
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
標簽：發現剪帖板的隱秘
推薦資訊 總人氣榜
最新教程 本月人氣
- 1Linux系統smbclient命令的使用方法
- 2Linux系統用logrotate切割Tomcat日志的方法
- 3Linux系統下怎么升級OpenSSH？
- 4Linux系統Vim怎么安裝YouCompleteMe插件
- 5Linux系統下火狐瀏覽器頁面出現亂碼怎么辦？
- 6Linux文件系統的重點介紹
- 7Linux系統怎么查看MariaDB服務端的版本
- 8Linux系統怎么使用bunzip2命令
- 9Linux文件系統故障怎么修好？
- 10Linux系統xlsclients命令的語法與參數介紹
- 11CentOS 6.6系統怎么打開XDMCP服務？
- 12Linux系統中怎么使用命令管理文件
- 1抱抱app免費隨機通話使用圖文說明教程(圖文流程)
- 2獵豹瀏覽器搶票不受12306新版驗證碼影響
- 3hypersnap怎么連續截圖 hypersnap連續截圖設置圖文說明教程
- 4百度docs怎么用 百度docs在線處理工具使用圖文說明教程
- 5360手機助手紅包怎么提現 360手機助手紅包提現設置流程
- 6160wifi遠程桌面怎么連接 160wifi遠程桌面連接設置方法
- 7小皮助手安裝失敗怎么辦 小皮助手安卓模擬器安裝失敗處理方法
- 8微信購物圈怎么用 微信購物圈使用方法介紹
- 9小皮助手下載引擎失敗怎么辦 小皮助手下載引擎失敗處理方案
- 10滴滴送紙怎么用 滴滴送紙app使用步驟圖文詳細說明
- 11歡樂逛自動上下架怎么設置 歡樂逛自動上下架設置圖文說明教程
- 12小米錢包怎么用 小米錢包使用圖文說明教程圖文詳細說明
