作者forkome (丁丁是个人材)
看板Visual_Basic
标题[VB6 ] Clipboard.GetFormat语法询问
时间Wed Oct 31 11:35:52 2007
程式码如下
Public Function ClipboardEmpty() As Boolean
Dim dataType As Integer
dataType = Clipboard.GetFormat(3) '中继档
If dataType = -1 Then
ClipboardEmpty = False
Else
ClipboardEmpty = True
End If
End Function
repeat1:
If ClipboardEmpty Then
WordApp.Selection.WholeStory
WordApp.Selection.Copy
sClipText = Clipboard.GetText(vbCFRTF)
Clipboard.Clear
RaisErr = False
Else
Set_Timeout (1)
Clipboard.Clear
GoTo repeat1
RaisErr = True
End If
RaisErr输出结果总是True，小弟不懂VB中的Clipboard.GetFormat(3)是什麽意思
猜想是不是有什麽缓冲区要释放掉，因为起初RaisErr还是True，後来就变False了
网路找不到GetFormat的函式说明，希望VB高手能帮忙一下，谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.120.246.178
※ 编辑: forkome 来自: 59.120.246.178 (10/31 11:47)
1F：→ JacobTai:Clipboard 可以放不同的东西 文字 影像 档案 10/31 12:17
2F：→ JacobTai:所以需要先看他的格式...再决定能不能用... 10/31 12:18
3F：推 fumizuki:MSDN 中有说明啊... 10/31 12:53
4F：推 fumizuki:vbCFMetafile = 3 10/31 12:53
5F：推 fumizuki:GetFormat(format) 检查剪贴簿中的内容是否为指定的格式 10/31 12:53
6F：→ fumizuki:回传值：True、False 10/31 12:54
7F：→ fumizuki:VB6的True = -1，False = 0 10/31 12:54
8F：推 forkome:是说剪贴簿中的格式是不是vbCFMetafile吗？ 10/31 22:16
9F：→ forkome:中继档是使用wmf档吗？ 10/31 22:17
10F：推 forkome:若检查不是中继档格式，我要怎麽设定成中继档呢？ 10/31 22:26
※ 编辑: forkome 来自: 218.169.242.12 (10/31 22:31)