在ListView1中如何将选择的项移动到另一个Listview中？

Question

如题

Answer 1

一个删除项，一个添加项
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/

Answer 2

demon不愿写，“……移栋到……”，就是这样处理（要把左边的移到右边，左边的删除一项，右边的添加一项）

Answer 3

Private Sub Form_Load()ListView1.ColumnHeaders.Add , , "数据1"
ListView1.View = lvwReport
For i = 1 To 20
ListView1.ListItems.Add , , i & 20 - i
Next
ListView2.ColumnHeaders.Add , , "数据2"
ListView2.View = lvwReport
End SubPrivate Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
ListView1.ListItems.Remove (Item.Index)
ListView2.ListItems.Add , , Item
End SubPrivate Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
ListView1.ListItems.Remove (Item.Index)
ListView2.ListItems.Add , , Item
End Sub