鼠标任意拖动易语言超级列表框图标

txt ＝ 超级列表框1.取标题 (鼠标按下时位置, )
图片ID ＝ 超级列表框1.取图片 (鼠标按下时位置, )
表项数 ＝ 超级列表框1.取表项数值 (鼠标按下时位置)
.如果真 (向后移 ＝ 假)
超级列表框1.删除表项 (鼠标按下时位置)
鼠标按下 ＝ 鼠标按下 － 1
.如果真结束
超级列表框1.插入表项 (, , , , , )
a ＝ 超级列表框1.取表项数 () － 1
.判断循环首 (a ＞ 鼠标按下)
超级列表框1.置标题 (a, , 超级列表框1.取标题 (a － 1, ))
超级列表框1.置图片 (a, , 超级列表框1.取图片 (a － 1, ))
超级列表框1.置表项数值 (a, 超级列表框1.取表项数值 (a － 1))
a ＝ a － 1
.判断循环尾 ()
超级列表框1.置标题 (鼠标按下, , txt)
超级列表框1.置图片 (鼠标按下, , 图片ID)
超级列表框1.置表项数值 (鼠标按下, 表项数)
.如果真 (向后移)
超级列表框1.删除表项 (鼠标按下时位置)