怎么实现VB列表框中选中项移动到最后一项？？

假设有n行，选中项在第i行，先将其移至n+1行，然后从i+1行开始向上移动一行，一直至n+1行为止追问

你用的是FOR循环
能不能FOR循环就实现吗？

追答

其他方法不知道

本回答被提问者采纳

就要用楼上的答案的。list1.listindex的意思是选中项是第几项（索引号），list1.list(n)的意思是第n项的内容（选中项的文本内容）。additem是添加新项目，list1.additem
str,
0这句话就是把选中项添加到第一项的意思，用0是因为列表框的第一项是从0开始的，list1.removeitem
n
+
1的意思是向下移动一项，为新加入的腾地方，最后一句是更新。

很简单 就是 用AddItem 例如 L1.AddItem T1.Text 就是将T1文本框中的文字添加到L1中。
默认的是最后一项 到第一