Question

vb list1 选中项导入 list2

list1 的 style 是 1-CheckBox

Answer 1

给你个简单的例子 你创建俩个列表框 先在Listzuo中添加好几个项。再画一个Cmdyou按钮
Private Sub cmdyou_Click() '按钮
Dim x As Integer '声明变量X为数值型
While lstzuo.SelCount > 0 '循环，当左边的列表框（Lstzuo）有被选中时，
For x = 0 To lstzuo.ListCount - 1 '循环X的值，0到列表框的项总数
If lstzuo.Selected(x) = True Then '判断，如果列表框左（Lstzuo）第X项被选中，那么
lstyou.AddItem lstzuo.List(x) '列表框右（lstyou）增加 列表框左中被选中的内容，
lstzuo.RemoveItem x '删除列表框左中被选中的内容
Exit For '结束循环 ，这里注意：必须先结束For循环，在结束判断
End If '结束判断
Next x
Wend '如果While循环条件不被满足，则结束循环
End Sub

不懂追问

Answer 2

dim i as integer

for i=0 to list1.listcount-1
if list1.Selected(i) = True then list2.additem list1.list(i)
next

Answer 3

Private Sub Command1_Click()
List2.Clear
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
List2.AddItem List1.List(i)
End If
Next
End Sub

Answer 4

YES OK

追问

大哥详细一点吗？？？

追答

一楼已经回答你了.