１４１．アクティブウインドウのハンドルを取得する

＜　使用用途　＞
現在、アクティブウインドウになっているウインドウのハンドルを取得する。

　＜　説明　＞
ＡＰＩ関数のGetActiveWindowを使用します
GetActiveWindow＝＞現在、アクティブになっているウインドウのハンドルを取得する
　　＜引数＞
　　　　 　なし　　　
　　＠戻り値＠
　　　　　 正常：（アクティブウインドウになている）ウインドウのハンドル
　　　 　　アクティブウインドウが無い場合：０

<　ＳＡＭＰＬＥ　＞
’フォームにコマンドボタンを１つ貼り付けた状態です。
'フォームの頭で宣言して下さい(General Declarations)
Private Declare Function GetActiveWindow Lib "USER32" () As Long
Private Declare Function GetWindowText Lib "USER32" Alias "GetWindowTextA" _
(ByVal hWnd&, ByVal lpString$, ByVal cch&) As Long

'コマンドボタンの処理です
Private Sub Command1_Click()
　　　　Dim rtn, rtn2 As Long

　　　　Dim Name As String
　　　　Dim Leng As Long

　　　　'バッファを確保
　　　　Name = String(250, Chr(0))
　　　　Leng　 = Len(Name)
　　　　'アクティブウインドウのハンドル取得
　　　　rtn = GetActiveWindow()
　　　　'アクティブウインドウのウインドウ名取得
　　　　 rtn2 = GetWindowText(rtn, Name, Leng)
　　　　'現在、アクティブウインドウは自アプリなので自分自身を表示
　　　　 MsgBox "現在アクテイブウインドウのタイトル名は" + Name + "です"

End Sub