Bonjour à tous,
Voilà, ce contrôle vous permettra de sous-classer facilement une fenêtre (la votre ou celle d'une autre appli, peu importe). Vous pourrez ainsi avoir accès aux évènements d'une autre fenêtre à travers cet usercontrol, ou même vous pourrez avoir de nouveaux évènements que VB ne propose pas avec son gestionnaire d'évènements par défaut.
Merci à EB pour son bout de code d'injection ASM qui permet d'avoir l'handler d'évènement (WinProc) dans le contrôle, sans ça impossible d'appeler les évènements de l'usercontrol.
Source / Exemple :
Private Sub Form_Load()
ctlSubClass1.hWnd = Me.hWnd
ctlSubClass1.StartSubclassing
End Sub
Private Sub Form_Unload(Cancel As Integer)
ctlSubClass1.EndSubclassing
End Sub
Private Sub ctlSubClass1_Activate()
txtLog.Text = txtLog.Text & "Activation" & vbCrLf
End Sub
Private Sub ctlSubClass1_Click()
txtLog.Text = txtLog.Text & "Clic intercepté" & vbCrLf
End Sub
Private Sub ctlSubClass1_MouseWheel()
txtLog.Text = txtLog.Text & "Roulette" & vbCrLf
End Sub
Conclusion :
Si vous avez des propositions d'évènements à rajouter, je vous écoute.
En espérant que ça vous serve
MadMatt
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.