发信人: foxzz()
整理人: hunter__fox(2002-03-16 23:13:58), 站内信件
|
请参考:
设立含有可视控件timer的类tstimer,假设在tsbase.vcx中
设置timer控件的属性interval=10000
timer event:
if messagebox("是否退出应用系统?",4+32+0,"信息")=6
&& CLEAR EVENTS
&& quit
endif
在主程序中:
SET CLASSLIB TO tsbase
oApp = CREATEOBJECT("tstimer")
IF TYPE('oApp') = "O"
** oApp.
endif
read event
--------------------------------------------------------------------------------
当前位置:
Netease BBS
|
|