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

1/12

程序代码：
1、窗体的载入事件（Form_Load）
    Private Sub Form_Load()
    LstLeft.AddItem "刘德华"
    LstLeft.AddItem "张学友"
    LstLeft.AddItem "郭富城"
    LstLeft.AddItem "黎　明"
    LstLeft.AddItem "谭咏麟"
    LstLeft.AddItem "梅艳芳"
    LstLeft.AddItem "张曼玉"
    End Sub

2/12

2、向右按钮的点击事件（CmdRight_Click）
    Private Sub CmdRight_Click()
    LstRight.AddItem LstLeft.List(LstLeft.ListIndex)
    LstLeft.RemoveItem LstLeft.ListIndex
    End Sub

3/12

3、全部向右按钮的点击事件（CmdAllRight_Click）
    Private Sub CmdAllRight_Click()
    LstRight.AddItem "刘德华"
    LstRight.AddItem "张学友"
    LstRight.AddItem "郭富城"
    LstRight.AddItem "黎　明"
    LstRight.AddItem "谭咏麟"
    LstRight.AddItem "梅艳芳"
    LstRight.AddItem "张曼玉"
    LstLeft.Clear
    End Sub

4/12

4、向左按钮的点击事件（CmdLeft_Click）

    Private Sub CmdLeft_Click()
    LstLeft.AddItem LstRight.List(LstRight.ListIndex)
    LstRight.RemoveItem LstRight.ListIndex
    End Sub

5/12

5、全部向左按钮的点击事件：（CmdAllLeft_Click）
    Private Sub CmdAllLeft_Click()
    LstLeft.AddItem "刘德华"
    LstLeft.AddItem "张学友"
    LstLeft.AddItem "郭富城"
    LstLeft.AddItem "黎　明"
    LstLeft.AddItem "谭咏麟"
    LstLeft.AddItem "梅艳芳"
    LstLeft.AddItem "张曼玉"
    LstRight.Clear
    End Sub

6/12

注意事项:
1、窗体载入事件：
   就是窗体打开时自动加载的信息，也可以在界面设置时通过左列表框的 List 属性设定。

2、无论是部分转移，还是全部移动，都要记着将本已移动的表项在原有列表框中清除，如代码： LstLeft.RemoveItem LstLeft.ListIndex
   如果不清除，那么表项移动后，原先的表项还在原处，用户可能对同一表项多次选择。

3、第一个应用程序还没编写完，仔细看一下，哪里还需要再编写？
   没错，就是向左按钮与向右按钮的点击事件还没完善，按照上面的程序，如果在初始状态下（也就是没有选中任何表项），点击向左或向右按钮会产生程序错误。

7/12

   所以我们得在原来向左或向右按钮的事件中增加判断过程，修改后的代码如下：
   向右按钮：
    Private Sub CmdRight_Click()
    If LstLeft.SelCount > 0 Then
    LstRight.AddItem LstLeft.List(LstLeft.ListIndex)
    LstLeft.RemoveItem LstLeft.ListIndex
    End If
    End Sub

8/12

   向左按钮：

    Private Sub CmdLeft_Click()
    If LstRight.SelCount > 0 Then
    LstLeft.AddItem LstRight.List(LstRight.ListIndex)
    LstRight.RemoveItem LstRight.ListIndex
    End If
    End Sub
   看见了吧，向左与向右按钮还得增加列表框中是否有表项被选中的判断。

9/12

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

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

解决办法很简单，在全部移动时，先清除目标列表框的内容再进行移动，修改后的代码如下：

10/12

  全部向右按钮：
    Private Sub CmdAllRight_Click()
    LstRight.Clear
    LstRight.AddItem "刘德华"
    LstRight.AddItem "张学友"
    LstRight.AddItem "郭富城"
    LstRight.AddItem "黎　明"
    LstRight.AddItem "谭咏麟"
    LstRight.AddItem "梅艳芳"
    LstRight.AddItem "张曼玉"
    LstLeft.Clear
    End Sub

11/12

   全部向左按钮：
    Private Sub CmdAllLeft_Click()
    LstLeft.Clear
    LstLeft.AddItem "刘德华"
    LstLeft.AddItem "张学友"
    LstLeft.AddItem "郭富城"
    LstLeft.AddItem "黎　明"
    LstLeft.AddItem "谭咏麟"
    LstLeft.AddItem "梅艳芳"
    LstLeft.AddItem "张曼玉"
    LstRight.Clear
    End Sub

12/12

5、本节的程序只是为了让大家便于理解才这样编写的，而最为科学、最为有效的编写方法，我们将在下一节讲述。在开始下一节课程之前，大家可以将两个列表框的 Style 改成 1 即复选类型，你会发现本节所编写的程序又有很多问题了，该如何解决呢？下一节见！