|
Wenn Sie wissen möchten, ob ein minimiertes Form beim
Wiederherstellen maximiert oder in normaler Größe erscheinen wird,
liefert Ihnen die API-Funktion  GetWindowPlacement
die gewünschte Information. Sie übergeben der Funktion das Handle
des betreffenden Forms und eine benutzerdefinierte Variable des Typs
WINDOWPLACEMENT.
Nach dem Aufruf sind die Elemente dieser Variablen mit verschiedenen
Informationen über den aktuellen Zustand des Forms gefüllt. Ist im
Element Flags der Wert der Konstanten eingetragen, ist das Form
minimiert und wird nach dem Wiederherstellen maximiert dargestellt.
Die Hilfs-Funktion FormRestoreMaximized vereinfacht den Aufruf -
Sie übergeben Ihr einfach das betreffende Form. Der Rückgabewert
der Funktion ist True, wenn das Form maximiert wiederhergestellt
werden wird.
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Type WINDOWPLACEMENT
Length As Long
Flags As Long
showCmd As Long
ptMinPosition As POINTAPI
ptMaxPosition As POINTAPI
rcNormalPosition As RECT
End Type
Private Declare Function GetWindowPlacement Lib "user32" _
(ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Public Function FormRestoreMaximized(ThisForm As Form) As Boolean
Dim wp As WINDOWPLACEMENT
Const WPF_RESTORETOMAXIMIZED = &H2
With wp
.Length = Len(wp)
GetWindowPlacement ThisForm.hwnd, wp
FormRestoreMaximized = CBool(.Flags = WPF_RESTORETOMAXIMIZED)
End With
End Function
 |
Die Funktion FormRestoreMaximized informiert
Sie darüber, ob ein Form nach dem Wiederherstellen maximiert
oder in normaler Größe dargestellt wird
|
|