Discussion :

[JMPS.VBA]

Bonjour,

Quel est le code ou instruction, qui me permettrait de trouver les formulaires ouverts en mode RESTORE ou MAXIMIZE ou MINIMIZE

Autant que faire se peut, je ne souhaite pas que le focus passe d'un formulaire à l'autre pour le tester.

Merci par avance.

[JMPS.VBA]

Code :

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

1
2
3
4
Dim MForm
For Each MForm In Forms
    MsgBox MForm.Name & " " & MForm.WindowHeight
Next

Ce code ne me satisfait pas.

Bien-sure, je devine l'état de la fenêtre d'après sa hauteur. Mais, est-ce que sous toutes les versions d'ACCES, une fenêtre MINIMIZE à pour valeur WindowsHeight = 465 ? Je ne crois pas.
Même si la hauteur de ma fenêtre ne sera jamais inférieure à 465, ce n'est pas cette information là que je cherche, mais bien l'état exact, MINIMIZE, MAXIMIZE ou RESTORE ...

Une idée ?... Merci

[ilank]

Bonsoir,

l'API GetWindowLong devrait faire l'affaire pour le Minimize et le Maximize

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Enum GET_WINDOW_LONG_FLAG
    GWL_STYLE = -16
End Enum
const  WS_MINIMIZE = &H20000000
Const   WS_MAXIMIZE = &H1000000
Declare Function usrGetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As GET_WINDOW_LONG_FLAG) As Long
 
Public Function IsFormMax(hWnd as Long) as boolean
 IsFormMax=((usrgetwindowlong(hwnd, GWL_STYLE) And WS_MAXIMIZE)=WS_MAXIMIZE)
End Function
 
Public Function IsFormMin(hWnd as long) as boolean
 IsFormMin=((usrgetwindowlong(hwnd,GW_STYLE) AND WS_MINIMIZE)=WS_MINIMIZE)
End function

PS: pas glop! j'ai oublié des parenthèses.
C'est corrigé. Glop!

[JMPS.VBA]

Merci Beaucoup.


___________________________________

Il y a une faute de frappe ?

[loufab]

Les paranthèses.

[LedZeppII]

Bonjour,

il y a deux fonctions de l'API Windows un peu plus simples.

Code :

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

1
2
3
' Savoir si une fenêtre est réduite ou agrandie au maximum
Public Declare Function IsIconic Lib "user32.dll" (ByVal hwnd As Long) As Boolean
Public Declare Function IsZoomed Lib "user32.dll" (ByVal hwnd As Long) As Boolean

que tu pourrais utiliser comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub tstEtatFenForm()
Dim fm As Form
For Each fm In Forms
    If fm.Visible = False Then
       MsgBox fm.Name & " : masqué"
    ElseIf IsIconic(fm.hwnd) Then
       MsgBox fm.Name & " : réduit"
    ElseIf IsZoomed(fm.hwnd) Then
       MsgBox fm.Name & " : agrandi au maximum"
    Else
       MsgBox fm.Name & " : normal"
    End If
Next
End Sub

A+