Access ウィンドウを最大化・最小化・元のサイズに戻す Hit Counter

対象バージョン : 97, 2000, 2002, 2003, 2007
最終更新日 : 2007/02/12 （オリジナル作成日 : 1999/02/03）

概　要

　Windows API を用いて Access 自体のウィンドウを最大化・最小化・元のサイズに戻す方法です。

　

解　説

１．API の宣言と、定数の定義

General - Declarations

Public Const SW_SHOWNORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3

Declare Function ShowWindow Lib "User32" _
    (ByVal Hwnd As Long, ByVal nCmdShow As Long) As Long
     
     

２．ユーザー定義関数からの呼び出し
     
     

' 最大化
Public Function AccMaximize()
Dim lngRet As Long
lngRet = ShowWindow(hWndAccessApp, SW_SHOWMAXIMIZED)
End Function

' 最小化
Public Function AccMinimize()
Dim lngRet As Long
lngRet = ShowWindow(hWndAccessApp, SW_SHOWMINIMIZED)
End Function

' 元のサイズに戻す
Public Function AccRestore()
Dim lngRet As Long
lngRet = ShowWindow(hWndAccessApp, SW_SHOWNORMAL)
End Function

   
   

   
   

目次へ戻る