１２２．ウインドウに関するデータを取得する

＜　使用用途　＞
ウインドウに関するデータを取得する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・　下に書いてあるサンプルソースと同じです

　＜　説明　＞
ＡＰＩ関数のGetWindowLongを使用します
GetWindowLong ＝＞ウインドウに関するデータを取得
　　＜引数＞
　　　　　hWnd：ウインドウのハンドル　
　　　　 nIndex：定数（GWL＿××参照）　　　　　
　　＠戻り値＠
　　　　　定数で指定した値

<　ＳＡＭＰＬＥ　＞
'ここでは自ウインドウのインスタンスハンドルを取得する処理です。
'標準モジュール
Public Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Public Const GWL_HINSTANCE = (-6)'インスタンスハンドルを取得
Public Const GWL_HWNDPARENT = (-8) '親ウインドウのハンドルを取得
Public Const GWL_ID = (-12) 'ウインドウのIDを取得
Public Const GWL_EXSTYLE = (-20) '拡張ウインドウスタイルを取得
Public Const GWL_STYLE = (-16)'ウインドウスタイルを取得
Public Const GWL_WNDPROC = (-16) 'ウインドウ関数のアドレスを取得
Public Const GWL_USERDATA = (-21)'ユーザー定義の32ビット値を取得

'ここからはフォームの処理です
Private Sub Command1_Click()
　 Dim RetAs Long
　　Ret = GetWindowLong(hWnd, GWL_HINSTANCE)
End Sub