大神求助之“如何利用时钟周期循环播放到编辑框1.内容”

钟先森0921

如何利用时钟周期实现点击“开始抽签”按钮，超级列表框1.标题会不断循环出现在编辑框1.内容中？然后
点击“结束抽签”按钮，结束循环的同时，删除超级列表框中被抽中的内容？

zz1318

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
启动	逻辑型

子程序名	返回值类型	公开	备 注
_开始抽签_被单击

变量名	类 型	静态	数组	备 注
i	整数型

启动 ＝ 真
开始抽签.禁止 ＝ 真
判断循环首 (启动)
计次循环首 (超级列表框1.取表项数 (), i)
编辑框1.内容 ＝ 超级列表框1.取标题 (i － 1, 0)
程序_延时 (1, 1)  ' 一秒一次
如果真 (启动 ＝ 假)
超级列表框1.删除表项 (i － 1)
跳出循环 ()

计次循环尾 ()
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_结束抽签_被单击

启动 ＝ 假
开始抽签.禁止 ＝ 假

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 启动, 逻辑型<br /> <br /> .子程序 _开始抽签_被单击<br /> .局部变量 i, 整数型<br /> <br /> 启动 ＝ 真<br /> 开始抽签.禁止 ＝ 真<br /> .判断循环首 (启动)<br />     .计次循环首 (超级列表框1.取表项数 (), i)<br />         编辑框1.内容 ＝ 超级列表框1.取标题 (i － 1, 0)<br />         程序_延时 (1, 1)  ' 一秒一次<br />         .如果真 (启动 ＝ 假)<br />             超级列表框1.删除表项 (i － 1)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .判断循环尾 ()<br /> <br /> .子程序 _结束抽签_被单击<br /> <br /> 启动 ＝ 假<br /> 开始抽签.禁止 ＝ 假

没事瞎琢磨

依次循环出现还是 随机出现啊

无痕雨

这是时钟的 自己定义多久循环一次 不过楼上的循环更好使些

szweb01

好创意，我过年就按你这个思路来搞一个抽奖的，很简单就实现了

冷渣渣

我这个多好玩 还是随机的