Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Tastendruck
Autor: t!CT@c
Datum: 28.06.07 10:22
Diese Abfrage funktioniert systemweit: Das in ein Modul: Private Declare Function GetAsyncKeyState Lib _ "user32.dll" (ByVal nVirtKey As Long) As Integer Private Const KeyPressed As Integer = -32767 Timer erstellen mit intervall 20 in Timerevent: Dim HotKey As Long HotKey = vbKey1 'Die 1 Taste If GetAsyncKeyState(HotKey) <> KeyPressed Then 'Deine Sachen End If HotKey = vbKey2 'Die 2 Taste If GetAsyncKeyState(HotKey) <> KeyPressed Then 'Deine Sachen End If HotKey = vbKey3 'Die 3 Taste If GetAsyncKeyState(HotKey) <> KeyPressed Then 'Deine Sachen End If (es kann sein das du auf manchen pc´s die "<>" durch "=" ersetzen musst Wenn du andere Tastencodes brauchst: http://www.vbarchiv.net/forum/read.php?f=2&i=82886&t=82884

Tastendruck	623	rsonline	28.06.07 09:04
Re: Tastendruck	391	t!CT@c	28.06.07 10:22
Re: Tastendruck	364	ProofP	01.07.07 21:14
Re: Tastendruck	350	t!CT@c	02.07.07 09:06

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