２５．ウインドウのハンドルを取得する
＜ 使用用途 ＞
ウインドウのハンドルを取得する
＜ 説明 ＞
ＡＰＩ関数のGetWindow を使用します。
GetWindow＝＞ウインドウのハンドルを取得する
＜引数＞
hWnd： ハンドル
wCmd： 定数（GW_××参照）
＠戻り値＠
ウインドウのハンドル
< ＳＡＭＰＬＥ ＞
'標準モジュール
Public Declare Function GetWindow Lib "USER32" (ByVal hWnd As
Long, ByVal wCmd As Long) As Long
Public Const GW_HWNDNEXT=2'次のウインドウのハンドルを返す
Public Const GW_OWNER=4'親ウインドウのハンドルを返す
Public Const GW_CHILD=5'ウインドウの最初の子ウインドウのハンドルを返す
Public Const GW_MAX=5'前のウインドウハンドルを返す
'ここからはフォームの処理
Private Sub Command1_Click()
Dim Ret As Long
Ret=GetWindow(Form1.hwnd,GW_HWNDNEXT)
End Sub