VB列表框组合框527

当滚动框被重新定位，或按水平方向或垂直
方向滚动时，Scroll事件发生。拖动滑块时会触
发Scroll事件。
举例
【例】利用滚动条改变文本框中所显示文本 的字号大小。程序代码如下： Private Sub HScroll1_Change（） Label1.Caption = HScroll1.Value Text1.FontSize = HScroll1.Value End Sub
列表框

列表框（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 Timer1_Timer（） Label1.FontSize = 48 Label1.Caption = Time End Sub

制作一个倒计时程序。用户可以输入倒 计时开始的秒数，每秒减1,到0为止。 倒计时的时候，要用不同的颜色作提示。 15-11秒，用绿色提示；10-6秒，黄 色提示；5-0用红色提示。
列表框

列表框主要属性

text属性：用于存放被选中列表项的文本内 容。
Private Sub Command1_Click() Label1.Caption = List1.Text End Sub
列表框

列表框常用方法

AddItem：用于将项目添加到列表框控件
语法格式： 〈对象名〉.AddItem item [, index] 其中：item: 为字符串表达式， 表示要加入的项目。 Index:决定新增项目的位置，缺省， 则添加在最后。
滚动条-事件
（1）Change事件
滚动条的Change事件在移动滚动框或通过代
码改变其Value属性值时发生。单击滚动条两端的
Scroll事件与Change事件的区别在于：当滚动条控件 箭头或空白处将引发Change事件。 滚动时Scroll事件一直发生，而Change事件只是在滚 （2）Scroll事件 动结束之后才发生一次。
滚动条示例
设计一个用于设置字体颜色的程序
计时器
用于间隔一定时间触发事件 常用属性


wk.baidu.com
Interval：取值范围在0-64767 之间（包括这 两个数值）,单位为毫秒（0.001秒),表示计时 间隔。
Interval为0或负数,则计时器停止工作 常用事件

Timer：当Enabled属性值为True且Interval属 性值大于0时，该事件以Interval属性指定的 时间间隔发生，需要定时执行的操作即放在该 事件过程中完成。
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 Label4.FontItalic = False Case 2: Label4.FontBold = False Label4.FontItalic = True Case 3: Label4.FontBold = True Label4.FontItalic = True End Select End Sub
列表框

列表框常用方法

Clear方法：用于清除列表框控件或组合框 控件中的所有项目。
语法格式： 〈对象名〉. Clear
列表框

主要事件：
Click事件：单击某一列表项目时触发 DblClick事件：双击某一列表项目时触发

列表框

范例:设计以下界面
列表框list1
列表框

功能一

先把库存水果:苹果,梨 ,桃子,信息录入到列 表框中

List、ListCount和ListIndex属性 List： 字符型数组，存放列表框的项目 数据，下标是从0开始的。 ListIndex：为整型值，选中的项目的序 号， 没有项目选中时为-1。 ListCount：为整型值，表示项目的数量， ListCount-1是最后一项的下标。
组合框

选择不同组合框时:
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
选中不同水果,在label3中报告水果名

功能二

列表框

功能三

实现添加新项目功能
实现删除单项功能,若没有列表内容，则报 出信息 报告共有多少种水果,注意添加和删除时要 修改数目
功能四


功能五:

组合框

组合框控件（ComboBox）

将文本框和列表框的功能结合在一起
组合框共三种风格： 下拉式组合框(允许输入)
组合框

P105例4-8
滚动条 (ScrollBar)

包含水平滚动条（HscrollBar)和垂直滚动条(VscrollBar)
属性（均以整数表示） (1) Value 滑块所处位置所代表的值。 (2) Max：最大值 -32,768~32,767 (3) Min：最小值 -32,768~32,767 (4) SmallChange 最小变动值，单击箭头移动增量值。 (5) LargeChange 最大变动值，单击空白处移动增量值。

组合框

初始化设置
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
习题4
例4-14 课后习题

简单组合框和 下拉式列表框(不允许输入)
组合框
基本事件与列表框类似 范例

combo1
combo2
combo3
label4
组合框

Combo1:

List 宋体、黑体、隶书、幼圆
List 常规、粗体、斜体、粗斜体

Combo2:


Combo3:
List:一号、二号、三号、四号、五号 Itemdata:26、22、16、14、10
VB语言程序设计
窗体 控件 标签 文本框 列表框和组合框 滚动条和定时器
列表框

列表框（ListBox）控件将一系列的选项 组合成一个列表，用户可以选择其中的 一个或几个选项
列表框有两种风格： 标准和复选列表框 Style=0 标准 Style=1 复选列表框
列表框

添加新项目
列表框

列表框主要属性
计时器

范例：实现向右擦除的图片显示效果

设计界面
HscrollBar: Min:1 max:4110 Visible: false(可改变) Timer: Interval: 100 Enable:false
计时器

功能：实现向右擦除的图片显示效果
使用水平滚动条控制图片宽度 使用计时器每隔100毫秒自动更新滚动条 的值。