Rychlost opakování znaků

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

Zpět

Autor: The Bozena