listbox的使用

Question

怎樣將list1中被選中的項添加到list2中,且list1被選中的項不能與list2中的項相重復。
謝謝！

Answer 1

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 10
    List1.AddItem Str(i)
Next i
End Sub
End SubPrivate Sub List1_Click()
Dim i As LongFor i = 0 To List2.ListCount
    If List1.List(List1.ListIndex) = List2.List(i) Then Exit Sub
Next i
    
List2.AddItem List1.List(List1.ListIndex)
End Sub

Answer 2

sub command1_click()
    dim i as integer
    dim j as integer
     for i=0 to list1.count-1
          for j=0 to listcount-1
             if (list1.list(i)=list2.list(j) then exit for
          next j    if j=list2.count then
          list2.additem list1.list(i)
   end if
  next i   
end sub