超级列表框选择表项

cunanhai

超级列表框 循环判断   当前状态图片=1   然后这个表项就显示被点击的背景 延时10秒判断下一个表项

这个怎么让他显示被点击时的蓝色背景?

zainex

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

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

超级列表框1.获取焦点 ()
计次循环首 (超级列表框1.取表项数 (), 数)
如果真 (超级列表框1.取当前状态图片 (数 － 1) ＝ 1)
超级列表框1.现行选中项 ＝ 数 － 1
超级列表框1.保证显示 (数 － 1)
延迟 (200)
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数, 整数型<br /> <br /> 超级列表框1.获取焦点 ()<br /> .计次循环首 (超级列表框1.取表项数 (), 数)<br />     .如果真 (超级列表框1.取当前状态图片 (数 － 1) ＝ 1)<br />         超级列表框1.现行选中项 ＝ 数 － 1<br />         超级列表框1.保证显示 (数 － 1)<br />     .如果真结束<br />     延迟 (200)<br /> .计次循环尾 ()

效果:

例子.zip (1.18 KB, 下载次数: 15)

2025-12-9 20:30 上传

点击文件名下载附件

Marvin

.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口
.程序集变量 当前选中索引, 整数型
.程序集变量 是否正在循环, 逻辑型

.子程序 _按钮_开始循环_被单击
.局部变量 i, 整数型
.局部变量 表项数, 整数型

如果真 (是否正在循环)
    返回 ()
是否正在循环 ＝ 真

表项数 ＝ 超级列表框1.取表项数 ()
.计次循环首 (表项数, i)
    超级列表框1.保证显示 (i － 1)  ' 确保表项可见
   
    ' 取消上一个选中项的背景色
    .如果 (当前选中索引 ≥ 0)
        超级列表框1.置背景色 (当前选中索引, #白色)
    .如果结束
   
    ' 设置当前表项为选中状态
    超级列表框1.置状态图片 (i － 1, 1)  ' 状态图片索引1（通常是勾选状态）
    超级列表框1.置背景色 (i － 1, #蓝色)  ' 设置蓝色背景
    超级列表框1.现行选中项 ＝ i － 1  ' 设置为当前选中项
   
    当前选中索引 ＝ i － 1
   
    ' 刷新显示
    超级列表框1.重画 ()
    处理事件 ()
   
    ' 延时10秒
    延时 (10000)
   
    ' 判断下一个表项的状态图片是否为1
    处理事件 ()  ' 允许用户操作
.计次循环尾 ()

是否正在循环 ＝ 假

.子程序 _按钮_停止循环_被单击
是否正在循环 ＝ 假

cunanhai

Marvin 发表于 2025-12-9 20:26
.版本 2
.支持库 iext

兄弟 AI并不可靠