Boa noite, duas dúvidas?
1) vi vários tópicos, tentei todas opções sem êxito. Pergunto nos tópicos já encerrados ou abro novo tópico?
2) Este código não esta funcionando no 64 bits:
Com mensagem: Erro de compilação - Tipos incompatíveis.
Fica selecionado azul: AddressOf NewProc
Fica selecionado amarelo: Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _
Optional YPos, Optional HelpFile, Optional CONTEXT) As String
1) vi vários tópicos, tentei todas opções sem êxito. Pergunto nos tópicos já encerrados ou abro novo tópico?
2) Este código não esta funcionando no 64 bits:
- Código:
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
lngThreadID = GetCurrentThreadId
lngModHwnd = GetModuleHandle(vbNullString)
hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, CONTEXT)
UnhookWindowsHookEx hHook
End Function
Com mensagem: Erro de compilação - Tipos incompatíveis.
Fica selecionado azul: AddressOf NewProc
Fica selecionado amarelo: Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _
Optional YPos, Optional HelpFile, Optional CONTEXT) As String