超级列表框置行色源码

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 表格1, 类_超级列表框置行色
.程序集变量 表格2, 类_超级列表框置行色
.程序集变量 表格3, 类_超级列表框置行色
.程序集变量 表格4, 类_超级列表框置行色
.程序集变量 表格5, 类_超级列表框置行色
.程序集变量 表格6, 类_超级列表框置行色

.子程序 __启动窗口_首次激活

表格1.实例化超级列表框 (取窗口句柄 (), 超级列表框1)
表格2.实例化超级列表框 (取窗口句柄 (), 超级列表框2)
表格3.实例化超级列表框 (取窗口句柄 (), 超级列表框3)
表格4.实例化超级列表框 (取窗口句柄 (), 超级列表框4)
表格5.实例化超级列表框 (取窗口句柄 (), 超级列表框5)
表格6.实例化超级列表框 (取窗口句柄 (), 超级列表框6)
表格1.清除行色 ()
表格2.清除行色 ()
表格3.清除行色 ()
表格4.清除行色 ()
表格5.清除行色 ()
表格6.清除行色 ()

.子程序 _按钮1_被单击
.局部变量 a, 整数型

.计次循环首 (35, )
    a ＝ a ＋ 1
    .如果真 (a ＝ 7)
        a ＝ 0
        表格1.清除行色 ()
        表格2.清除行色 ()
        表格3.清除行色 ()
        表格4.清除行色 ()
        表格5.清除行色 ()
        表格6.清除行色 ()
    .如果真结束
    延迟 (50)
    表格1.列表框_设置颜色 (a － 1, 取颜色值 (取随机数 (10, 255), 取随机数 (10, 255), 取随机数 (10, 255)), 取颜色值 (取随机数 (10, 255), 取随机数 (10, 255), 取随机数 (10, 255)))
    延迟 (60)
    表格2.列表框_设置颜色 (a － 1, 取颜色值 (取随机数 (10, 255), 取随机数 (10, 255), 取随机数 (10, 255)), 取颜色值 (取随机数 (10, 255), 取随机数 (10, 255), 取随机数 (10, 255)))
    延迟 (70)
    表格3.列表框_设置颜色 (a － 1, 取颜色值 (取随机数 (10, 255), 取随机数 (10, 255), 取随机数 (10, 255)), 取颜色值 (取随机数 (10, 255), 取随机数 (10, 255), 取随机数 (10, 255)))
    延迟 (80)
    表格4.列表框_设置颜色 (a － 1, 取颜色值 (取随机数 (10, 255), 取随机数 (10, 255), 取随机数 (10, 255)), 取颜色值 (取随机数 (10, 255), 取随机数 (10, 255), 取随机数 (10, 255)))
    延迟 (50)
    表格5.列表框_设置颜色 (a － 1, 取颜色值 (取随机数 (10, 255), 取随机数 (10, 255), 取随机数 (10, 255)), 取颜色值 (取随机数 (10, 255), 取随机数 (10, 255), 取随机数 (10, 255)))
    延迟 (20)
    表格6.列表框_设置颜色 (a － 1, 取颜色值 (取随机数 (10, 255), 取随机数 (10, 255), 取随机数 (10, 255)), 取颜色值 (取随机数 (10, 255), 取随机数 (10, 255), 取随机数 (10, 255)))
.计次循环尾 ()

@huage88948216