VBA, MS Access MS Access в примерах

Окно приложения MS Access - Разворачиваем во весь экран (API x64+)

'--------------------------------------------------------------------
' Module    : modAppWindow_API
' Author    : Дмитрий Сонных (aka Joss) sonni-dim@mail.ru
' Purpose   : Разворачивание окна Access во весь экран
'--------------------------------------------------------------------
'- разворачивание окна Access на весь экран.
'    fSetWindow Application.hWndAccessApp, SW_SHOWMAXIMIZED
'--------------------------------------------------------------------

' Эти описания помещаем в модуль
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 PtrSafe 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


Назад ToTop
L.E. 30.01.2021
Рейтинг@Mail.ru