Question

VB6.0 如何把第一个列表框选中的多项复制到第二个列表框中?

比如说用list2.additem itst1.text之类的，它只能复制多个选项中你选中的最后一项，这是VB的TEXT和LISTINBOX的默认就是只是最后一项。请高手跟我说说。还有，题目里要求不能使用任何变量。谢谢！

Answer 1

两个列表框，list1和list2
一个命令按钮command1
Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1

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

End Sub

我这里用了循环，所以又变量i。我就纳闷你那题目了，不允许用变量，当然也行，把所以的可能写全了就行了。

Answer 2

你的多项是全部还是其中的几项？
有区别的哦