类_超级列表框，置行列颜色，如果删除一行会出现问题

最帅

删除行的时候 颜色会跳行删除

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
超级列表框	类_超级列表框

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

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

超级列表框.初始化 (取窗口句柄 (), 超级列表框1.取窗口句柄 ())
超级列表框.表项_初始化 ()
索引 ＝ 超级列表框1.插入表项 (, “青蓝”, , , , )
超级列表框.表项_置行列颜色 (0, 0, #黑色, #青蓝 )
索引 ＝ 超级列表框1.插入表项 (, “紫色”, , , , )
超级列表框.表项_置行列颜色 (1, 0, #黑色, #紫色 )
索引 ＝ 超级列表框1.插入表项 (, “白色”, , , , )
超级列表框.表项_置行列颜色 (2, 0, #黑色, #白色 )
索引 ＝ 超级列表框1.插入表项 (, “**”, , , , )
超级列表框.表项_置行列颜色 (3, 0, #黑色, # **)
索引 ＝ 超级列表框1.插入表项 (, “黑色”, , , , )
超级列表框.表项_置行列颜色 (4, 0, #白色, #黑色 )
索引 ＝ 超级列表框1.插入表项 (, “绿色”, , , , )
超级列表框.表项_置行列颜色 (5, 0, #黑色, #绿色 )
索引 ＝ 超级列表框1.插入表项 (, “蓝色”, , , , )
超级列表框.表项_置行列颜色 (6, 0, #黑色, #蓝色 )
索引 ＝ 超级列表框1.插入表项 (, “青绿”, , , , )
超级列表框.表项_置行列颜色 (7, 0, #黑色, #青绿 )

子程序名	返回值类型	公开	备 注
_超级列表框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

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

索引 ＝ 超级列表框1.现行选中项
输出调试文本 (到文本 (索引))
如果真 (索引 ≠ -1)
超级列表框1.删除表项 (索引)

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

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 超级列表框, 类_超级列表框<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 索引, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 超级列表框.初始化 (取窗口句柄 (), 超级列表框1.取窗口句柄 ())<br /> 超级列表框.表项_初始化 ()<br /> <br /> 索引 ＝ 超级列表框1.插入表项 (, “青蓝”, , , , )<br /> 超级列表框.表项_置行列颜色 (0, 0, #黑色, #青蓝)<br /> 索引 ＝ 超级列表框1.插入表项 (, “紫色”, , , , )<br /> 超级列表框.表项_置行列颜色 (1, 0, #黑色, #紫色)<br /> 索引 ＝ 超级列表框1.插入表项 (, “白色”, , , , )<br /> 超级列表框.表项_置行列颜色 (2, 0, #黑色, #白色)<br /> 索引 ＝ 超级列表框1.插入表项 (, “**”, , , , )<br /> 超级列表框.表项_置行列颜色 (3, 0, #黑色, #**)<br /> 索引 ＝ 超级列表框1.插入表项 (, “黑色”, , , , )<br /> 超级列表框.表项_置行列颜色 (4, 0, #白色, #黑色)<br /> 索引 ＝ 超级列表框1.插入表项 (, “绿色”, , , , )<br /> 超级列表框.表项_置行列颜色 (5, 0, #黑色, #绿色)<br /> 索引 ＝ 超级列表框1.插入表项 (, “蓝色”, , , , )<br /> 超级列表框.表项_置行列颜色 (6, 0, #黑色, #蓝色)<br /> 索引 ＝ 超级列表框1.插入表项 (, “青绿”, , , , )<br /> 超级列表框.表项_置行列颜色 (7, 0, #黑色, #青绿)<br /> <br /> .子程序 _超级列表框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> 索引 ＝ 超级列表框1.现行选中项<br /> 输出调试文本 (到文本 (索引))<br /> .如果真 (索引 ≠ -1)<br />     超级列表框1.删除表项 (索引)

测试.e (900.14 KB, 下载次数: 47)

2021-8-16 12:12 上传

点击文件名下载附件

flysnow2000

这个颜色不能动态的搞，只能在初始就放么？

自留地

看一下。

571901145

66666666666666666666666666