vb@rchiv · Tipps & Tricks · Tastatur- und Maus blockieren

Rubrik: Maus & Tastatur · Maus | VB-Versionen: VB4, VB5, VB6

08.06.02

Tastatur- und Maus blockieren Dieser Tipp zeigt, wie sich sowohl die Tastatur, als auch die Maus blockieren und wieder freigeben lassen.
Autor: Unbekannt	Bewertung:	Views: 37.951
ohne Homepage	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Zu unserem heutigen Tipp gibt es nicht viel zu sagen, nur soviel, dass sich über die BlockInput-API sowohl die Tastatur, als auch die Maus blockieren und wieder freigeben lässt.

' Benötigte API Deklaration
Private Declare Function BlockInput Lib "user32" ( _
  ByVal fBlock As Boolean) As Boolean

Aufruf:

' Tastatur und Maus-Eingabe sperren
BlockInput True

' ...und wieder freigeben :-)
BlockInput False

Kleines Anwendungsbeispiel:
Starten Sie ein neues Projekt und fügen Sie folgende Controls auf die Form:

Timer (Timer1)

CommandButton (cmdBlock)

Label (lblTime)

Beim Klicken auf die Schaltfläche sollen Tastatur und Maus für 10 Sekunden blockiert werden. Danach wieder alles normal.

Code

Option Explicit
 
' Benötigte API Deklaration
Private Declare Function BlockInput Lib "user32" ( _
  ByVal fBlock As Boolean) As Boolean

Private Sub Form_Load() 
  ' Timer-Eigenschaften
  Timer1.Enabled = False
  Timer1.Interval = 1000
End Sub

Private Sub cmdBlock_Click()
  ' Tastatur und Maus-Eingabe sperren
  cmdBlock.Enabled = False
  BlockInput True
  Timer1.Tag = 10
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
  ' Restzeit anzeigen
  lblTime.Caption = "Verbleibende Zeit: " & _
    CStr(Timer1.Tag) & " Sekunden"
  lblTime.Visible = True
  Timer1.Tag = Timer1.Tag - 1
 
  ' OK, Zeit vorbei ;-)
  If Timer1.Tag < 0 Then
    BlockInput False
    cmdBlock.Enabled = True
    lblTime.Visible = False
  End If
End Sub

@Moni:
Aber nicht wieder die lieben Arbeitskollegen damit ärgern