IsWindowVisible

機能

指定のウィンドウが可視化状態かどうか調べる

Declare Function IsWindowVisible Lib "user32.dll" _

    (ByVal hWnd As Long) As Long

Declare Function IsWindowVisible Lib "user32.dll" _

    (ByVal hWnd As Integer) As Integer

BOOL IsWindowVisible(
HWND hWnd
);
引数
hWnd

ウィンドウのハンドル

戻り値

可視化状態のとき	0以外

そうでないとき	0

備考

ウィンドウがWS_VISIBLEスタイルを持っているかどうか調べる。

よって、ウィンドウが別のウィンドウの下に隠れている場合、結果は0となる。

'指定のウィンドウが可視化状態かどうか調べる
Private Declare Function IsWindowVisible Lib "user32.dll" (ByVal hWnd As Long) As Long


Private Sub Command1_Click()
Dim rc As Long

rc = IsWindowVisible(Me.Text1.hWnd)
If rc <> 0 Then
    Me.Text1.Text = "Visible"
Else
    Me.Text1.Text = "Disable"
End If
End Sub