VB神童教程第二章第九节——综合示例三
VB神童教程第二章第九节——综合示例三前面我们习了列表框控件(ListBox)与人组板控件(ComboBox),本节将就它们制作一个非常简单的应用程序。程序目的:两个列表框,左列表框(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、本节的程序只是为了让大家便于解读才这样撰写的,而尤为科学、尤为有效地的撰写方法,我们将在下一节描写。在开始下一节课程之前,大家可以将两个列表框的Style改为1即预选类型,你不会找到本节所撰写的程序又有很多问题了,该如何解决问题呢?下一节闻!。
本文关键词:神童,教程,第二章,第九,开云客户端app下载,节,—,综合,示例,三
本文来源:开云客户端app下载-www.apchc.cn
同类文章排行
- 科曼:我肯定还会在拜仁效力很长时间
- 王者荣耀各个段位怎么打 段位上分技巧介绍
- lol周免英雄 lol6月23日周免英雄更换公告
- 加上金融玩法,比特币矿机也许再也不用关机了
- 深刻把握新时代社会主要矛盾变化的全局性影响
- 万幸!拜仁确认阿拉巴未受重伤 下轮联赛即复出
- 银保监碰面试技巧:社会现象“新”亮相
- 为什么互联网产品越来越难做了?
- 噩耗!拜仁尖刀伤重恐被迫手术 本赛季宣告报销
- 王健林又悄悄卖了几家万达广场!保险、信托接
最新资讯文章
- 酉阳县:在眷注中砥砺前行——黑水镇敬老院项目视察事情简报
- 学校应担负青少年禁烟的责任
- “偷偷地爱着你”更具道德传递性
- 美任公然10月精选游戏榜!《英雄不再3》支持中文
- 热血传奇:曾经创下70万人同时在线纪录,为何走向了衰败
- 在海内怎么玩刺客信条奥德赛?玩刺客信条奥德赛延迟高怎么办
- 5本足球,篮球,lol竞技类小说,角逐真实细腻,看得热血沸腾
- 《剑灵》火力全开biubiu
- 克洛泽:执教德甲是我的目标,瓦格纳有望进入
- 拜仁最重大收获非他莫属 超值新援一战奠定地位
- 银保监碰面试技巧:社会现象“新”亮相
- 相信自己是重要人物
- 给使用共享单车的小学生踩一脚刹车
- 深刻把握新时代社会主要矛盾变化的全局性影响
- 《DNF》大富翁活动归来简介
- 你有Cos的Freestyle么 暴雪游戏Cos灵魂组作品展示
- 网易荒野行动什么时候公测 网易荒野行动手游公测时间
- LOL春节任务128银元宝合成春节皮肤碎片是不是年限的_开云客户端
- 上演帽子戏法次数最多的五位现役球员,梅西第二,C罗高居榜首
- 里贝里膝盖受伤将缺席一周 无缘下周德国超级杯‘开云客户端