Check tasto
$typecheck on
$include "RapidQ.inc"
const checkstring ="-1234567890"
declare sub edit1_keypress(key as byte)
Create Form1 as qform
Left=148
Top=98
create Edit1 as QEdit
onkeypress=edit1_keypress
Left=4
Top=4
end create
end create
'----------Initaliation code-----------
Form1.Showmodal
sub edit1_keypress(key as byte)
if instr(checkstring,chr$(key))=0 then
showmessage "This key is not allowed!"
end if
end sub
|