vb神童教程——综合示例三

《vb神童教程——综合示例三》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、VB 神童教程第二章第九节——综合示例三作者：未知    阅读人次：38654    文章来源：未知    发布时间：2004-12-15    网友评论(72)条 前面我们学了列表框控件（ListBox）与组合框控件（ComboBox），本节将就它们制作一个简单的应用程序。一、程序界面：界面如图一     图一二、程序目的：两个列表框，左列表框（LstLeft）罗列了一些歌手名字，右列表框（LstRight）初始状态为空；点击向右按钮（CmdRight），可以将左列表框中的指定选项移动到右边列表框；点击全部向右按钮（CmdAllRight），可以将左列表框中所有的内容搬到右列表框中

2、；点击向左按钮（CmdLeft），可以将右列表框中选定的表项移动到左列表框中；点击全部向左按钮（CmdAllLeft），可以将右列表框中的所有内容移动到左列表框中。三、属性设置：见图一，注意，列表框的Style都为0即标准类型。四、程序代码：1、窗体的载入事件（Form_Load）PrivateSubForm_Load()　LstLeft.AddItem"刘德华"　LstLeft.AddItem"张学友"　LstLeft.AddItem"郭富城"　LstLeft.AddItem"黎　明"　LstLeft.AddItem"谭咏麟"　LstLeft.AddItem"梅艳芳"　LstLef

3、t.AddItem"张曼玉"EndSub2、向右按钮的点击事件（CmdRight_Click）PrivateSubCmdRight_Click()　LstRight.AddItemLstLeft.List(LstLeft.ListIndex)　LstLeft.RemoveItemLstLeft.ListIndexEndSub3、全部向右按钮的点击事件（CmdAllRight_Click）PrivateSubCmdAllRight_Click()　LstRight.AddItem"刘德华"　LstRight.AddItem"张学友"　LstRight.AddItem"郭富城"　LstR

4、ight.AddItem"黎　明"　LstRight.AddItem"谭咏麟"　LstRight.AddItem"梅艳芳"　LstRight.AddItem"张曼玉"　LstLeft.ClearEndSub4、向左按钮的点击事件（CmdLeft_Click）PrivateSubCmdLeft_Click()　LstLeft.AddItemLstRight.List(LstRight.ListIndex)　LstRight.RemoveItemLstRight.ListIndexEndSub5、全部向左按钮的点击事件：（CmdAllLeft_Click）PrivateSubCmdAll

5、Left_Click()LstLeft.AddItem"刘德华"LstLeft.AddItem"张学友"LstLeft.AddItem"郭富城"LstLeft.AddItem"黎　明"LstLeft.AddItem"谭咏麟"LstLeft.AddItem"梅艳芳"LstLeft.AddItem"张曼玉"LstRight.ClearEndSub五、注意事项：1、窗体载入事件：就是窗体打开时自动加载的信息，也可以在界面设置时通过左列表框的List属性设定。如图二：图二2、无论是部分转移，还是全部移动，都要记着将本已移动的表项在原有列表框中清除，如代码：LstLeft.RemoveItem

6、LstLeft.ListIndex如果不清除，那么表项移动后，原先的表项还在原处，用户可能对同一表项多次选择。如图三图三3、第一个应用程序还没编写完，仔细看一下，哪里还需要再编写？没错，就是向左按钮与向右按钮的点击事件还没完善，按照上面的程序，如果在初始状态下（也就是没有选中任何表项），点击向左或向右按钮会产生程序错误。所以我们得在原来向左或向右按钮的事件中增加判断过程，修改后的代码如下：向右按钮：PrivateSubCmdRight_Click()IfLstLeft.SelCount>0ThenLstRight.AddItemLstLeft.List(LstLeft.ListInd

7、ex)LstLeft.RemoveItemLstLeft.ListIndexEndIfEndSub向左按钮：PrivateSubCmdLeft_Click()IfLstRight.SelCount>0ThenLstLeft.AddItemLstRight.List(LstRight.ListIndex)LstRight.RemoveItemLstRight.ListIndexEndIfEndSub看见了吧，向左与向右按钮还得增加列表框中是否有表项被选中的判