VB程序计第六章.pptVIP

Visual Basic 程序设计教程 6.2 选择性控件 6.2.2 列表框和组合框 ⑵、事件 列表框接受Click、Dblclick等一些常用事件； ⑶、方法 ①AddItem方法 格式：列表框.Additem 项目字符串[，位置值] 该方法是将项目字符串所指定的一个项目插入到由位置值所指定的 位置上，位置值由0～ListCount－1，每插入一项，ListCount属性 自动加1，若省略位置值，则新增的项目添加到最后。 ② Clear方法 格式：列表框.Clear 该方法用于清除列表框中所有的项目，将ListCount属性值置为0。 ③RemoveItem 格式：列表框.RemoveItem 位置值 该方法将指定位置上的项目从列表框中删除，ListCount属性值减1； 6.2 选择性控件 6.2.2 列表框和组合框 例[6-3_1] 显示列表框的基本属性。在列表框中加入若干内容，单击列表 框中的某一项，则在窗体上显示列表框的内容项以及该项在列表框中的位 置。 解题思路：在列表框的click事件中编写程序：显示列表框的内容项 list1.text和该项的位置list1.listindex;。 Private Sub List1_Click() Print List1.Text; List1.ListIndex End Sub 6.2 选择性控件 6.2.2 列表框和组合框 例[6-3] 交换两个列表框中的项目，其中一个列表框的项目为“a，b，c”，按 字母数字升序排列，另一个列表框中的项目为”1、2、3“，按加入的先后顺序 排列，程序运行后，双击某一个列表框中的一个项目，该项目会移动到另一 个列表框，并从原列表框中删除。 解题思路：在窗体上创建两个列表框，其中一个Sorted属性值设为True，另一 个的Sorted属性值设为False，其他属性值均使用默认值，在各自的dblclick 事件中编写程序：首先将选定的项目增加到另一个列表框中，再从本列表框中 删除该项目。 Private Sub List1_DblClick() 将列表框1 的项目添加到列表框2 List2.AddItem List1.Text 从列表框1中删除该项 List1.RemoveItem List1.ListIndex End Sub Private Sub List2_DblClick() 将列表框2的项目添加到列表框1中 List1.AddItem List2.Text 从列表框2中删除该项 List2.RemoveItem List2.ListIndex End Sub 6.2 选择性控件 6.2.2 列表框和组合框 例[6-2_4]列表框项目添加和删除。在窗体上画两个单选钮，再画一个列表框和一个文本框，程序运行后，选择添加项目到列表框或删除列表框中的项目，若后点击窗体执行程序。 解题思路：在窗体的click事件中首先判断单旋钮的选中状况，而后对列表框执行增加或删除命令。 Dim i As Integer If Option1.Value = True Then Text1.Text = InputBox(请输入要添加的项目：) List1.AddItem Text1.Text End If If Option2.Value = True Then Text1.Text = InputBox(请输入要删除的项目：) ‘遍历列表框中的每一项， 若项目内容与文本框的内容相同，则删除该项目 For i = 0 To List1.ListCount - 1 If List1.List(i) = Text1.Text Then List1.RemoveItem i End If Next End If 6.2 选择性控件 6.2.2 列表框和组合框 2、组合框(ComboBox) 组合框是综合列表框和文本框的特性而成的一个控件。 组合框既可以像文本框一样接受用户输入，也可以像列表框一样列举多个项目供用户选择，默认名称为Combo1.