用Vb如何实现下面的效果,具体我说不明白，看图，谢谢

Question

图片地址在:
http://www.harde.com.cn/u/harde/344.shtml能把 文本 左右传递就行。我很菜，请附源码，谢谢。

Answer 1

Private Sub cmdLeftAll_Click()
    On Error Resume Next
    Dim i As Integer
    If lstSelected.ListCount = 0 Or lstSelected.ListIndex = -1 Then
        Exit Sub
    End If
    For i = 0 To lstSelected.ListCount - 1
        lstAll.AddItem lstSelected.List(i)
        RaiseEvent ItemMoved(i, lstSelected.NewIndex, -1)
    Next
    lstSelected.Clear
    lstAll.ListIndex = 0
End SubPrivate Sub cmdLeftOne_Click()
    On Error Resume Next
    Dim i As Integer
    If lstSelected.ListCount = 0 Or lstSelected.ListIndex = -1 Then
        Exit Sub
    End If
    lstAll.AddItem lstSelected.Text
    i = lstSelected.ListIndex
    lstSelected.RemoveItem i
    If lstSelected.ListCount > 0 Then
        If i > lstSelected.ListCount - 1 Then
            lstSelected.ListIndex = i - 1
        Else
            lstSelected.ListIndex = i
        End If
    End If
    lstAll.ListIndex = lstAll.NewIndex
    RaiseEvent ItemMoved(i, lstAll.NewIndex, -1)
End SubPrivate Sub cmdRightAll_Click()
    On Error Resume Next
    Dim i As Integer
    If lstAll.ListCount = 0 Or lstAll.ListIndex = -1 Then
        Exit Sub
    End If
    For i = 0 To lstAll.ListCount - 1
        lstSelected.AddItem lstAll.List(i)
        RaiseEvent ItemMoved(i, lstSelected.NewIndex, 1)
    Next
    lstAll.Clear
    lstSelected.ListIndex = 0
End SubPrivate Sub cmdRightOne_Click()
    On Error Resume Next
    Dim i As Integer
    If lstAll.ListCount = 0 Or lstAll.ListIndex = -1 Then
        Exit Sub
    End If
    lstSelected.AddItem lstAll.Text
    i = lstAll.ListIndex
    lstAll.RemoveItem i
    If lstAll.ListCount > 0 Then
        If i > lstAll.ListCount - 1 Then
            lstAll.ListIndex = i - 1
        Else
            lstAll.ListIndex = i
        End If
    End If
    lstSelected.ListIndex = lstSelected.NewIndex
    RaiseEvent ItemMoved(i, lstSelected.NewIndex, 1)
End Sub这段代码就是你主要看的
其他的大部分都是跟控件的属性定义,读写有关的

Answer 2

Private Sub cmdLeftOne_Click()
    On Error Resume Next
    Dim i As Integer
    If lstSelected.ListCount = 0 Or lstSelected.ListIndex = -1 Then
        Exit Sub
    End If
    lstAll.AddItem lstSelected.Text
    i = lstSelected.ListIndex
    lstSelected.RemoveItem i
    If lstSelected.ListCount > 0 Then
        If i > lstSelected.ListCount - 1 Then
            lstSelected.ListIndex = i - 1
        Else
            lstSelected.ListIndex = i
        End If
    End If
    lstAll.ListIndex = lstAll.NewIndex
    RaiseEvent ItemMoved(i, lstAll.NewIndex, -1)
End Sub
比如看这一段
其实就是在一个listview中选择一条记录
然后点按钮
则把该记录从这个listview中删除
并在另一个listview中增加这条记录

Answer 3

晕,错了
是list控件,不是listview
哈哈

Answer 4

晕，忘了ListBox这个控件了。
非常感谢datou985(^\会急转弯儿的猪/^) 这位朋友