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

文章作者 100test 发表时间 2007:03:10 18:20:25
来源 100Test.Com百考试题网

前面我们学了列表框控件（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