|
发表于 2022-9-15 14:17:52
|
显示全部楼层
浙江省温州市
oldghost 发表于 2022-9-15 14:08
[/quote ][e=4 ].版本 2 窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | XP风格 (2 )_编辑框1_内容被改变 ()空闲时间 = 取整 (系统_取空闲时间 () ÷ 1000 )如果真 (空闲时间 ≥ 到数值 (编辑框1.内容 )) 载入 (窗口1, , 真)如果 (到数值 (编辑框1.内容 ) = 0 )时钟1.时钟周期 = 0 时钟1.时钟周期 = 1000
[e=4].版本 2
.支持库 xplib
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
XP风格 (2)
_编辑框1_内容被改变 ()
.子程序 _时钟1_周期事件
.局部变量 空闲时间, 整数型
空闲时间 = 取整 (系统_取空闲时间 () ÷ 1000)
.如果真 (空闲时间 ≥ 到数值 (编辑框1.内容))
载入 (窗口1, , 真)
.如果真结束
.子程序 _编辑框1_内容被改变, , ,
.如果 (到数值 (编辑框1.内容) = 0)
时钟1.时钟周期 = 0
.否则
时钟1.时钟周期 = 1000
|
|