VB列表框 元素移动问题

给你两个列表框 (list1 list2)

一个文本框(text1)

添加按钮(TJ)(将Text1 的内容添加到 list 1 中)

向上移动按钮(SY)

向下移动按钮(XY)

List 1 内容不变 list 2 中显示排序后的结果

请高手指教

解决方法如下：看是否是你想要的？别忘了给我加分！！

Private Sub Command1_Click()
List1.AddItem (Text1.Text)
List2.AddItem (Text1.Text)
End Sub

Private Sub Command2_Click()
s = List2.ListIndex
If s = 0 Then Exit Sub
temp = List2.List(s)
List2.List(s) = List2.List(s - 1)
List2.List(s - 1) = temp
List2.Selected(s) = False
List2.Selected(s - 1) = True

End Sub

Private Sub Command3_Click()
x = List2.ListIndex
If x = n - 1 Then Exit Sub
temp = List2.List(x)
List2.List(x) = List2.List(x + 1)
List2.List(x + 1) = temp
List2.Selected(x) = False
List2.Selected(x + 1) = True

End Sub

“向上移动按钮(SY)

向下移动按钮(XY)

List 1 内容不变 list 2 中显示排序后的结果”

没表述清楚，不明白你什么意思。