若要在 64 位系统上使用 ......PtrSafe 属性标记它们

secowu

---------------------------
Microsoft Visual Basic for Applications
---------------------------
编译错误:

若要在 64 位系统上使用，则必须更新此项目中的代码。请检查并更新 Declare 语句，然后用 PtrSafe 属性标记它们
---------------------------
确定   帮助   
---------------------------

secowu

Declare PtrSafe Function GetClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long
'Private Declare Function GetClipboardOwner Lib "user32 " () As Long

Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long
'Private Declare Function OpenClipboard Lib "user32 " (ByVal hwnd As Long) As Long

Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
'Private Declare Function EmptyClipboard Lib "user32 " () As Long

Declare PtrSafe Function CloseClipboard Lib "user32" () As Long
'Private Declare Function CloseClipboard Lib "user32" () As Long


Public Sub ClearClip()
        Call OpenClipboard(GetClipboardOwner)
        Call EmptyClipboard
        Call CloseClipboard
End Sub

mobuli

同求哦，希望有人解答

mobuli

http://msdn.microsoft.com/zh-cn/library/ee691831.aspx

dspyu

secowu 发表于 2010-6-23 15:45
Declare PtrSafe Function GetClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long
'Private Declare ...

是这段话加到哪里吗？
不会啊，真心求解！

風中的雨點

将Declare  改成 Declare PtrSafe   这样总明白了吧。

℡狐狸灬

搞定，感谢分享。！~
另外感谢：E海拾贝。

jial1047

标记一下，学习了，感谢楼主

nbt3710

64位版本的就无法运行32位的VBS

赤云隐龙

風中的雨點 发表于 2013-6-18 16:45
将Declare  改成 Declare PtrSafe   这样总明白了吧。

亲测可行！赞！至于哪里有Declare呢？能确定全改了吗？看见一个改一个吧（它所在的段落已经显示成红色了）