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

2024-07-16 17:58:44

字体：大中小

来源：转载

供稿：网友

前面我们学了列表框控件（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 属性设定。如图二：