即効テクニック |
●概要● 宣言文 Declare Function GetForegroundWindow Lib "user32" () As Long ユーザーが操作中のウィンドウ(フォアグラウンドウィンドウ)のウィンドウハンドルを取得します。 次のコードは、フォアグラウンドウィンドウのウィンドウハンドルをメッセージダイアログで表示するサンプルです。 ●サンプル● Private Declare Function GetForegroundWindow _ Lib "user32" () As Long '操作中のウィンドウのウィンドウハンドルを取得する Sub Sample() Dim myHwnd As Long 'フォアグラウンドウィンドウのウィンドウハンドルの取得 myHwnd = GetForegroundWindow() MsgBox myHwnd End Sub