041-54552636

我们只用绿色的食品原料

某某零食加工厂,只为您的健康着想

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

2020-10-11 23:17上一篇:超级薅羊毛APP被曝泄漏隐私 官方紧急回应 |下一篇:没有了

VB神童教程第二章第九节——综合示例三前面我们习了列表框控件(ListBox)与人组板控件(ComboBox),本节将就它们制作一个非常简单的应用程序。

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

程序目的:两个列表框,左列表框(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、第一个应用程序还没有撰写完了,细心看一下,哪里还必须再行撰写?到底,就是向左按钮与向右按钮的页面事件还没有完备,按照上面的程序,如果在初始状态下(也就是没顺位任何表项),页面向左或向右按钮不会产生程序错误。

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

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、本节的程序只是为了让大家便于解读才这样撰写的,而尤为科学、尤为有效地的撰写方法,我们将在下一节描写。在开始下一节课程之前,大家可以将两个列表框的Style改为1即预选类型,你不会找到本节所撰写的程序又有很多问题了,该如何解决问题呢?下一节闻!