１２５．ウインドウが有効か無効か判別する

＜　使用用途　＞
キー入力が受け取れるかを判別する

　＜　説明　＞
ＡＰＩ関数のIsWindowEnabled使用します
IsWindowEnabled ＝＞ウインドウが有効か無効か判別
　　＜引数＞
　　　　　hWnd：ウインドウのハンドル　　　　　
　　＠戻り値＠
　　　　　有効のとき1

<　ＳＡＭＰＬＥ　＞

'標準モジュール
Public　Declare Function IsWindowEnabled Lib "USER32" Alias "IsWindowEnabled" (ByVal hWnd　As Long) As Long

'ここからはフォームの処理です
Private Sub Command1_Click()

　 Dim Ret As Long
　
　Ret = IsWindowEnabled(Form1.hWnd)
　 If Ret=1 Then Msgbox"ウインドウは有効です。"

End Sub