Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

seperat maus / tastatur abschalten
Autor: mikerosoft[mtR]
Datum: 11.02.04 13:48
' 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 === hab ich als beispiel gefunden, aber wie kann ich nur maus oder nur tastatur blocken danke schon mal

seperat maus / tastatur abschalten	940	mikerosoft[mtR]	11.02.04 13:48
Re: seperat maus / tastatur abschalten	596	E7	11.02.04 19:01
Re: seperat maus / tastatur abschalten	540	mikerosoft[mtR]	11.02.04 19:20

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen