LIST控件的一个问题
有两个列表框，左右各一个，左边一个的Style属性为1，然后我在左边的多个项目前打勾，然后单击按钮，怎样才能一次过把左边都选中的项目自动添加到右边的那个去呢？
左边的命名为List1，右边的是List2
建立一个Command命名Command1
代码
[QUOTE]
Private Sub Command1_Click()
Dim n As Byte
For n = 0 To List1.ListCount - 1
If List1.Selected(n) = True Then
List2.AddItem List1.List(n)
End If
Next n
End Sub
Private Sub Form_Load()
List1.AddItem "ABC"
List1.AddItem "CDEF"
List1.AddItem "Visual BASIC"
List1.AddItem "Visual C++"
List1.AddItem "Linux"
End Sub
[/QUOTE]
就可以了
[此贴子已经被作者于2006-1-25 20:14:32编辑过]