Функция IsIconic

Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long

IsIconic находит, свернуто ли данное окно или нет

Возвращаемое значение

Функция возвращает 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

Смотри также

Категория