c'est du vba !!!!!!!
avec vba, je ne sais pas si ca marche(je ne fais pas de vba), mais ca vaut le coup d'essayer.
alors tu cherches sur le site soit en tapant renfield, tu vas voir toutes ses sources, tu cherches la bonne dll, ou tu tapes en recherche reysubclasser.
une fois télécharger, il faut l'enregistrer dans le registre avec regserver, sinon toujours renfield, donne en téléchargement , le moyen d'automatiser cela par un fichier REG.
faut la charger dans les références.
les commandes dans ton prog :
dans le "general" :
Dim WithEvents SubClasser As ReySubClasser
|
dans le "load" :
Set SubClasser = New ReySubClasser
SubClasser.Controls.Add Command1.hWnd
SubClasser.Messages.Add WM_MOUSEHOVER, WM_MOUSELEAVE, WM_MOUSEMOVE, _
WM_LBUTTONDOWN, WM_LBUTTONUP, WM_LBUTTONDBLCLK, _
WM_RBUTTONDBLCLK, WM_RBUTTONUP, WM_RBUTTONDOWN, WM_MOUSEWHEEL
SubClasser.StartSubClassing
|
dans le Private Sub SubClasser_Msg1 :
Select Case uMsg
Case WM_MOUSELEAVE
######ACTION DE FAIRE DISPARAITRE
End Select
|
dans le unload ou queryunload :
SubClasser.StopSubClassing
|
ca parait long mais c'est relativement rapide de mise en oeuvre et en esperant qu'avace vba cela fonctionne.
bonne prog.
liquide