如何双击我list1的内容加到list2呢?

Question

如何双击我list1的内容加到list2呢?

Answer 1

Private Sub Form_Load()
For i = 1 To 10
List1.AddItem i ^ 2
Next
End SubPrivate Sub List1_DblClick()
List2.AddItem List1.List(List1.ListIndex)
End Sub

Answer 2

多谢,不过我要求假如 list1的内容已经添加到 list2 就不要添加,
                    list1的内容添加到list2,list1自己就删除,
请帮忙!!

Answer 3

第一种方法:
  List1中的List項添加到List2中后,就將List1中相應的項刪去,可防止重復添加的情況發生.
  也就是:
Private Sub List1_DblClick()
    List2.AddItem List1.List(List1.ListIndex)
    List1.RemoveItem List1.ListIndex
End Sub第二种方法:
    在每次雙擊List1時檢查List2中有無該項,如果有就退出
Private Sub List1_DblClick()
    Dim i As Integer
    For i = 0 To List2.ListCount - 1
        If List2.List(i) = List1.List(List1.ListIndex) Then Exit Sub
    Next
    List2.AddItem List1.List(List1.ListIndex)
    List1.RemoveItem List1.ListIndex
End Sub

Answer 4

Private Sub List1_DblClick()
    List2.AddItem List1.Text
    List1.RemoveItem List1.ListIndex
End Sub在双击后List1.List(List1.ListIndex)与List1.Text的值相同。
我习惯用后者，可以少写一点代码。

Answer 5

Dim iDo while i< list1.listcount
 If list1.Selected(i) =TRUE Then
    list2.Additem  list1.list(i)
    list1.RemoveItem i
 Else
    i=i+1
 End If
Loop