日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

發現剪帖板的隱秘

發現剪帖板的隱秘

更新時間:2022-05-14 文章作者:未知 信息來源:網絡 閱讀次數:

     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"> 

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 国产成人综合亚洲欧洲色就色 | 国产午夜免费视频 | 国产精品99久久免费黑人 | 久久综合久久伊人 | 狼人 成人 综合 亚洲 | 2021天天干| 午夜高清啪啪免费观看完整 | 四虎黄色网址 | 国产精品免费看久久久香蕉 | 国产日韩欧美在线视频免费观看 | 青青偷拍视频 | 很很鲁在线视频播放影院 | 国产经典一区二区三区蜜芽 | 色狠狠成人综合网 | 国产啪爱视频精品免视 | 国产剧情一区二区 | 精品在线视频免费观看 | 分享一个无毒不卡的网站 | fc2在线播放 | 福利黄色 | 日韩免费一级 | 国产午夜精品久久久久九九 | 国产日韩欧美亚洲综合首页 | 天天综合色天天综合色sb | 久久这里只有精品国产99 | 欧美亚洲国产精品久久久 | 日韩不卡一区二区 | 亚洲欧美国产日本 | 亚洲成a人片在线观看中 | 欧美一级视频在线观看 | 99久久国内精品成人免费 | 美女网站黄在线看 | 日韩在线播放一区 | 在线视频你懂的国产福利 | 国产精品七七在线播放 | 国产91精品久久久久久 | 人碰人人| 两个人看的www视频中文字幕 | 国产精品久久久久久一区二区 | 国产播放啪视频免费视频 | 国产成人精品综合久久久 |