请各位高手帮小女看看，在vb中，listbox如何实现item的上下移动，谢谢！！！！

Question

给两个临时变量,一个integer记住选中的是第几个(通过listindex属性),
一个string型记住选中的字符串(通过me.list(me.list.listindex)),
再removeitem listindex,
再additem listindex-1----up
或additem listindex+1----down编程序,请多看帮助

Answer 1

Private Sub MoveUp(LB As ListBox)
On Error GoTo cuowu
Dim i As Integer
Dim T As String
T = LB.Text
i = LB.ListIndex
    If LB.ListCount = 0 Or LB.ListCount = 1 Then
      Exit Sub
    ElseIf i = 0 Then
      Exit Sub
    Else
      LB.RemoveItem i
      LB.AddItem T, i - 1
    End If
    LB.SetFocus
cuowu:
    Exit Sub
End SubPrivate Sub MoveDown(LB As ListBox)
On Error GoTo cuowu
Dim i As Integer
Dim T As String
T = LB.Text
i = LB.ListIndex
    If LB.ListCount = 0 Or LB.ListCount = 1 Then
      Exit Sub
    ElseIf i = LB.ListCount - 1 Then
      Exit Sub
    Else
      LB.RemoveItem i
      LB.AddItem T, i + 1
    End If
    LB.SetFocus
cuowu:
    Exit Sub
End Sub

Answer 2

向下按钮的代码
If List1.ListIndex < List1.ListCount - 1 Then List1.ListIndex = List1.ListIndex + 1
向上按钮的代码
If List1.ListIndex > 0 Then List1.ListIndex = List1.ListIndex - 1

Answer 3

设A为你要上下移动的ITEM，先明确A的INDEX，如果上移，则其下面的ITEM的INDEX值不变，上面的ITEM因A的位置变化而发生相应变化，INDEX值可能＋1，也可能不变，视A所在位置而定，向下则反过来？
OK？
保持冷静，应该可以想清楚的嘛！

Answer 4

[菜单]外界程序-->外界程序管理器...-->vb6模版管理器-->加载
[菜单]工具-->添加控件集-->按钮列表框
VB6还有一些别的工具，自己看吧。