vb 的 listbox学习心得

Private Sub Command1_Click()
If leftList.SelCount > 0 Then
rightList.AddItem leftList.List(leftList.ListIndex)
leftList.RemoveItem leftList.ListIndex
End If
End Sub
'有bug 这样的话虽然选择了checkbox但是哪个蓝条不在最底显示时就会出现没有选择的也会移动到右边

Private Sub Command3_Click()
If rightList.SelCount > 0 Then
leftList.AddItem rightList.List(rightList.ListIndex)
rightList.RemoveItem rightList.ListIndex
End If
End Sub

Private Sub Command5_Click()
leftList.AddItem ("新添加")
End Sub

Private Sub Command6_Click()
leftList.RemoveItem leftList.ListIndex
End Sub
 

'有bug 这样的话虽然选择了checkbox但是哪个蓝条不在最底显示时就会出现没有选择的也会移动到右边

有待解决!!打算使用for循环进行。

当用以下代码实现复选框时就不会出现上面的情况：

Private Sub Command7_Click()
Dim x As Integer
    While leftList.SelCount > 0
        For x = 0 To leftList.ListCount - 1
            If leftList.Selected(x) = True Then
                rightList.AddItem leftList.List(x)
                leftList.RemoveItem (x)
                Exit For
            End If
        Next x
    Wend

End Sub

 

exit for即break
next就是for的大刮号了