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

VB神童教程第二章第九节综合示例三作者：未知阅读人次：38654文章来源：未知发布时间：2004-12-15网友评论(72)条前面我们学了列表框控件（ListBox）与组合框控件（ComboBox），本节将就它们制作一个简单的应用程序。一、程序界面：界面如图一图一二、程序目的：两个列表框，左列表框（LstLeft）罗列了一些歌手名字，右列表框（LstRight）初始状态为空；点击向右按钮（CmdRight），可以将左列表框中的指定选项移动到右边列表框；点击全部向右按钮（CmdAllRight），可以将左列表框中所有的内容搬到右列表框中；点击向左按钮（CmdLeft），可以将右列表框中选定的表项移动到左列表框中；点击全部向左按钮（CmdAllLeft），可以将右列表框中的所有内容移动到左列表框中。三、属性设置：见图一，注意，列表框的 Style 都为 0 即标准类型。四、程序代码：1、窗体的载入事件（Form_Load）Private Sub Form_Load()LstLeft.AddItem 刘德华LstLeft.AddItem 张学友LstLeft.AddItem 郭富城LstLeft.AddItem 黎明LstLeft.AddItem 谭咏麟LstLeft.AddItem 梅艳芳LstLeft.AddItem 张曼玉End Sub2、向右按钮的点击事件（CmdRight_Click）Private Sub CmdRight_Click()LstRight.AddItem LstLeft.List(LstLeft.ListIndex)LstLeft.RemoveItem LstLeft.ListIndexEnd Sub3、全部向右按钮的点击事件（CmdAllRight_Click）Private Sub CmdAllRight_Click()LstRight.AddItem 刘德华LstRight.AddItem 张学友LstRight.AddItem 郭富城LstRight.AddItem 黎明LstRight.AddItem 谭咏麟LstRight.AddItem 梅艳芳LstRight.AddItem 张曼玉LstLeft.ClearEnd Sub4、向左按钮的点击事件（CmdLeft_Click）Private Sub CmdLeft_Click()LstLeft.AddItem LstRight.List(LstRight.ListIndex)LstRight.RemoveItem LstRight.ListIndexEnd Sub5、全部向左按钮的点击事件：（CmdAllLeft_Click）Private Sub CmdAllLeft_Click()LstLeft.AddItem 刘德华LstLeft.AddItem 张学友LstLeft.AddItem 郭富城LstLeft.AddItem 黎明LstLeft.AddItem 谭咏麟LstLeft.AddItem 梅艳芳LstLeft.AddItem 张曼玉LstRight.ClearEnd Sub五、注意事项：1、窗体载入事件：就是窗体打开时自动加载的信息，也可以在界面设置时通过左列表框的 List 属性设定。如图二：图二2、无论是部分转移，还是全部移动，都要记着将本已移动的表项在原有列表框中清除，如代码： LstLeft.RemoveItem LstLeft.ListIndex如果不清除，那么表项移动后，原先的表项还在原处，用户可能对同一表项多次选择。如图三图三3、第一个应用程序还没编写完，仔细看一下，哪里还需要再编写？没错，就是向左按钮与向右按钮的点击事件还没完善，按照上面的程序，如果在初始状态下（也就是没有选中任何表项），点击向左或向右按钮会产生程序错误。所以我们得在原来向左或向右按钮的事件中增加判断过程，修改后的代码如下：向右按钮：Private Sub CmdRight_Click()If LstLeft.SelCount 0 ThenLstRight.AddItem LstLeft.List(LstLeft.ListIndex)LstLeft.RemoveItem LstLeft.ListIndexEnd IfEnd Sub向左按钮：Private Sub CmdLeft_Click()If LstRight.SelCount 0 ThenLstLeft.AddItem LstRight.List(LstRight.ListIndex)LstRight.RemoveItem LstRight.ListIndexEnd IfEnd Sub看见了吧，向左与向右按钮还得增加列表框中是否有表项被选中的判断。4、大家先移动左列表框中的一个项目到右列表框中，然后再全部移过去，你又会发现什么样的问题呢？这时，你会发现右列表框的项目多了一项，而这多出来的表项正是最先移过去的那个项目，那么，全部移动的按钮还需要加以完善。如图四：图四解决办法很简单，在全部移动时，先清除目标列表框的内容再进行移动，修改后的代码如下：全部向右按钮：Private Sub CmdAllRight_Click()LstRight.ClearLstRight.AddItem 刘德华LstRight.AddItem 张学友LstRight.AddItem 郭富城LstRight.AddItem 黎明LstRight.AddItem 谭咏麟LstRight.AddItem 梅艳芳LstRight.AddItem 张曼玉LstLeft.ClearEnd Sub全部向左按钮：Private Sub CmdAllLeft_Click()LstLeft.ClearLstLeft.AddItem 刘德华LstLeft.AddItem 张学友LstLeft.AddItem 郭富城LstLeft.AddItem 黎明LstLeft.AddItem 谭咏麟LstLeft.AddItem 梅艳芳LstLeft.AddItem 张曼玉LstRight.ClearEnd Sub5、本节的程序只是为了让大家便于理解才这样编写的，而最为科学、最为有效的编写方法，我们将在下一节讲述。在开始下一节课程之前，大家可以将两个列表框的 Style 改成 1 即复选类型，你会发现本节所编写的程序又有很多问题了，该如何解决呢？下一节见！文章录入：静夜思责任编辑：静夜思 上一篇文章：VB神童教程第二章第八节组合框控件 下一篇文章：VB神童教程第二章第十节综合示例四最新评论：已有72位感兴趣的读者发表了看法BCCN网友ip：182.111.186.*2012-9-22 15:57:46 发表VB小白500人超级QQ群：200153276欢迎您的加入！欢迎您来一起交流！有交流才会有进步！在群里对您不会有任何限制，我们最崇尚的就是自由，编程高手的最高境界是自由！VB小白500人超级QQ群：200153276欢迎您的加入！欢迎您来一起交流！有交流才会有进步！在群里对您不会有任何限制，我们最崇尚的就是自由，编程高手的最高境界是自由！VB小白500人超级QQ群：200153276欢迎您的加入！欢迎您来一起交流！有交流才会有进步！在群里对您不会有任何限制，我们最崇尚的就是自由，编程高手的最高境界是自由！BCCN网友ip：110.200.1.*2012-7-14 11:37:42 发表VB小白集中营，大家可以一起学习，一起讨论问题，进步会更大！(我们有共享的小白视频教程一整套，欢迎加入！欢迎共享资源！）QQ群：VB小白集中营一121750572VB小白集中营二200191577VB小白集中营三200191578VB小白集中营四200191579BCCN网友ip：117.93.155.*2012-7-10 22:46:51 发表PrivateSubcmdallright_Click()Iflstleft.ListCount0Thenlstright.ClearFora%=0Tolstleft.ListCount-1lstright.AddItemlstleft.List(a)Nextalstleft.ClearEndIfEndSubPrivateSubcmdleft_Click()Iflstright.SelCount0Thenlstleft.AddItemlstright.List(lstright.ListIndex)lstright.RemoveItemlstright.ListIndexEndIfEndSub全部向右/向左移动，前面加个判断，不然向左/向右的按钮再按一下，两边会都被清除的BCCN网友ip：113.56.132.*2012-6-8 11:18:29 发表QQ群：121750572VB小白集中营，大家可以一起学习，一起讨论问题，进步会更大！(我们有共享的小白视频教程一整套，欢迎加入！欢迎共享资源！）BCCN网友ip：123.150.182.*2012-3-11 23:07:51 发表vb学者欢迎加我QQBCCN网友ip：122.230.88.*2011-11-2 21:46:40 发表全部向右移动的，想了个更简单的。PrivateSubCmdAllRight_Click()Fora%=0ToLstLeft.ListCount-1LstRight.AddItemLstLeft.List(a)NextaEndSubBCCN网友ip：125.68.222.*2011-10-17 15:26:39 发表WWW.ATCPU.COM每天更新电脑课程电脑技术黑客技术黑客教程下载WWW.ATCPU.COM每天更新电脑课程语音视频教程免费学习WWW.ATCPU.COM每天更新电脑课程语音视频教程免费学习WWW.ATCPU.COM每天更新电脑课程语音视频教程免费学习WWW.ATCPU.COM每天更新电脑课程语音视频教程免费学习WWW.ATCPU.COM每天更新电脑课程语音视频教程免费学习WWW.ATCPU.COM每天更新电脑课程语音视频教程免费学习WWW.ATCPU.COM每天更新电脑课程语音视频教程免费学习WWW.ATCPU.COM每天更新电脑课程语音视频教程免费学习WWW.ATCPU.COM每天更新电脑课程语音视频教程免费学习WWW.ATCPU.COM每天更新电脑课程语音视频教程免费学习WWW.ATCPU.COM每天更新电脑课程语音视频教程免费学习BCCN网友ip：110.249.93.*2011-10-6 10:55:12 发表PrivateSubCmdLeftAll_Click(IndexAsInteger)Fori%=0ToList2.ListCount-