119.ウインドウのマウス入力とキーボードを有効、無効にする

< 使用用途 >
ウインドウのマウス入力とキーボードを有効、無効にする

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を!
=> ダウンロード・・・ 下に書いてあるサンプルソースと同じです


 < 説明 >
API関数のEnableWindow を使用します
EnableWindow =>ウインドウのマウス入力とキーボードを有効、無効にする
  <引数>
     hWnd:ウインドウのハンドル
     fEnable:0->無効、1->有効     
  @戻り値@
     正常終了0以外


< SAMPLE >
'ここでは自ウインドウを無効にする処理です。

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

'ここからはフォームの処理です
Private Sub Command1_Click()
  Dim RetAs Long
  Ret = EnableWindow(hWnd, 0)
End Sub





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

ホーム PV ランキング