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

作者: 来源:网络文章时间:2005-12-13 14:46:31

VB 神童教程第二章第九节——综合示例三(2)     LstRight.AddItem "张曼玉"
    LstLeft.Clear
    End Sub

    4、向左按钮的点击事件（CmdLeft_Click）
    Private Sub CmdLeft_Click()
    LstLeft.AddItem LstRight.List(LstRight.ListIndex)
    LstRight.RemoveItem LstRight.ListIndex
    End Sub

    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

    五、注意事项

    1、窗体载入事件：

    就是窗体打开时自动加载的信息，也可以在界面设置时通过左列表框的 List 属性设定。如图二：

图二

2、无论是部分转移，还是全部移动，都要记着将本已移动的表项在原有列表框中清除，如代码： LstLeft.RemoveItem LstLeft.ListIndex

如果不清除，那么表项移动后，原先的表项还在原处，用户可能对同一表项多次选择。如图三

图三

    3、第一个应用程序还没编写完，仔细看一下，哪里还需要再编写？

    没错，就是向左按钮与向右按钮的点击事件还没完善，按照上面的程序，如果在初始状态下（也就是没有选中任何表项），点击向左或向右按钮会产生程序错误。

    所以我们得在原来向左或向右按钮的事件中增加判断过程，修改后的代码如下：

    向右按钮：

    Private Sub CmdRight_Click()
    If LstLeft.SelCount > 0 Then
    LstRight.AddItem LstLeft.List(LstLeft.ListIndex)

1.VB 神童教程第二章第九节——综合示例三(1)
2.VB 神童教程第二章第九节——综合示例三(2)
3.VB 神童教程第二章第九节——综合示例三(3)
4.VB 神童教程第二章第九节——综合示例三(4)

共4页 9 7 [1] [2] [3] [4] 8 :>

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

VB 神童教程第二章第九节——综合示例三相关软件：

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
转载请注明来源：http://www.xgdown.com