‘ set new values for keyboard speed and delay” DELAY is the timeout after which auto.repeat starts’ can range from 0 (250ms) to 3 (1 sec)’ SPEED is the speed of auto-repeat’ can range from 0 (2.5 repetitions/sec) to’ to 31 (about 30 repetitions/sec)’ If MAKEPERMANENT is True, then these
Private Declare Function SystemParametersInfo Lib “user32” Alias _ “SystemParametersInfoA” (ByVal uAction As Long, ByVal uParam As Long, _ ByRef lpvParam As Any, ByVal fuWinIni As Long) As LongConst SPI_GETKEYBOARDDELAY = 22Const SPI_GETKEYBOARDSPEED = 10′ retreive current values for keyboard speed and delay” DELAY is the timeout after which auto.repeat starts’
Private Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As _ Integer’ Return True if all the specified keys are pressed” you can specify individual keys using VB constants, ‘ e.g. If KeysPressed(vbKeyControl, vbKeyDown) Then …Function KeysPressed(ByVal KeyCode1 As KeyCodeConstants, _ Optional ByVal KeyCode2 As KeyCodeConstants, Optional ByVal KeyCode3
Private Declare Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” (dest As _ Any, source As Any, ByVal Bytes As Long)’ compress a block of memory (a string, an array, a bitmap)’ using the RLE compression algorithm” Returns True if the block has been compressed,’ False if the compression would create a
‘——————————————-‘ PerformanceTimer class module’——————————————-‘ Use this class to profile your code and any other operation’ typically with a precision greater than 1 millionth of a second” As soon as you create an object, the timer starts’ but you can also start it explicitly with StartTimer’ Stop the timer and retrieve