若要在64位系统上使用,则必须更新此项目中的代码。请检查并更新Declare语句,然后用...

wally926

WIN10  OFFICE 2013  API 出现错误提示
编译错误:
若要在64位系统上使用,则必须更新此项目中的代码。请检查并更新Declare语句,然后用Ptrsafe属性标记它们
请求修改代码：


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2 '表示把窗体设置为半透明样式
Private Const LWA_COLORKEY = &H1 '表示不显示窗体中的透明色
Dim hWndForm As Long
Dim hWndXls As Long
Dim iStyle As Long

y1983y

改为以下格式
#If VBA7 And Win64 Then
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongLong
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongLong, ByVal nIndex As LongLong) As LongLong
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongLong, ByVal nIndex As LongLong, ByVal dwNewLong As LongLong) As LongLong
Private Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hWnd As LongLong, ByVal crKey As LongLong, ByVal bAlpha As Byte, ByVal dwFlags As LongLong) As LongLong
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2 '表示把窗体设置为半透明样式
Private Const LWA_COLORKEY = &H1 '表示不显示窗体中的透明色
Dim hWndForm As Long
Dim hWndXls As Long
Dim iStyle As Long
#Else
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2 '表示把窗体设置为半透明样式
Private Const LWA_COLORKEY = &H1 '表示不显示窗体中的透明色
Dim hWndForm As Long
Dim hWndXls As Long
Dim iStyle As Long
#End If

pfcszp

我都没看出区别来，就是加了个判断还有类型格式么

everbest2015

y1983y 发表于 2021-1-15 17:08
改为以下格式
#If VBA7 And Win64 Then
Private Declare Function FindWindow Lib "user32" Alias "FindW ...

有32和64位API互转工具吗？可以也可以搜索的那种

jaxxcyh

你原来写的声明，只能在32位系统上使用。如果要在64位系统上使用，就要在每个 Declare 单词的后面添加一个单词 PtrSafe 。这样电脑就懂了。

1076571536

jaxxcyh 发表于 2024-8-10 13:34
你原来写的声明，只能在32位系统上使用。如果要在64位系统上使用，就要在每个 Declare 单词的后面添加一个 ...

您好，我加了ptrsafe后还是不能用，把long改为longlong也不行

混世小鼠精

1076571536 发表于 2024-8-20 22:19
您好，我加了ptrsafe后还是不能用，把long改为longlong也不行

long不要改