INTERCEPTANDO EVENDO DO FORM EM UMA OCX

USUARIO.EXCLUIDOS 11/06/2007 15:51:40
#220715
boa tarde galera!!

Estou criando uma ocx e teria alguma forma de eu interceptar um evento de um form?
ex:meu ocx executar uma açao no evendo "resize" do form.


Agradeço desde já.

Diego Nogueira
CLEVERTON 11/06/2007 16:58:05
#220748
Interceptar não.

o máximo que vc pode fazer é trazer os valores das propriedades que estavam antes do Resize do Form.
USUARIO.EXCLUIDOS 11/06/2007 17:38:56
#220766
Tem sim!, eu postei um código a um tempinho atras no PSC sobre hook (Ter o controle dos eventos da janela).

http://www.planet-source-code.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=68724&strZipAccessCode=tp%2FH687248566

O código foi feito para usar o WM_GETMINMAXINFO mas vem esplicando muito bem como criar um hook em uma janela. Ele está em Ingles. Se quiser uma versão em português e so pedir ;)
ROBIU 11/06/2007 20:09:39
#220780
Eu tenho uns componentes que usam Forms(O form Que fica dentro da Ocx) e deu trabalho para eu disparar os eventos deste form já que tudo que se faz fica relacionado ao usercontrol.Veja esse Exemplo Ocx Que dispara eventos do Form.Nesta ocx tem muitos eventos que são disparados no form. O Usercontrol nem aparece em run time. Se for esse o seu caso, eu acho que posso te ajudar. Tanto na criação de propriedades como no disparo dos eventos. Coloca seu msn aqui. o meu é robiu@hotmail.com
USUARIO.EXCLUIDOS 12/06/2007 03:17:13
#220802
Escuta o Cleverton, OCX esse cara pesquisou !
PAGANINI 12/06/2007 10:33:55
#220851 Resposta escolhida
Claro que tem pessoal é é bem simples basta duas linhas de código.

Anexei um exemplo que fiz as pressas
PAGANINI 12/06/2007 10:35:29
#220853
Para quem não quiser baixar o exemplo segue abaixo o código no user control

Private WithEvents f As Form
Private Sub f_Resize()
  MsgBox "O Form foi redimensionado"
End Sub
Private Sub UserControl_Show()
  Set f = Parent
End Sub

[/c]
Tópico encerrado , respostas não são mais permitidas
Voltar