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

时间:2009-07-09 02:40:25   来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:手名字,右列表框(LstRight)初始状态为空;点击向右按钮(CmdRight),可以将左列表框中的指定选项移动到右边列表框;点击全部向右按钮(CmdAllRight),可以将左列表框中所有的内容搬到右列表框中;点击向左按钮(CmdLeft),可以将右列表框中选定的表项移动到左列表框中;点击全部向左按钮(CmdAllLeft),可以将右列表框中的所有内容移动到左列表框中。 三...
  正文:

前面我们学了列表框控件(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 LstRight.SelCount > 0 Then
LstLeft.AddItem LstRight.List(LstRight.ListIndex)
LstRight.RemoveItem LstRight.ListIndex
End If
End Sub

看见了吧,向左与向右按钮还得增加列表框中是否有表项被选中的判断。

4、大家先移动左列表框中的一个项目到右列表框中,然后再全部移过去,你又会发现什么样的问题呢?

这时,你会发现右列表框的项目多了一项,而这多出来的表项正是最先移过去的那个项目,那么,全部移动的按钮还需要加以完善。
解决办法很简单,在全部移动时,先清除目标列表框的内容再进行移动,修改后的代码如下:

全部向右按钮:
Private Sub CmdAllRight_Click()
LstRight.Clear
LstRight.AddItem "刘德华"
LstRight.AddItem "张学友"
LstRight.AddItem "郭富城"
LstRight.AddItem "黎 明"
LstRight.AddItem "谭咏麟"
LstRight.AddItem "梅艳芳"
LstRight.AddItem "张曼玉"
LstLeft.Clear
End Sub

全部向左按钮:
Private Sub CmdAllLeft_Click()
LstLeft.Clear
LstLeft.AddItem "刘德华"
LstLeft.AddItem "张学友"
LstLeft.AddItem "郭富城"
LstLeft.AddItem "黎 明"
LstLeft.AddItem "谭咏麟"
LstLeft.AddItem "梅艳芳"
LstLeft.AddItem "张曼玉"
LstRight.Clear
End Sub

5、本节的程序只是为了让大家便于理解才这样编写的,而最为科学、最为有效的编写方法,我们将在下一节讲述。在开始下一节课程之前,大家可以将两个列表框的 Style 改成 1 即复选类型,你会发现本节所编写的程序又有很多问题了,该如何解决呢?下一节见!
来源:http://www.002pc.com/master/College/Language/VB/9947.html

收藏到:

关于《V神童教程第二章第九节——综合示例三》文章的评论

共有 0 位网友发表了评论 此处只显示部分留言 点击查看完整评论页面

随机文章

    SQL Error: select * from ***_ecms_article where classid='91' and checked=1 order by rand() limit 10

顶出来的热门

    SQL Error: select * from ***_ecms_article where classid='91' and checked=1 order by diggtop desc,id desc limit 10
站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td