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

2025-05-13 15:08:15

推荐回答（2个）

回答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。我就纳闷你那题目了，不允许用变量，当然也行，把所以的可能写全了就行了。

回答2：

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