HOME > 即効テクニック > AccessVBA > Windows環境・オブジェクト > 指定したウィンドウを最小化する

即効テクニック

Windows環境・オブジェクト

指定したウィンドウを最小化する

(Access 2000/2002/2003)
●概要●
宣言文  Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long)
        As Long

設定項目        内容
hwnd            ウィンドウハンドルを指定[省略不可]

引数に指定したウィンドウハンドルを持つウィンドウを最小化します。成功時には「0」以外の値を、失敗時には「0」を返します。
次のコードは、フォアグラウンドウィンドウを最小化するサンプルです。

●サンプル●
Private Declare Function GetForegroundWindow _
    Lib "user32" () As Long
Private Declare Function CloseWindow _
    Lib "user32" _
    (ByVal hwnd As Long) As Long

'指定したウィンドウを最小化する
Sub Sample()
    Dim myHwnd As Long
    'フォアグラウンドウィンドウのウィンドウハンドルの取得
    myHwnd = GetForegroundWindow()
    'フォアグラウンドウィンドウを最小化
    CloseWindow myHwnd
End Sub

●補足1●
フォアグラウンドウィンドウとは、ユーザーが操作できるウィンドウ(アクティブウィンドウ)のことです。

●補足2●
戻り値を必要としない場合には、Subプロシージャとして宣言してもかまいません。

Declare Sub CloseWindow Lib "user32" (ByVal hwnd As Long)