vb列表框移动问题

来源：百度知道 编辑：UC知道 时间：2024/06/06 19:59:02
单击“上移一个”按钮将当前在列表框中选择的书在列表框中上移一个位置，如果没有选择书就按此按钮，给出警告。对第一个书名做上移也给出警告。
4）单击“下移一个”按钮将当前在列表框中选择的书在列表中下移一个位置，如果没有选择书就按此按钮。对最后一个书名做下移也给出警告。

Private Sub 上移一个_Click()
a = List1.ListIndex
If 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 < 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