| |
автор: Edvard (08.07.2006 в 00:00) |
|
| | Как в Excel програмно переключать Caps Look и Num Luck
инструкции SendKeys "{CAPSLOCK}", SendKeys "{NUMLOCK}"
У меня работать не хотят Клафиши програмно срабатывают, но диоды на клавиатуре не переключаются, на панели Excel NUMLOCK появляется и через пару секунд пропадает следовательно переключение не происходит | |
| |
| |
| |
автор: ???? (08.07.2006 в 00:00) |
|
| | Re: Как в Excel програмно переключать Caps Look и Num Luck Можно, например, с помощью API:
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub press()
keybd_event vbKeyNumlock, 0, 0, 0 press
keybd_event vbKeyNumlock, 0, KEYEVENTF_KEYUP, 0 release
keybd_event vbKeyCapital, 0, 0, 0 press
keybd_event vbKeyCapital, 0, KEYEVENTF_KEYUP, 0 release
End Sub | |
| |
| |
