Search  

   

Latest News  

Problemstellung:Wenn man Etiketten drucken will steht man oft vor einigen Problemen.1. Man möchte nur ein paar Etiketten drucken und beim nächsten Druck braucht man wieder   ein neues Blatt weil freie...
   

Latest Forumposts  

  • Keine Beiträge vorhanden
   

Kommentare  

Tut mir leid Hella, ich kann Dir nicht folgen? 13.04.2017 - 14.04.2017 ergibt bei mir 1 13.04.2017 -...
Gast - Hella
Hallo, Berechne wie folgt, ob "zu früh" oder "zu spät" Rückmeldet. Früher sollte auch mit negativer ...
Gast - Hella
Hallo, mit negativen Werten meine ich z.B. -5 Tage (ohne Wochenende) u.ä. Zur Zeit wird nur die 0 au...
Hallo Hella, wie negative Werte? Kannst Du es erläutern was Du machen willst? Gruß Tommy
Gast - Hella
Hallo, ich bräuchte auch negative Werte bei der Anzahl, wie kann man das realisieren? Liebe Grüße He...
   

Counter  

1115631
HeuteHeute116
GesternGestern1114
Diese WocheDiese Woche2362
Dieser MonatDieser Monat23843
GesamtGesamt1115631
Highest 07.12.2017 : 1250
US
UNITED STATES
US

This page uses the IP-to-Country Database provided by WebHosting.Info (http://www.webhosting.info), available from http://ip-to-country.webhosting.info

   

Download Statistik  

Diese Site enthält 187 Downloads in 30 Kategorien. Gesamtdownloads bisher: 234324
   
Free live stats and visitor counter for Joomla, Wordpress, Drupal, Magento and Prestashop
   

Login

   

User Online

Total: 52 Members: 0 Guests: 52
No members online
   

Beiträge

NumLock-Taste per VBA setzen

Bewertung:  / 4
SchwachSuper 
Details

Problemstellung:

Wie kann ich mittels VBA die NumLock-Taste ein- bzw. ausschalten?
Für MS-Access00-07

Code in ein neues öffentliches Modul kopieren:

Private Const VK_NUMLOCK = &H90
 Private Const KEYEVENTF_EXTENDEDKEY = &H1
 Private Const KEYEVENTF_KEYUP = &H2
 
Private Declare Sub keybd_event Lib "user32" _
     (ByVal bVk As Byte, _
     ByVal bScan As Byte, _
     ByVal dwflags As Long, _
     ByVal dwExtraInfo As Long)
 
Private Declare Function GetKeyboardState Lib "user32" _
         (pbKeyState As Byte) As Long
 
Private Declare Function SetKeyboardState Lib "user32" _
         (lppbKeyState As Byte) As Long
 
Function SetNumLock(bStatus As Boolean) As Boolean
   Dim R As Variant
   Dim NumLockOn As Boolean
   Dim KeyTable(0 To 255) As Byte
 
  R = GetKeyboardState(KeyTable(0))
   NumLockOn = (KeyTable(VK_NUMLOCK) <> 0)
 
  If (bStatus And Not NumLockOn) Or _
               (Not bStatus And NumLockOn) Then
       keybd_event VK_NUMLOCK, _
       &H45, _
       KEYEVENTF_EXTENDEDKEY Or 0, 0
       keybd_event VK_NUMLOCK, _
       &H45, _
       KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
   End If
End Function

Aufruf:

SetNumLock False

würde die NumLock-Taste ausschalten

SetNumLock True

würde die NumLock-Taste einschalten

Einen Kommentar verfassen

Als Gast kommentieren

0 / 300 Zeichen Beschränkung
Dein Text sollte zwischen 10-300 Zeichen lang sein
Nutzungsbedingungen.

Personen in dieser Konversation

  • Gast - Köbi

    Funktioniert auch unter Windows Vista.

  • Gast - Thomas Keßler

    Als Antwort auf: Gast - Köbi

    Hallo Köbi,<br /><br />danke für den Vista Hinweis. :D