这个消息在vba中是什么意思？

Question

I recently have changed my windows and now when i run my vba code i get the following message:

 'Place this code in a Module
 
Private Declare Function FindWindowA Lib "USER32" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function GetWindowLongA Lib "USER32" _
(ByVal hWnd As Long, _
ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongA Lib "USER32" _
(ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

anyone can help me how to solve this problem? thanks.

Answer 1

You should add a precompile If statement to work with Win 32 and 64.

The code below will make this work in Windows 32 and 64 bit systems.

Option Explicit
#If Win64 Then
    Private Declare PtrSafe Function FindWindowA Lib "USER32" _
        (ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
    
    Private Declare PtrSafe Function GetWindowLongA Lib "USER32" _
        (ByVal hWnd As Long, _
        ByVal nIndex As Long) As Long
    
    Private Declare PtrSafe Function SetWindowLongA Lib "USER32" _
        (ByVal hWnd As Long, _
        ByVal nIndex As Long, _
        ByVal dwNewLong As Long) As Long
#Else
    Private Declare Function FindWindowA Lib "USER32" _
        (ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
    
    Private Declare Function GetWindowLongA Lib "USER32" _
        (ByVal hWnd As Long, _
        ByVal nIndex As Long) As Long
    
    Private Declare Function SetWindowLongA Lib "USER32" _
        (ByVal hWnd As Long, _
        ByVal nIndex As Long, _
        ByVal dwNewLong As Long) As Long
#End If