[e]
.版本 2
.支持库 spec
.支持库 iext
.子程序 _按钮3_被单击, , , 开始线程
id = 创建线程 (0, 0, &_按钮4_被单击, 0, 0, id)
.子程序 _按钮4_被单击, , , 执行线程子程序
.计次循环首 (1000, 计数)
计数 = 计数 + 0
调试输出 (计数)
延迟 (300)
.如果 (计数 = 2)
调试输出 (“数字已久到达2”)
_执行我_被单击 ()
' 挂起线程 (id)
.否则
.如果 (计数 = 3)
调试输出 (“数字已久到达3”)
_执行我_被单击 ()
挂起线程 (id) ' 挂起线程在执行(_执行我_被单击)
.否则
.如果结束
.如果结束
.计次循环尾 ()
.子程序 _执行我_被单击, , , 执行完之后在恢复线程, 在执行线程子程序
.局部变量 i, 整数型
.计次循环首 (超级列表框1.取表项数 (), 计数)
超级列表框1.选择表项 (1 + 1)
调试输出 (计数, “计数”, “打卡成功”)
延迟 (200)
超级列表框1.置标题 (超级列表框1.现行选中项, 3, “打卡成功”)
恢复线程 (id)
.计次循环尾 ()
[/e] |