|
发表于 2011-10-18 10:39:29
|
显示全部楼层
河北省张家口市
本帖最后由 elang136 于 2011-10-18 11:10 编辑
[e].版本 2
.支持库 iext
.子程序 _时钟1_周期事件
超级列表框1.现行选中项 = 超级列表框1.现行选中项 + 1
编辑框1.内容 = 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
.如果真 (超级列表框1.现行选中项 = 超级列表框1.取表项数 () - 1)
超级列表框1.现行选中项 = -1
.如果 (时钟1.时钟周期 = 0)
信息框 (“停止了!”, 0, )
.否则
.如果结束
.如果真结束
.子程序 __启动窗口_创建完毕
超级列表框1.现行选中项 = -1
时钟1.时钟周期 = 500
[/e]
.版本 2
.支持库 iext
.子程序 _时钟1_周期事件
超级列表框1.现行选中项 = 超级列表框1.现行选中项 + 1
编辑框1.内容 = 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
.如果真 (超级列表框1.现行选中项 = 超级列表框1.取表项数 () - 1)
超级列表框1.现行选中项 = -1
.如果 (时钟1.时钟周期 = 0)
信息框 (“停止了!”, 0, )
.否则
.如果结束
.如果真结束
.子程序 __启动窗口_创建完毕
超级列表框1.现行选中项 = -1
时钟1.时钟周期 = 500
|
评分
-
参与人数 1 | 荣誉 +1 |
收起
理由
|
笨潴
| + 1 |
热心帮助他人,荣誉+1,希望继续努力(*^__^. |
查看全部评分
|