２７．ウインドウが表示されているか判別する



＜　使用用途　＞
ウインドウが表示されているか判別する

＜　説明　＞
ＡＰＩ関数のIsWindowVisible を使用します。
IsWindowVisible＝＞ウインドウが表示されているか判別する
　　＜引数＞
　　　　　　hWnd&：ウインドウのハンドル
　　＠戻り値＠　　
　　　　　　表示されている場合　1

<　ＳＡＭＰＬＥ　＞
'標準モジュール
Public Declare Function IsWindowVisible Lib "USER32" (ByVal hWnd&) As Long
'ここからはフォームの処理
Private Sub Command1_Click()
　Dim Ret As Long　
　　'Form1が表示されているか判別する
　　Ret=IsWindowVisible(Form1.hwnd)
　
　If Ret =1Then
　　MsgBox "表示されています"
　Else
　　MsgBox "表示されていません"
　End　If　
End Sub