即効テクニック |
●概要● 宣言文 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)