title image


Smiley Re: Sendkeys "{Enter}" killt NUMLOCK
Hallo Birgit,du hast recht, das ist ein Bug.Lösung:'Funktion um Nummernblock wieder zu aktivierenPrivate Declare Function GetKeyState Lib "User32" (ByVal nVirtKey As Long) As IntegerPrivate Declare Function GetKeyboardState Lib "User32" (pbKeyState As Byte) As LongPrivate Declare Function SetKeyboardState Lib "User32" (lppbKeyState As Byte) As LongPrivate Sub SetKeyState(intKey As Integer, fTurnOn As Boolean)Dim abytBuffer(0 To 255) As ByteGetKeyboardState abytBuffer(0)abytBuffer(intKey) = CByte(Abs(fTurnOn))SetKeyboardState abytBuffer(0)End Sub" AurufSendKeys "{ENTER}"Call SetKeyState(vbKeyNumlock, 1)Das müßte funktionieren.Viel Spaß!joana

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: