Aktivieren Sie die Num Lock-Anzeige in der Statusleiste

Question

Wie Num Lock-Anzeige ist aktiv in Excel ...

Oder aktiviert Num Lock-Anzeige in der Statusleiste

Answer 1

John, soweit ich weiß (und ich könnte falsch sein), aber die Application.Statusbar nicht geben Ihnen die Möglichkeit, mit ihm die Art und Weise zu interagieren das du willst.

Mir sind keine APIs bekannt, die das erreichen könnten, was Sie wollen. Also, bis die Zeit jemand anderes kommt und Beiträge ein Verfahren (falls vorhanden), die Antwort auf Ihre Frage ist

HTH

Answer 2

Sie Tagging Ihre Frage als C# erfassen, Ich denke, du entwickelst eine C# -App.
In ihm können Sie

if (Control.IsKeyLocked(Keys.NumLock)) 

zu erkennen, verwenden, wenn NumLock auf oder nicht.

Num-Lock setzen Sie

[DllImport("user32.dll")] 
static extern void keybd_event(byte bVk, byte bScan, uint dwFlags, int dwExtraInfo); 
private void PressKb(Keys keyCode) 
{ 
    const int KEYEVENTF_EXTENDEDKEY = 0x1; 
    const int KEYEVENTF_KEYUP = 0x2; 

    keybd_event((byte)keyCode, 0x45, KEYEVENTF_EXTENDEDKEY, 0); 
    keybd_event((byte)keyCode, 0x45, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0); 
} 

und mit ihm

PressKb(Keys.NumLock); 

Answer 3

Sie, wenn num-Lock sehen konnte nur aktiv nutzen könnte, ist, wie sicher nur die Anzeige zeigt, wenn es ohnehin aktiv ist . Wenn Sie dies in VBA tun müssen (Lösung aus here entnommen).

'put these declarations at the top of the module 
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) 
As Integer 
Private Const kNumlock = 144 

Und wo Sie es brauchen:

Public Function NumLock() As Boolean 
NumLock = KeyState(kNumlock) 
End Function 

Private Function KeyState(lKey As Long) As Boolean 
KeyState = CBool(GetKeyState(lKey)) 
End Function