HACKER присоеденяюсь, но только для тех кто
незнает до финиша добавлю выдержку из API.
Функция ShowWindow
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
--------------------------------------------------------------------------------
ShowWindow показывает(или скрывает) окна стандартным способом. Например, функция может свернуть, развернуть или восстановить окно
Минимальная платформа
Windows 95, Windows NT 3.1
Возвращаемое значение
Функция возвращает 0, если окно было раньше скрыто. Если окно было видимым, то возвращается ненулевое значение
Параметры
hwnd
Дескриптор окна для изменения статуса этого окна
nCmdShow
Флаги функции, определяющие вид окна:
SW_HIDE = 0
Скрыть окно и активизировать другое окно
SW_MAXIMIZE = 3
Развернуть окно
SW_MINIMIZE = 6
Свернуть окно и активизировать следующее окно в Z-порядке(следующее под свернутым окном)
SW_RESTORE = 9
Активизировать и отобразить окно. Если окно свернуто или развернуто, Windows восстанавливает его исходный размер и положение
SW_SHOW = 5
Активизировать окно
SW_SHOWMAXIMIZED = 3
Отобразить окно в развернутом виде
SW_SHOWMINIMIZED = 2
Отобразить окно в свернутом виде
SW_SHOWMINNOACTIVE = 7
Отобразить окно в свернутом виде. Активное окно остается активным
SW_SHOWNA = 8
Отобразить окно в текущем состоянии. Активное окно остается активным
SW_SHOWNOACTIVATE = 4
Отобразить окно в соответствии с последними значениями позиции и размера. Активное окно остается активным
SW_SHOWNORMAL = 1
Активизировать и отобразить окно. Если окно свернуто или развернуто, Windows восстанавливает его исходный размер и положение. Приложение должно указывать этот флаг при первом отображении окна
[CODE]['Развертываем окно формы Form1
' Сначала убедимся, что окно видимо
Dim retval As Long ' возвращаемое значение
' Показываем окно, если оно скрыто
retval = ShowWindow(Form1.hWnd, SW_SHOW)
' Развертываем окно
retval = ShowWindow(Form1.hWnd, SW_MAXIMIZE)
/CODE]
Ответить
|