VB列表框组合框527.ppt

VB语言程序设计 列表框 列表框（ListBox）控件将一系列的选项组合成一个列表，用户可以选择其中的一个或几个选项 列表框 添加新项目 列表框 列表框主要属性 List、ListCount和ListIndex属性 List： 字符型数组，存放列表框的项目数据，下标是从0开始的。 ListIndex：为整型值，选中的项目的序号， 没有项目选中时为-1。 ListCount：为整型值，表示项目的数量，ListCount-1是最后一项的下标。 列表框 列表框主要属性 text属性：用于存放被选中列表项的文本内容。 列表框 列表框常用方法 AddItem：用于将项目添加到列表框控件 列表框 列表框常用方法 Clear方法：用于清除列表框控件或组合框控件中的所有项目。 列表框 主要事件： Click事件：单击某一列表项目时触发 DblClick事件：双击某一列表项目时触发 列表框 范例:设计以下界面 列表框 功能一 先把库存水果:苹果,梨 ,桃子,信息录入到列表框中 功能二 选中不同水果,在label3中报告水果名 列表框 功能三 实现添加新项目功能 功能四 实现删除单项功能,若没有列表内容，则报出信息 功能五: 报告共有多少种水果,注意添加和删除时要修改数目 组合框 组合框控件（ComboBox） 将文本框和列表框的功能结合在一起 组合框 基本事件与列表框类似 范例 组合框 Combo1: List 宋体、黑体、隶书、幼圆 Combo2: List 常规、粗体、斜体、粗斜体 Combo3: List:一号、二号、三号、四号、五号 Itemdata:26、22、16、14、10 组合框 初始化设置 组合框 选择不同组合框时: 组合框 选择不同组合框时: 制作一个倒计时程序。用户可以输入倒计时开始的秒数，每秒减1,到0为止。倒计时的时候，要用不同的颜色作提示。15-11秒，用绿色提示；10-6秒，黄色提示；5-0用红色提示。 习题4 例4-14 课后习题 * * 窗体 控件 标签 文本框 列表框和组合框 滚动条和定时器 列表框有两种风格： 标准和复选列表框 Style=0 标准 Style=1 复选列表框 列表框 列表框（ListBox） List、ListCount和ListIndex属性 列表框 列表框（ListBox） Private Sub Form_Load() Dim i As Integer Label1.Caption = For i = 0 To List1.ListCount - 1 Label1.Caption = Label1.Caption + List1.List(i) Next End Sub Private Sub Command1_Click() Label1.Caption = List1.Text End Sub 语法格式： 〈对象名〉.AddItem item [, index] 其中：item: 为字符串表达式， 表示要加入的项目。 Index:决定新增项目的位置，缺省， 则添加在最后。 语法格式： 〈对象名〉. Clear 列表框list1 组合框共三种风格： 下拉式组合框(允许输入) 简单组合框和 下拉式列表框(不允许输入) combo1 combo2 combo3 label4 Private Sub Form_Load() Combo1.ListIndex = 0 Combo2.ListIndex = 0 Combo3.ListIndex = 4 Label4.FontName = Combo1.Text Label4.FontSize = Combo3.ItemData(4) Label4.FontBold = False Label4.FontItalic = False End Sub Private Sub Combo3_Click() Dim a as integer A= Combo3.ListIndex Label4.FontSize = Combo3.ItemData(a) End Sub Private Sub Combo1_Click() Label4.FontName = Combo1.Text End Sub Private Sub Combo2_Click() Dim a As Integer a = Combo2.ListIndex Select Case a Case 0: Label4.FontBold = False Label4.FontItalic = False Case 1: Label4.FontBold = True