VB 神童教程第二章第九节——综合示例三

VB 神童教程第二章第九节——综合示例三(3)     LstLeft.RemoveItem LstLeft.ListIndex
    End If
    End Sub

    向左按钮：
    Private Sub CmdLeft_Click()
    If LstRight.SelCount > 0 Then
    LstLeft.AddItem LstRight.List(LstRight.ListIndex)
    LstRight.RemoveItem LstRight.ListIndex
    End If
    End Sub

    看见了吧，向左与向右按钮还得增加列表框中是否有表项被选中的判断。

    4、大家先移动左列表框中的一个项目到右列表框中，然后再全部移过去，你又会发现什么样的问题呢？

    这时，你会发现右列表框的项目多了一项，而这多出来的表项正是最先移过去的那个项目，那么，全部移动的按钮还需要加以完善。如图四：

图四