DOBON.NET DOBON.NETプログラミング掲示板過去ログ

BlockInputについて

  • 題名: BlockInputについて
  • 著者: yana
  • 日時: 2005/02/11 0:41:55
  • ID: 9079
  • この記事の返信元:
    • （なし）
  • この記事への返信:
    • （なし）
  • ツリーを表示
環境/言語:[xp,VB.NET.]
分類:[.NET]

ICタグを使ったアプリケーションの開発をしており、登録されたICタグ以外が読み込まれるとマウスやキーボードの入力をブロックし、スクリーンセーバーを起動するという動作をさせたいと思っています。
これにボタンを押すことでも上記の動作をするような機能を加えたいのですが、その場合登録されたICタグを読み込んでもBlockInputが解除されません。
まだVBについての知識が少ないので初歩的なミスを犯しているかもしれませんが何かアドバイスがあれば教えていただきたいです。

Private Sub RF_OnTag(ByVal TagNumber As String) Handles RF.OnTag
'読み取ったタグが登録されていれば入力ブロックを解除,登録されていなければ入力をブロックしスクリーンセーバを呼び出す
If TagNumber = "*******" Then
Block = BlockInput(False)

ElseIf TagNumber <> "*******" Then
'スクリーンセーバ呼び出し
Call SendMessage(Me.Handle.ToInt32, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
Block = BlockInput(True)

End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RF_OnTag("Lock")

End Sub
DOBON.NET | プログラミング道 | プログラミング掲示板