Status dei tasti
''get the status of the toggle keys
$include "rapidq.inc"
$typecheck on
''see sendkey example for more virtual key's
const VK_INSERT=&h2D
const VK_CAPITAL=&h14
Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (nVirtKey As Long) As Integer
declare sub richedit_keyup
Create Form1 as qform
Left=148
Top=90
create Richedit1 as QRichedit
onkeyup=richedit_keyup
Height=154
Left=4
TabOrder=8
Top=4
end create
end create
'----------Initaliation code-----------
call richedit_keyup
Form1.Showmodal
sub richedit_keyup
if GetKeyState(VK_INSERT)=true then
richedit1.text="insertkey = on"
else
richedit1.text="insertkey = off"
end if
if GetKeyState(VK_CAPITAL)=true then
richedit1.addstrings "capslock = on"
else
richedit1.addstrings "capslock = off"
end if
end sub
|