Notifications
Clear all

Problemas ao executar Formulário


fcarlosc
(@fcarlosc)
Reputable Member Registered
Entrou: 5 anos atrás
Posts: 434
Topic starter  

Boa-noite

Tenho um formulário que baixei e no Office 32 bits funciona blz...no 64 bits alterei todos que acusavam erro na linha "Private Declare Function" para "Private Declare PtrSafe Function", só que no final do UserForm está dando erro na linha "g_lpMyWndProc = SetWindowLong(g_hForm, GWL_WNDPROC, AddressOf HookWinProc)".

no "AddressOf HookWinProc"

Private Sub UserForm_Initialize()
    
  Dim lngWinState As XlWindowState


códigos...e deposi lá no final


g_hForm = FindWindow(vbNullString, Me.Caption)
    
    Call CreateAPIMenu

    #If VBA6 Then
        g_lpMyWndProc = SetWindowLong(g_hForm, GWL_WNDPROC, AddressOf HookWinProc)
    #Else
        g_lpMyWndProc = SetWindowLong(g_hForm, GWL_WNDPROC, AddrOf("HookWinProc"))
    #End If

End Sub

Teria alguma solução !?


ResponderCitar (Quote)
Wagner Morel
(@wagner-morel-vidal-nobre)
Illustrious Member Registered Registered
Entrou: 8 anos atrás
Posts: 4036
 

fcarlosc,

Bom dia!

Pedimos, por gentileza, ao postar código VBA aqui no fórum, utilizar a ferramenta CODE que fica localizada logo acima da caixa de mensagens (quinto botão da esquerda para a direita).

Se a resposta foi útil para você, por gentileza, Amigo, clique em Curtir.

Atenciosamente
Wagner Morel


ResponderCitar (Quote)
andreoew
(@andreoew)
New Member Registered
Entrou: 2 semanas atrás
Posts: 1
 

Boa noite

Alguém teve solução para a solicitação acima?


ResponderCitar (Quote)
EdsonBR
(@edsonbr)
Prominent Member Moderator
Entrou: 5 anos atrás
Posts: 760
 

Bem vindo ao Planilhando, @andreoew!

Este post está parado há muito tempo. Descreva a sua dúvida em detalhes e anexe um arquivo que reflita o problema que está enfrentando. Talvez este tópico não tenha evoluído justamente pelo fato do autor não ter fornecido subsídios suficientes para isso.


ResponderCitar (Quote)