新Visual Basic程序设计 工业和信息化普通高等教育“十二五”规划教材立项项目 双色印刷 教学课件 熊李艳 周美玲 第5章 循环结构化程序设计.pptVIP

第五章 循环结构化程序设计 With语句 形式： With 对象 语句块 End With 用于对某个对象执行一系列语句,而不用重复该对象名 例:用With语句设置标签MyLabel的多个属性 With MyLabel .height=1000 ‘属性前的“.”不能省略 .width=1500 .FontSize=20 .caption=“This is mylabel“ End With 列表框是以列表的形式显示一系列数据，供用户选择；组合框则是列表框和文本框的组合,它们都是进行快速浏览和标准化输入数据的重要控件。 概述 5.4 列表框与组合框 列表框(ListBox) 是能提供“多选一”的控件。 常用属性 描述 属性 用于指定列表框中列的数目 0：单列显示（缺省设置），条目多自动添加垂直滚动条。 1：单列显示，条目多自动添加水平滚动条。 n（n1）：条目以n列显示，条目多会自动添加水平滚动条。 Columns 用来访问列表中的所有列表项，看成是字符串数组。列表项与数组元素相对应。例: List1.List（0）=“北京” List1.List（1）=“上海” List 常用在运行阶段来改变列表框中列表项目内容 描述 属性 用于返回当前选中项目的文本内容 例:当前选中的是“北京“ List1.text=“北京” List1.List(List1.ListIndex)=“北京” Text 只读属性 指定列表框中项目的数量 0:为列表项目数组第一项的下标 ListCount-1:是列表项目数组最后一项的下标 ListCount 只读属性 0:为标准样式（默认值）； 1:为检查框（复选框）样式，此时，无论MultiSelect属性为何值，列表框均能多选。 Style 只读属性 描述 属性 决定列表框中的项目是否排序 True：按字母顺序排列。 Sorted 用来检测某个项目是否被选中。 每个项目选中状态组成的逻辑数组 Selected(i)=True表示第i+1项被选中 Selected 用于返回当前被选中项目的序号 例:当前选中的是“北京“ List1.ListIndex=0 List1.ListIndex=-1 //没有选中 ListIndex 描述 属性 List1 列表框各主要属性的值： List1.ListIndex = 3 (下标从0开始的) List1.ListCount = 5 List1.Selected(3) = True List1.Sorted = False(没有排序) List1.Text 为 “cox” ， 与List1. List(List1. ListIndex)相等 例如 决定列表框是否支持多选 0:只能选择一项 1:允许多选(左键/空格键) 2:允许多选(ctrl/shift) MultiSelected 运行时只读 描述 属性 常用方法 AddItem方法 语法格式： 列表框对象名.AddItem 字符串表达式 [，Index] 该方法通常在 load事件中使用 用于在列表框中指定位置加入新的项目。如果下标缺省，则把字符串文本添加到列表框的尾部，下标范围从0到ListCount-1。 Sub Form_Load() ‘装载窗体时添加列表项 lstBooks.AddItem 计算机文化基础 lstBooks.AddItem VB 6.0程序设计教程 lstBooks.AddItem 操作系统 lstBooks.AddItem 多媒体技术 lstBooks.AddItem “网络技术基础” End sub 如何将添加的文本 内容到列表框中? RemoveItem方法 语法格式： 列表框对象名.RemoveItem 序号 Sub cmdDelete_Click() ‘从列表框删除选定项 lstBooks.RemoveItem IstBooks.ListIndex End Sub Clear方法 语法格式： 列表框对象名.clear 常用事件/方法 click/DblClick事件 Scroll事件 事件 【例5.11】利用列表框设计,交换两个列表框中的项目,两个列表框都可以进行多项选择(MultiSelect=2),其运行界面如图5.11所示。 图5.11 运行界面 Private Sub Form_Load() ‘给列表框添加初始选项 List1.AddItem 人工智能 List1.AddItem 计算机网络 List1.AddItem 软件工程 List1.AddItem 汇编语言