Question

vb列表框移动问题

单击“上移一个”按钮将当前在列表框中选择的书在列表框中上移一个位置，如果没有选择书就按此按钮，给出警告。对第一个书名做上移也给出警告。
4）单击“下移一个”按钮将当前在列表框中选择的书在列表中下移一个位置，如果没有选择书就按此按钮。对最后一个书名做下移也给出警告。

Answer 1

Private Sub 上移一个_Click()
a = List1.ListIndex
If a = -1 Then
MsgBox "没有选择x"
ElseIf a > 0 Then
tmp$ = List1.List(a)
List1.List(a) = List1.List(a - 1)
List1.List(a - 1) = tmp$
List1.ListIndex = a - 1
Else
MsgBox "已到顶"
End If
End Sub

Private Sub 下移一个_Click()
a = List1.ListIndex
If a = -1 Then
MsgBox "没有选择x"
ElseIf a < List1.ListCount - 1 Then
tmp$ = List1.List(a)
List1.List(a) = List1.List(a + 1)
List1.List(a + 1) = tmp$
List1.ListIndex = a + 1
Else
MsgBox "已到底"
End If
End Sub