Question

VB中如何交换列表框中的两项

是在同一列表框中
假如有好多的元素
除了直接编辑list属性
利用代码如何更改其中一项的位置

Answer 1

加入两个按钮，在list里点击某一项后，点击第一个按钮，再点击list想要交换的一项，点第二个按钮，点是后交换那两项数据
Dim a
Dim c
Private Sub Command1_Click()
a = List1.ListIndex
c = List1.Text
End Sub

Private Sub Command2_Click()
b = List1.ListIndex
z = MsgBox("是否交换数据", vbYesNo)
If z = vbYes Then
temp = List1.Text
List1.List(b) = c
List1.List(a) = temp
Else
Exit Sub
End If
End Sub

Answer 2

没有办法了，只能deleteitem然后additem