Form_LostFocus qui ne marche pas

Salut à tous

je developpe un petit prog avec les skins (source_19448) et j'essaye de cacher ma fenetre principale lorsque je clique en dehors.

je voudrais que lorsque je perds le focus, j'appele une function chacheMain (traduction de cache Main en faute de frappe)

j'ai placé un break point sur ce sub mais il n'est jamais activé...

Bref je ne sais plus quoi faire ? et je me demande pourquoi je n'active jamais ce Break Point, alors que sur d'autre fenetre il fonctionne....

voici une partie du code de la fenetre si ça peut vous aidez
j'ai juste enlever les composant tels que les boutons et browser pour ne pas sur-charger votre lecture...

Merci



''''''''''''''''''''''''''''''
''' Controles de la Fenetre'''
''''''''''''''''''''''''''''''
Private Sub Form_DblClick()
If frmY <= Skin.HeightTitre Then If Me.WindowState = 0 Then Me.WindowState = 2 Else Me.WindowState = 0
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Skin.FormMouseDown Button, X, Y
Call resizeBrowser(Me)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Skin.FormMouseMove X, Y
frmX = X: frmY = Y
Call resizeBrowser(Me)
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Skin.FormMouseUp Button, X, Y
Call resizeBrowser(Me)
End Sub

Private Sub Form_Resize()
Skin.FormResize
If stateBigSize Then
Call signetPosition
Call resizeBrowser(Me)
End If
End Sub

Private Sub Form_LostFocus()
Call chacheMain
End Sub


Private Sub Form_Load()
Dim bool As Boolean
'bool = SetWindowAlwaysOnTop(Me.hWnd, True)

Skin.Open_Skin Me, App.Path & "\skin\SpaceBlue.ini"
Skin.Active_LimResize

'comSkin1.Top = Skin.Menu_PosY
'comSkin1.Left = Skin.Menu_PosX
Signet.Show

WebBrowser1.Navigate "http://10.0.16.23:82/interne.asp"
stateBigSize = True
stateIsOnLeft = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
Skin.Desactive_LimResize
Set Skin = Nothing
End Sub

Le probleme vient du fait que la notion de FOCUS
n'est pas interprocess, c'est a dire qu'elle fonctionne uniquement entre fenetre d'un meme programme.

utilise plutot les evennements

Form_Activate

et

Form_Desactivate

@+

E.B.

Salut EB,

Je viens de tester la notion d'activate et desactivate, ça ne marche pas mieux, Je ne suis pas sur qu'elle possede la notion d'interprocess...

Par contre je viens de trouver une solution en fouillant dans les API :

j'utilise

Declare Function GetActiveWindow Lib "user32" () As Long

et je place ensuite un timer sur ma fenetre et je teste joyeusement si GetActiveWindow me retourne 0 : je detecte ainsi que j'ai cliqué ailleurs que dans une fenetre de mon programme.

merci encore et @+

Titom