IsWindowEnabled

機能

指定のウィンドウがキーボード
マウス入力ができるか調べる

Declare Function IsWindowEnabled Lib "user32.dll" _

    (ByVal hWnd As Long) As Long

Declare Function IsWindowEnabled Lib "user32.dll" _

    (ByVal hWnd As Integer) As Integer

BOOL IsWindowEnabled(
HWND hWnd
);
引数
hWnd

対象のウィンドウのハンドル

戻り値

入力可能  0以外

入力不可  0

備考

Visual BasicのEnableプロパティを調べると思えばよい。

設定するにはEnableWindow()関数を使えばよい。

サンプル

ダウンロード(IsWindowEnabled.lzh 1.12KB)

'指定のウィンドウがキーボード・マウス入力ができるか調べる
Private Declare Function IsWindowEnabled Lib "user32.dll" (ByVal hWnd As Long) As Long


Private Sub Command1_Click()
Dim rc As Long

rc = IsWindowEnabled(Me.Text1.hWnd)
If rc <> 0 Then
    Me.Text1.Text = "入力可能"
Else
    Me.Text1.Text = "入力できない"
End If
End Sub