| |
Получить скорость повтора ввода символов |
|
| |
Данную опцию вы можете настроить непосредственно в ПанелиУправления/Клавиатура. Установите бегунок "Скорость повтора" в нужное положение.
Следующий пример покажет, как определить числовое значение установленной опции: 31 соответствует наибольшему значению скорости повтора, 0 - наименьшему.
Const SPI_GETKEYBOARDSPEED = 10
Private Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As
Long
Private Sub Form_Load()
Dim r As Long
q = SystemParametersInfo(SPI_GETKEYBOARDSPEED, 0, r, 0)
MsgBox "Скорость повтора = " & r & " символ в
секунду"
End Sub
|
|
| |
|
|
|
|