如何实现这种功能 - 编程论坛

#2

chen3bing2018-10-29 09:09

只有本站会员才能查看附件，请登录

还有这个功能，点击上移按钮，listbox1控件高亮显示的行上移，
点击下移按钮,listbox1控件高亮显示的行下移。

#3

yingshu2018-10-29 09:15

Private Sub command1_Click()
  On Error Resume Next
  Dim i As Integer
  For i = 0 To lstleft.ListCount - 1
    lstright.AddItem lstAll.List(i)
  Next
  lstleft.Clear
  lstright.ListIndex = 0
End Sub

#4

yingshu2018-10-29 09:19

Private Sub cmdUp_Click()
  On Error Resume Next
  Dim nItem As Integer

  With listview1
    If .ListIndex < 0 Then Exit Sub
    nItem = .ListIndex
    If nItem = 0 Then Exit Sub  '不能将第一个项目向上移动
    '向上移动项目
    .AddItem .Text, nItem - 1
    '删除旧的项目
    .RemoveItem nItem + 1
    '选择刚刚被移动的项目
    .Selected(nItem - 1) = True
  End With
End Sub

Private Sub cmdDown_Click()
  On Error Resume Next
  Dim nItem As Integer

  With listview1
    If .ListIndex < 0 Then Exit Sub
    nItem = .ListIndex
    If nItem = .ListCount - 1 Then Exit Sub '不能将最后的项目向下移动
    '向下移动项目
    .AddItem .Text, nItem + 2
    '删除旧的项目
    .RemoveItem nItem
    '选择刚刚被移动的项目
    .Selected(nItem + 1) = True
  End With
End Sub

#5

wmf20142018-10-29 09:21

应该很容易完成的功能，我觉得楼主还是脚踏实地多学习吧。

#6

anonymous_012018-10-31 11:04

你先学习一下listbox控件