超级列表框删除表项的问题 有源码

hktkzyz

不太好叙述，如图，下面有源码。

目的是，删除某一项后，自动将最后一项作为现行项，并呈蓝色选中状态。
只要删除的不是最后一项，都能达到目的。但最后一项时，就会只有一个虚线框。
大家可用源码测试。
求原因和解决方法。


补充内容 (2019-10-13 23:11):
不是说删除到了只剩下最后一项时不能达到目的。而是说比如12345，有5项，当删除第5项时不能达到目的。

大司命

  

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

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

i ＝ 超级列表框1.现行选中项
如果真 (i ＝ -1)
返回 ()
超级列表框1.删除表项 (i)
如果真 (超级列表框1.取 表项数 () ≠ 0)
如果真 (i ＝ 0)
i ＝ 1
超级列表框1.现行选中项 ＝ i － 1
标签5.标题 ＝ 到文本 (超级列表框1.现行选中项)
返回 (假)  ' ***

.子程序 _超级列表框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 i, 整数型<br /> i ＝ 超级列表框1.现行选中项<br /> .如果真 (i ＝ -1)<br />     返回 ()<br /> .如果真结束<br /> 超级列表框1.删除表项 (i)<br /> .如果真 (超级列表框1.取 表项数 () ≠ 0)<br />     .如果真 (i ＝ 0)<br />         i ＝ 1<br />     .如果真结束<br />     超级列表框1.现行选中项 ＝ i － 1<br /> .如果真结束<br /> 标签5.标题 ＝ 到文本 (超级列表框1.现行选中项)<br /> 返回 (假)  ' ***

大司命

wen.e (31.12 KB, 下载次数: 13)

2019-10-13 23:16 上传

点击文件名下载附件

hktkzyz

大司命 发表于 2019-10-13 23:20
[e=5]
.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型

非常感谢。第一个完美解决问题。第2个删除后退回到上一项。赞。比我想要的更好。
原来是靠 返回（假） 来解决的，请问这是什么原理？
为何之前没有这句话的时候，删除其他项都没有问题呢，只有最后一个有问题。谢谢。