Консультация № 18603
22.03.2005, 13:42
0.00 руб.
0 1 1
Здравствуйте уважаемые эксперты. Возник такой вопрос, как мне на VB6.0 сделать так, чтобы при нажатии на кнопку загаралась или погасала любая из заранее выбранных лампочек Num Lock, Caps Loock, Scroll Lock? Пожалуйста пришлите пример.

Обсуждение

Неизвестный
22.03.2005, 16:30
общий
это ответ
Здравствуйте, Oleinik D.V!
Натягиваем на форму три кнопки, вписываем код:
<i>
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_SCROLL = &H91
Private Const VK_NUMLOCK = &H90
Private Const VK_CAPITAL = &H14
Const KEYEVENTF_KEYUP = &H2 ‘событие отпускания клавиши
Private Sub Command1_Click()
Call keybd_event(VK_SCROLL, 0, 0, 0) ‘Hажимаем Scroll Lock
Call keybd_event(VK_SCROLL, 0, KEYEVENTF_KEYUP, 0) ‘Отпускаем Scroll Lock
End Sub
Private Sub Command2_Click()
Call keybd_event(VK_NUMLOCK, 0, 0, 0) ‘Hажимаем Num Lock
Call keybd_event(VK_NUMLOCK, 0, KEYEVENTF_KEYUP, 0) ‘Отпускаем Num Lock
End Sub
Private Sub Command3_Click()
Call keybd_event(VK_CAPITAL, 0, 0, 0) ‘Hажимаем Caps Lock
Call keybd_event(VK_CAPITAL, 0, KEYEVENTF_KEYUP, 0) ‘Отпускаем Caps Lock
End Sub
Private Sub Form_Load()
Command1.Caption = "Нажать Scroll Lock"
Command2.Caption = "Нажать Num Lock"
Command3.Caption = "Нажать Caps Lock"
End Sub
</i>
Форма ответа