本文摘要：VB天才儿童实例教程第二章第九节——综合性实例三前边大家习了列表框控制（ListBox）和人组板控制（ComboBox），这节凑合他们制做一个比较简单的应用软件。

VB天才儿童实例教程第二章第九节——综合性实例三前边大家习了列表框控制（ListBox）和人组板控制（ComboBox），这节凑合他们制做一个比较简单的应用软件。程序流程目地：2个列表框，左列表框（LstLeft）列举了一些歌手名字，右列表框（LstRight）最初的状态为空；网页页面向右按钮（CmdRight），能够将左列表框中的登陆选择项挪动到右侧列表框；网页页面所有向右按钮（CmdAllRight），能够将左列表框中全部的內容搬右列表框中；网页页面向左按钮（CmdLeft），能够将右列表框中特定的表项挪动到左列表框中；网页页面所有向左按钮（CmdAllLeft），能够将右列表框中的全部內容挪动到左列表框中。

特性设定：注意，列表框的Style都为0即规范种类。1/12编程代码：1、文本框的载入恶性事件（Form_Load）PrivateSubForm_Load()LstLeft.AddItem华仔LstLeft.AddItem陈奕迅LstLeft.AddItem刘德华LstLeft.AddItem黎　明LstLeft.AddItem谭咏麟LstLeft.AddItem梅艳芳LstLeft.AddItem张曼玉EndSub2/122、向右按钮的网页页面恶性事件（CmdRight_Click）PrivateSubCmdRight_Click()LstRight.AddItemLstLeft.List(LstLeft.ListIndex)LstLeft.RemoveItemLstLeft.ListIndexEndSub3/123、所有向右按钮的网页页面恶性事件（CmdAllRight_Click）PrivateSubCmdAllRight_Click()LstRight.AddItem华仔LstRight.AddItem陈奕迅LstRight.AddItem刘德华LstRight.AddItem黎　明LstRight.AddItem谭咏麟LstRight.AddItem梅艳芳LstRight.AddItem张曼玉LstLeft.ClearEndSub4/124、向左按钮的网页页面恶性事件（CmdLeft_Click）PrivateSubCmdLeft_Click()LstLeft.AddItemLstRight.List(LstRight.ListIndex)LstRight.RemoveItemLstRight.ListIndexEndSub5/125、所有向左按钮的网页页面恶性事件：（CmdAllLeft_Click）PrivateSubCmdAllLeft_Click()LstLeft.AddItem华仔LstLeft.AddItem陈奕迅LstLeft.AddItem刘德华LstLeft.AddItem黎　明LstLeft.AddItem谭咏麟LstLeft.AddItem梅艳芳LstLeft.AddItem张曼玉LstRight.ClearEndSub6/12常见问题:1、文本框载入恶性事件：便是文本框合上时全自动载入的信息内容，还可以在页面设定时根据左列表框的List特性原著。2、不论是一部分移往，還是所有挪动，必须录着将本已挪动的表项在原来列表框中清除，如编码：LstLeft.RemoveItemLstLeft.ListIndex如果不清除，那麼表项挪动后，本来的表项仍在原地不动，客户有可能对同一表项数次随意选择。

3、第一个应用软件都还没编写完后，仔细看一下，哪儿还务必再行编写？究竟，便是向左按钮与向右按钮的网页页面恶性事件都还没完善，依照上边的程序流程，假如在最初的状态下（也就是没选秀权一切表项），网页页面向左或向右按钮不容易造成程序流程不正确。7/12因此 大家得在本来向左或向右按钮的恶性事件中降低鉴别全过程，修改后的编码以下：向右按钮：PrivateSubCmdRight_Click()IfLstLeft.SelCount0ThenLstRight.AddItemLstLeft.List(LstLeft.ListIndex)LstLeft.RemoveItemLstLeft.ListIndexEndIfEndSub8/12向左按钮：PrivateSubCmdLeft_Click()IfLstRight.SelCount0ThenLstLeft.AddItemLstRight.List(LstRight.ListIndex)LstRight.RemoveItemLstRight.ListIndexEndIfEndSub看到了吧，向左与向右按钮还得降低列表框中否有表项被选秀权的鉴别。9/124、大伙儿再行挪动左列表框中的一个新项目到右列表框中，随后再行所有移过去，你又不容易寻找哪些的难题呢？这时候，你肯定不会寻找右列表框的新项目多了一项，而这多出去的表项更是年所移过去的哪个新项目，那麼，所有挪动的按钮还务必多方面完善。解决方案很比较简单，在所有挪动时，再行清除总体目标列表框的內容再行进行挪动，修改后的编码以下：10/12所有向右按钮：PrivateSubCmdAllRight_Click()LstRight.ClearLstRight.AddItem华仔LstRight.AddItem陈奕迅LstRight.AddItem刘德华LstRight.AddItem黎　明LstRight.AddItem谭咏麟LstRight.AddItem梅艳芳LstRight.AddItem张曼玉LstLeft.ClearEndSub11/12所有向左按钮：PrivateSubCmdAllLeft_Click()LstLeft.ClearLstLeft.AddItem华仔LstLeft.AddItem陈奕迅LstLeft.AddItem刘德华LstLeft.AddItem黎　明LstLeft.AddItem谭咏麟LstLeft.AddItem梅艳芳LstLeft.AddItem张曼玉LstRight.ClearEndSub12/125、这节的程序流程仅仅为了更好地让大伙儿便于讲解才那样编写的，而尤其科学研究、尤其合理地的编写方式，大家将在下一节描绘。

在刚开始下一节课程内容以前，大伙儿能够将2个列表框的Style改成1即选号牌种类，你肯定不会寻找这节所编写的程序流程又有很多难题了，该怎样解决困难呢？下一节闻！。

本文关键词：AG九游会,AG九游会唯一官网

本文来源：AG九游会-www.abs77.com