如图，类似图中选工质的功能。想要点Add能将左边所选一项移到右边（是移，不是复制，左边相应项消失，出现在右边），remove类似，求大神解答该怎么解决。万方感谢！

大神门都在吃午饭 ？？

 Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        Dim item As Object
        Dim iItem As Integer

        iItem = lstLeft.SelectedIndex
        If iItem < 0 Then Return
        item = lstLeft.Items(iItem)

        lstRight.Items.Add(item)
        lstLeft.Items.RemoveAt(iItem)

    End Sub

remove代码类似

Private Sub add_Click()        '此命令实现列表框1里被选中的表项移动到列表框2里
i = 0
Do While i < List1.ListCount        ' 对列表框1依次进行判断
 If List1.Selected(i) = True Then   '如果此表项被选中
   List2.AddItem List1.List(i)      '那么列表框2在相应位置添加此表项
   List1.RemoveItem i               '列表框1中删除此表项
 Else
   i = i + 1
 End If
Loop
End Sub
(remove代码类似)



[ 本帖最后由 jun20131204 于 2014-7-25 09:43 编辑 ]