Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час

' Эти описания помещаем в модуль Public Const SW_HIDE = 0 'Скрывает это окно и передает активацию к другому окну. Public Const SW_MINIMIZE = 6 'Минимизирует окно и активизирует окно верхнего уровня в списке 'системы. Public Const SW_RESTORE = 9 'Активизирует и отображает окно. Если окно минимизировано или максимизировано, 'Windows восстанавливает его к его первоначальному 'размеру и позиции. Public Const SW_SHOW = 5 'Активизирует окно и отображает его в текущем размере и позиции. Public Const SW_MAXIMIZE = 3 Public Const SW_SHOWMAXIMIZED = 3 'Активизирует окно и отображает его как максимизируемое окно. Public Const SW_SHOWMINIMIZED = 2 'Активизирует окно и отображает его как значок. Public Const SW_SHOWMINNOACTIVE = 4 'Отображает окно как значок. Окно, которое является в настоящее 'время активным, остается активным. Public Const SW_SHOWNA = 8 'Отображает окно в его текущем состоянии. Окно, которое является в 'настоящее время активным, остается активным. Public Const SW_SHOWNOACTIVATE = 7 'Отображает окно в его самом современном размере и позиции. Окно, 'которое является в настоящее время активным, остается активным. Public Const SW_SHOWNORMAL = 1 'Активизирует и отображает окно. Если окно минимизировано или 'максимизировано, Windows восстанавливает его к первоначальному 'размеру и позиции. Public Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal Hwnd As Long, _ ByVal nCmdShow As Long) As Long Public Function fSetWindow(nHwnd As Long, nCmdShow As Long) As Long ' Примеры вызова функции : 'Maximize window - во весь экран: ' fSetWindow(nHwnd,SW_SHOWMAXIMIZED) 'Minimize window - свернуть в пиктограмму: ' fSetWindow(nHwnd,SW_SHOWMINIMIZED) 'Hide window - скрыть окно: ' fSetWindow(nHwnd,SW_HIDE) 'Normal window - нормальный размер: ' fSetWindow(nHwnd,SW_SHOWNORMAL) On Error GoTo Err_fSetWindow fSetWindow = apiShowWindow(nHwnd, nCmdShow) Exit_fSetWindow: Exit Function Err_fSetWindow: MsgBox Err.Description Resume Exit_fSetWindow End Function

использую вот это...
'Hide window - скрыть окно:
' fSetWindow(nHwnd,SW_HIDE)