谁来帮忙解惑 关于超级列表框的一些问题

还乡河之子

本人用时钟组件来控制超级列表框项目向下自动运行，虽然已经写好 但是 在实际操作的时候
遇到困难，就是脚本（或者说表项）是跳着运行的 没准是跳几行~~让我苦恼 希望有热心人士帮忙检验一下
怎么才能更好的控制！以下是代码部分
.版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 N, 整数型
.程序集变量 M, 逻辑型, , , M等于真，表示循环开始
.子程序 _时钟1_周期事件
N ＝ N ＋ 1
.如果真 (N ＝ 超级列表框1.取表项数 () ＋ 1)
    N ＝ 0
    .如果真 (M ＝ 假)
        时钟1.时钟周期 ＝ 0
    .如果真结束
.如果真结束
超级列表框1.现行选中项 ＝ N － 1
超级列表框1.获取焦点 ()
超级列表框1.保证显示 (N)
处理事件 ()

.子程序 _按钮1_被单击
时钟1.时钟周期 ＝ 300




再有就是双击表项向下运行的问题 可能写的有问题 不能运行 还请一并帮忙解决 谢谢

fsjoe

你的代码我没发现问题，所以复制到程序试运行，但一切正常
可能是你其他代码影响了
放上我的程序，你试运行看看

还乡河之子

但是我找半天原因 没找到为什么不是一条一条的运行 而是不定格数的跳呢~~~

还乡河之子

继续顶~~~~~~~~~~~~

小马过河

你的没问题，我改了一下你再试试
.版本 2
.支持库 iext

.程序集 窗口程序集1
.程序集变量 N, 整数型
.程序集变量 a
.程序集变量 M, 逻辑型, , , M等于真，表示循环开始

.子程序 子程序1



.子程序 _时钟1_周期事件


.如果真 (N ＝ 超级列表框1.取表项数 () ＋ 1)
    N ＝ 0
    .如果真 (M ＝ 假)
        时钟1.时钟周期 ＝ 0
    .如果真结束

.如果真结束
超级列表框1.现行选中项 ＝ N － 1
超级列表框1.获取焦点 ()
超级列表框1.保证显示 (N)
N ＝ N ＋ 1
处理事件 ()


.子程序 _按钮1_被单击

时钟1.时钟周期 ＝ 300

.子程序 _按钮2_被单击

超级列表框1.插入表项 (a, “大家好”, , , , )
a ＝ a ＋ 1

.子程序 _超级列表框1_表项被激活

时钟1.时钟周期 ＝ 300