[Resolvido]Estou com problemas em compatibilidade na tela inicial do meu aplicativo

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 GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex 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


como faço pra corrigir isso? já coloquei as bibliotecas de referencias porem não resolve...

Antes do Function coloque ptrsafe

Tópico movido da sala de Formulários para a sala de Módulos e VBA. Atentar-se a descrição de cada sala ao abrir tópicos.

perdão mestre não me atentei a classificação do topico,

rodou normal colocando PtrSafe na frente da function,

agora uma dúvida, eu to testando em outros offices, outras máquinas pra validar se realmente vai ficar bom e se vai rodar em todas as máquinas entende?

existe algo pra impedir isso de acontecer ?

se eu usar muitas bibliotecas de referencias algo do tipo?

Olá Mizael,

Apenas complementando o post do @crysostomo, é necessário aplicar as validações de API's tanto para 32 quanto para 64 bits.
Desta forma, teu sistema pode rodar em qualquer arquitetura do Office. Sege exemplo:

Código:



#if Win64 then
  Declare PtrSafe Function MyMathFunc Lib "User32" (ByVal N As LongLong) As LongLong
#else
  Declare Function MyMathFunc Lib "User32" (ByVal N As Long) As Long
#end if
#if VBA7 then
  Declare PtrSafe Sub MessageBeep Lib "User32" (ByVal N AS Long)
#else
  Declare Sub MessageBeep Lib "User32" (ByVal N AS Long)
#end if



Espero ter ajudado.

FIM