Entro no meu pc em casa e roda perfeitamente porém vou abrir meu projeto e o seguinte código tem a mensagem de erro: "o código desse projeto deve ser atualizado para o sistema 64 bits"
Declare Function FindWindow32 Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As Any, ByVal lpWindowName As Any) As Integer
Declare Function GetWindowLong32 Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Integer, ByVal nIndex As Integer) As Long
Declare Function SetWindowLong32 Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Integer, ByVal nIndex As Integer, _
ByVal dwNewLong As Long) As Long
Queria ajeitar isso pra rodar em qualquer sistema, alguem me ajuda ?
Desde já, agradeço
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Erro: o código desse projeto deve ser atualizado para o sistema 64 bits
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Erro: o código desse projeto deve ser atualizado para o sistema 64 bits
Arthur, boa noite e seja bem vindo ao fórum.
Meu amigo, isso ai é fácil de alterar. Substitua essa parte do código que você enviou, por esse código abaixo:
Quaisquer dúvidas ou dificuldades, estamos a disposição.
Forte abraço e boa noite.
Meu amigo, isso ai é fácil de alterar. Substitua essa parte do código que você enviou, por esse código abaixo:
Código: Selecionar todos
#If VBA7 Then ' Avalia as versões do Office 2010+
Declare PtrSafe Function FindWindow32 Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As Any, ByVal lpWindowName As Any) As Integer
Declare PtrSafe Function GetWindowLong32 Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Integer, ByVal nIndex As Integer) As Long
Declare PtrSafe Function SetWindowLong32 Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Integer, ByVal nIndex As Integer, _
ByVal dwNewLong As Long) As Long
#ElseIf VBA6 Then ' Avalia as versões do Office 2007-
Declare Function FindWindow32 Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As Any, ByVal lpWindowName As Any) As Integer
Declare Function GetWindowLong32 Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Integer, ByVal nIndex As Integer) As Long
Declare Function SetWindowLong32 Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Integer, ByVal nIndex As Integer, _
ByVal dwNewLong As Long) As Long
#End If
Forte abraço e boa noite.
Re: Erro: o código desse projeto deve ser atualizado para o sistema 64 bits
Incluí o PtrSafe porém está dando tipo incompatível:
Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _
Optional YPos, Optional HelpFile, Optional Context) As String
Dim lngModHwnd As Long, lngThreadID As Long
Sabe o que é?
Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _
Optional YPos, Optional HelpFile, Optional Context) As String
Dim lngModHwnd As Long, lngThreadID As Long
Sabe o que é?
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Erro: o código desse projeto deve ser atualizado para o sistema 64 bits
rqps77, bom dia.
Tem como colocar todo o código da declaração aqui, para que possamos dar uma olhada?
Fico no aguardo.
Abraços e excelente quinta.
Tem como colocar todo o código da declaração aqui, para que possamos dar uma olhada?
Fico no aguardo.
Abraços e excelente quinta.