Private Declare Function GetActiveWindow Lib "user32" () As Long Public lgnWin As Long ' Puis dans le Code de votre Formulaire, mettez ce code : Private Sub Form_Load() MaFenetre = Me.hWnd End Sub Private Sub Timer1_Timer() If MaFenetre <> GetActiveWindow Then Me.WindowState = vbMinimized End Sub
C'est vrai que tel quel le code n'est pas super génial mais il fonctionne !Private Declare Function GetActiveWindow Lib "user32" () As Long......if (MyForm.hWnd = GetActiveWindow) then ' Ma fenêtre est activeelse ' ou elle ne l'est pasend ifGrosLolo.
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte