列表框里面的内容怎么样上移重新排顺序

君凌天下

列表框里面的内容怎么样上移重新排顺序，比如我选择列表框里的一个选项，然后按一个按钮之后，他会向上移动一格！！！请大神解。。。

q794601399

1.     个数 = 列表框.得到个数("列表框0")
   
2.     如果(个数 == 1)
   
3.         返回 -1
   
4.     如果结束
   
5.     编号 = 列表框.得到选项("列表框0")
   
6.     如果(编号 > 0)
   
7.         内容 = 列表框.得到选中文本("列表框0")
   
8.         列表框.删除文本("列表框0", 编号)
   
9.         列表框.插入文本("列表框0", 内容, 编号 - 1)
   
10.     否则
    
11.         
    
12.     如果结束

复制代码

a837198

序号=列表框.得到选项("列表框0")
wenben=列表框.获得文本("列表框0",序号)   
列表框.删除文本("列表框0",序号)   
列表框.插入文本("列表框0",wenben,序号-1)

试试这个

如果不行 就用遍历  吧列表框中的所欲内容读出来  按照你自己的顺序排好   再重新写进去