logo

您所在位置网站首页 > 海量文档  > 计算机 > Visual Basic

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

本文档一共被下载: ,您可全文免费在线阅读后下载本文档。

  • 支付并下载
  • 收藏该文档
  • 百度一下本文档
  • 修改文档简介
全屏预览

下载提示

1.本站不保证该用户上传的文档完整性,不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值,立即自动返金币,充值渠道很便利
特别说明: 下载前务必先预览,自己验证一下是不是你要下载的文档。
  • 内容提供方 qwd513620855(上传创作收益人)
  • 发布时间:2020-08-06
  • 需要金币150(10金币=人民币1元)
  • 浏览人气
  • 下载次数
  • 收藏次数
  • 文件大小:53.86 KB
下载过该文档的会员
你可能关注的文档:
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 Sub 2、向右按钮的点击事件(CmdRight_Click) Private Sub CmdRight_Click()  LstRight.AddItem LstLeft.List(LstLeft.ListIndex)  LstLeft.RemoveItem LstLeft.ListIndex End Sub 3、全部向右按钮的点击事件(CmdAllRight_Click) Private Sub CmdAllRight_Click()  LstRight.AddItem "刘德华"  LstRight.AddItem "张学友"  LstRight.AddItem "郭富城"  LstRight.AddItem "黎 明"  LstRight.AddItem "谭咏麟"  LstRight.AddItem "梅艳芳"  LstRight.AddItem "张曼玉"  LstLeft.Clear End Sub 4、向左按钮的点击事件(CmdLeft_Click) Private Sub CmdLeft_Click()  LstLeft.AddItem LstRight.List(LstRight.ListIndex)  LstRight.RemoveItem LstRight.ListIndex End Sub 5、全部向左按钮的点击事件:(CmdAllLeft_Click) Private Sub CmdAllLeft_Click() LstLeft.AddItem "刘德华" LstLeft.AddItem "张学友" LstLeft.AddItem "郭富城" LstLeft.AddItem "黎 明" LstLeft.AddItem "谭咏麟" LstLeft.AddItem "梅艳芳" LstLeft.AddItem "张曼玉" LstRight.Clear End Sub 五、注意事项: 1、窗体载入事件: 就是窗体打开时自动加载的信息,也可以在界面设置时通过左列表框的 List 属性设定。如图二: 图二 2、无论是部分转移,还是全部移动,都要记着将本已移动的表项在原有列表框中清除,如代码: LstLeft.RemoveItem LstLeft.ListIndex 如果不清除,那么表项移动后,原先的表项还在原处,用户可能对同一表项多次选择。如图三 图三 3、第一个应用程序还没编写完,仔细看一下,哪里还需要再编写? 没错,就是向左按钮与向右按钮的点击事件还没完善,按照上面的程序,如果在初始状态下(也就是没有选中任何表项),点击向左或向右按钮会产生程序错误。 所以我们得在原来向左或向右按钮的事件中增加判断过程,修改后的代码如下: 向右按钮: Private Sub CmdRight_Click() If LstLeft.SelCount > 0 Then LstRight.AddItem LstLeft.List(LstLeft.ListIndex) LstLeft.RemoveItem LstLeft.ListIndex End If End Sub 向左按钮: Private Sub CmdLeft_Click() If LstRi

发表评论

请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
用户名: 验证码: 点击我更换图片

“原创力文档”前称为“文档投稿赚钱网”,本站为“文档C2C交易模式”,即用户上传的文档直接卖给(下载)用户,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有【成交的100%(原创)】。原创力文档是网络服务平台方,若您的权利被侵害,侵权客服QQ:3005833200 电话:19940600175 欢迎举报,上传者QQ群:784321556