VB6.0 如何把第一个列表框选中的多项复制到第二个列表框中?
比如说用list2.additemitst1.text之类的，它只能复制多个选项中你选中的最后一项，这是VB的TEXT和LISTINBOX的默认就是只是最后一项。请高手跟...
比如说用list2.additem itst1.text之类的，它只能复制多个选项中你选中的最后一项，这是VB的TEXT和LISTINBOX的默认就是只是最后一项。请高手跟我说说。还有，题目里要求不能使用任何变量。谢谢！
展开
2个回答
展开全部
两个列表框，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。我就纳闷你那题目了，不允许用变量，当然也行，把所以的可能写全了就行了。
一个命令按钮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。我就纳闷你那题目了，不允许用变量，当然也行，把所以的可能写全了就行了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
