125.ウインドウが有効か無効か判別する

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


 < 説明 >
API関数のIsWindowEnabled使用します
IsWindowEnabled =>ウインドウが有効か無効か判別
  <引数>
     hWnd:ウインドウのハンドル     
  @戻り値@
     有効のとき1


< SAMPLE >

'標準モジュール
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





API 技術関連のページへ戻る

ホーム PV ランキング