Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Was mach ich falsch?
Autor: MiXiToLaG
Datum: 08.08.03 03:57
Hi Ich habe folgenden Tip ausprobiert: http://www.vbarchiv.net/archiv/tipp_details.php?pid=110 Ich weiß nicht was ich falsch mache 'zunächst die benötigte API-Funktion Private Declare Function GetKeyboardState Lib "user32" _ (pbKeyState As Byte) As Long Private Declare Function SetKeyboardState Lib "user32" _ (lppbKeyState As Byte) As Long 'Diese Routine schaltet CAPS-Lock ein, 'falls ausgeschaltet und umgekehrt Public Sub KeyboardChangeState(ByVal lpKey As Long) ReDim kBuffer(256) As Byte GetKeyboardState kBuffer(0) If kBuffer(lpKey) And 1 Then kBuffer(lpKey) = 0 Else kBuffer(lpKey) = 1 End If SetKeyboardState kBuffer(0) End Sub Private Sub Command1_Click() 'CAPS-Lock ein-/ausschalten KeyboardChangeState vbKeyCapital End Sub Wenn ich auf Command1 klicke passiert irgendwie gar nix... Keine Capslock an / aus keine Fehlermeldung einfach gar nix Danke schonmal

Was mach ich falsch?	101	MiXiToLaG	08.08.03 03:57
Re: Was mach ich falsch?	285	Dieter	08.08.03 06:10
Re: Was mach ich falsch?	324	The_Exterminator	08.08.03 07:51
Re: Was mach ich falsch?	98	MiXiToLaG	08.08.03 08:01

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