VB:将list1的内容全部添加到list2的问题

If List1.Selected(i) = True Then
List2.AddItem List1.List(i)
如果换行就 加个 End If

If List1.Selected(i) = True Then
List2.AddItem List1.List(i)
End If

要不就写在一行
If List1.Selected(i) = True Then List2.AddItem List1.List(i)

那样的话 代码应该是没问题的，在VB里运行实现了添加到list2中，
楼主要的效果是不是要从list1中删除掉选中项

'将list1中选中项转移到list2中
Private Sub Command1_Click()
List2.Clear
Dim i As Integer
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) = True Then
List2.AddItem List1.List(i), 0
List1.RemoveItem i
End If

Next i

End Sub
另外,虚机团上产品团购,超级便宜

list1.list 是一个数组形式的内容，
你应该写
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next i

楼上常规办法,OK
,
可能可以控件对控件,
但我没试过.