' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' 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



' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb