- 1、本文档共5页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB基础教程第章第九节(共15节)
前面我们学了列表框控件(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 Sub
2、向右按钮的点击事件(CmdRight_Click)Private Sub CmdRight_Click() LstRight.AddItem LstLeft.List(LstLeft.ListIndex) LstLeft.RemoveItem LstLeft.ListIndexEnd Sub
3、全部向右按钮的点击事件(CmdAllRight_Click)Private Sub CmdAllRight_Click() LstRight.AddItem 刘德华 LstRight.AddItem 张学友 LstRight.AddItem 郭富城 LstRight.AddItem 黎 明 LstRight.AddItem 谭咏麟 LstRight.AddItem 梅艳芳 LstRight.AddItem 张曼玉 LstLeft.ClearEnd Sub
4、向左按钮的点击事件(CmdLeft_Click)Private Sub CmdLeft_Click() LstLeft.AddItem LstRight.List(LstRight.ListIndex) LstRight.RemoveItem LstRight.ListIndexEnd Sub
5、全部向左按钮的点击事件:(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
看见了吧,向左
文档评论(0)