- 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小米钱包怎么用 小米钱包使用图文说明教程图文详细说明
