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的大刮号了

阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/eqiang8271/article/details/1819903
文章标签: vb command integer
想对作者说点什么? 我来说一句

VB ListBox多列显示

2013年02月01日 3KB 下载

VB中的ListBox多列显示实例

2013年03月06日 3KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭