Discussion :

[gryffondor8392]

J'ai trouver ceci sur le forum :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Private Declare Function GetForeGroundWindow Lib "user32"() As Long
 
Private Sub Command_Click()
 
    If Me.hwnd = GetForeGroundWindow Then
 
        MsgBox "La fenêtre active est :" & Me.Caption
 
    End If
 
End Sub

Mais ca me fait l'erreur suivante :

Erreur d'exécution '453' :

Point d'entrée GetForeGroundWindow d'une DLL introuvable dans user32

Pouvez-vous m'aider ?

Merci par avance.

[SfJ5Rpw8]

un G majuscule en trop :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Declare Function GetForegroundWindow Lib "user32" () As Long

[gryffondor8392]

Merci ca marche mais ce code ne me permet pas de me dire si une MDIChild qui appartient à une MDIForm est active ou pas.

[ThierryAIM]

MDIFORM1.ActiveForm