Postup:
Založte nový projekt, na
formulář přidejte tlačítko a label. Ve formuláři deklarujte:
Private Const SPI_GETKEYBOARDSPEED
= 10
Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA"
(ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal
fuWinIni As Long) As Long
Na událost Click tlačítka:
Private Sub Command1_click()
Dim r As Long
Dim q As Long
q = SystemParametersInfo(SPI_GETKEYBOARDSPEED, 0, r, 0)
scrRepeatSpeed = r
label1.caption = "Časová prodleva opakování = "
& r & " znaků za sekundu."
End Sub
|