[AC-2002] Tester si un formulaire est déjà en plein écran [Résolu]

[dut-dut]

Bonjour !
Une petite question de confort : est-il possible de tester si un formulaire est en plein écran ?
L'un de mes formulaires ne doit s'afficher que en plein écran. J'ai donc inclus "DoCmd.Maximize" dans son événement d'activation. Mais lorsque je bascule dessus depuis un autre formulaire déjà en plein écran, on voit à nouveau l'animation d'agrandissement. Je voudrais donc mettre un test du type :

Code :

If mon_formulaire_est_déjà_en_plein_ecran = False Then DoCmd.Maximize

[Sefrou]

En mettant

Code :

DoCmd.Maximize

dans l'évènement Ouverture du formulaire ?

[dut-dut]

Merci mais ça ne répond pas à ma question.

[LedZeppII]

Bonsoir,

Je ne vois que la fonction de l'api Windows IsZoomed.
Déclaration à mettre ...
dans le module de classe de formulaire

Code :

Private Declare Function IsZoomed Lib "user32.dll" (ByVal hwnd As Long) As Boolean

ou dans un module de code.

Code :

Declare Function IsZoomed Lib "user32.dll" (ByVal hwnd As Long) As Boolean

Il faut passer en argument le membre Hwnd du formulaire.
Exemple si le code est à exécuter depuis le formulaire lui-même

Code :

If IsZoomed(Me.Hwnd) = False Then DoCmd.Maximize

A+

[dut-dut]

Bonjour !
C'est exactement ce que je cherchais.

Merci et @+.