Функция IsZoomed

Declare Function IsZoomed Lib "user32" (ByVal hwnd As Long) As Long
IsZoomed находит, развернуто ли данное окно или нет. Функция возвращает 0, если окно не развернуто (это могло бы быть или восстановлено или свернуто); или возвращает ненулевое значение, если окно развернуто

Параметры

hwnd
Дескриптор окна, чтобы узнать - развернуто оно или нет

Пример

' Определяем, развернуто ли окно Form1,
' свернуто или восстановлено
Dim minflag As Long, maxflag As Long

minflag = IsIconic(Form1.hWnd)  ' Form1 свернуто?
maxflag = IsZoomed(Form1.hWnd)  ' Form1 развернуто?
If minflag <> 0 Then
  Debug.Print "Form1 свернуто."
Elseif maxflag <> 0 Then
  Debug.Print "Form1 развернуто"
Else
  Debug.Print "Form1 восстановлено"
End If

Смотри также

IsIconic, ShowWindow

Категория

Окна