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>