Question

vb 单击command使listbox记录下移一条

Answer 1

大概例子，没有细调试：

Private Sub Command1_Click()
If List1.ListIndex < List1.ListCount Then
List1.Tag = List1.List(List1.ListIndex)
List1.List(List1.ListIndex) = List1.List(List1.ListIndex + 1)
List1.List(List1.ListIndex + 1) = List1.Tag
List1.ListIndex = List1.ListIndex + 1

List1.Tag = ""

End If

End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 9
List1.AddItem i
Next

End Sub

追问

修改后可用。
如果让记录上移呢？再麻烦一下！

追答

Private Sub Command2_Click()
If List1.ListIndex > 0 Then
List1.Tag = List1.List(List1.ListIndex-1)
List1.List(List1.ListIndex-1) = List1.List(List1.ListIndex)
List1.List(List1.ListIndex ) = List1.Tag
List1.ListIndex = List1.ListIndex - 1

List1.Tag = ""

End If

End Sub

大概这样，没测试，你自己测试吧。

追问

这是这么改的，为什么回退的不对？请指教！

追答

List1.ListIndex = List1.ListIndex - 1往后放，要先交换数据，然后再移选择。

看看我的原代码。

追问

点右键时，无法退回到1，

问题出在哪里？

追答

按你下移的位置放List1.ListIndex = List1.ListIndex - 1

还有List1.Tag = List1.List(List1.ListIndex-1)

你自己弄吧。

追问

学生愚笨，还是没弄出来，这可怎么整呢？