0（默认），内容显示在一列中并垂直滚动

大于0时，列表框中的内容以指定的列数显示， 并水平滚动。 2) List

该属性是一个数组，包含所有的表项，通过下标访问数组中的值（下标从0开始）， 即List（0）保存表中的第一个数据项的内容。 3）MultiSelect

设置/返回列表框控件中是否可以进行多项选择 0-None 每次只能选择一项。（默认）

1-Simple 可以同时选多项，可用鼠标键和空格键选择 2-Extended 可用Shift键和Ctrl键连续或不连续选择 4) Sorted

用来设置/返回列表框控件中的表项是否按字符编码顺序进行排序 True 、False （默认） 5) Style

该属性设置列表框控件的外观

0-Standard 列表框控件标准形式（默认） 1-CheckBox 复选框 形式 6) ListCount

返回列表框控件中包含的表项个数，该属性只读。 7) ListIndex

返回列表框控件中最后被选中的表项的索引，范围在0～ListCount-1之间 ，没有表项被选中属性的值为-1 。

如果选择多个表项，listindex只表示最后一次的选择。 8) Text

返回列表框控件中最后被选中的表项的文本，该属性只在运行时使用，并且为只读。 9) Selected

该属性为布尔值数组，对应于List属性中的元素。对于指定的Index值来说，若Selected(Index)为True，则List(Index)中的值被选中，否则未被选中。 10) SelCount

返回列表框控件中被选中的表项的数目 ，以处理所选项目 2、列表框控件的事件 1）单击click 2）双击dblclick 3、列表框控件的方法 1) AddItem

添加格式为：Listx.AddItem 字符串[,索引值] 2) RemoveItem

删除格式为：Listx.RemoveItem 索引值 3) Clear

清除列表框中的全部内容 Listx.Clear 三、组合框控件

1、组合框控件的属性 1）Locked

设置/返回组合框控件的文本框部分是否允许编辑

True 组合框控件的文本框部分不允许编辑也不能从下拉列表中选择

- 45 -

False 组合框控件的文本框部分允许编辑 2）Style

设置/返回组合框控件的类型及列表框部分的行为

0-Dropdown Combo 控件包含一个可编辑的文本框和一个下拉列表。（默认） 1-Simple Combo 控件包含一个可编辑的文本框和一个不下拉的列表。 2-Dropdown List 控件只允许从下拉列表中选择，不允许编辑文本框部分 3）Text

设置/返回组合框控件文本框部分的文本，（从列表框部分选择文本或直接输入） 2、组合框的常用事件 1) Change

当组合框控件的文本框部分的内容改变时，触发该事件，该事件只有在Style属性设置为0-Dropdown Combo或1-Simple Combo时发生 2) Scroll

当拖动列表框部分的垂直滚动条时触发该事件 3、组合框的方法与列表框的方法相同 Ⅲ、小结

本次课主要学习了单选按钮、复选框、列表框、组合框控件，要会应用单选按钮和复选框、列表框和组合框控件的属性、事件、方法。 Ⅳ、作业

P152 一、14~17，19二、10，11，12

第41、42课时

实验四 常用控件的使用 一、实验目的：

1、通过实验进一步掌握VB6.0的控件使用技术。

2、掌握标签、文本框、命令按钮、单选按钮及复选按钮、列表框、组合框的基本用法。 二、实验内容

1、标签和文本框实验

题：利用3个文本框输入学生的学号、姓名和班级，并且在一个标签上显示应该学生的资料，其他3个标签提示用户在各个文本框输入的内容。 2、命令按钮实验 题：利用命令按钮和标签设置一个可以随机产生四位数的模拟开奖器。要求使用多种方法实现（一个命令按钮、多个命令按钮）。

3、单选按钮实验

题：在屏幕上设置：要求选择不同的运算在标签上显示不同的运算结果。 （运算符包括：加、减、乘、除，计算55+29=?,标签显示结果）

4、列表框实验

题：在窗体上添加两个LISTBOX控件和一个COMMANDBUTTON控件，单击命令按钮，将LISTBOX1中选中的东西放入LISTBOX2中。 5、组合框实验

题：在窗体上添加一个COMBOBOX控件，向其中添加一些数据。

- 46 -

第43、44课时

课题：控件（四） 教学目的:

1、掌握滚动条控件的属性、事件、方法 2、掌握时钟控件的属性、事件、方法 3、掌握框架控件的属性、事件、方法 4、应用滚动条控件、时钟控件、框架控件 教学重难点：

1、滚动条控件的属性、事件、方法 2、时钟控件的属性、事件、方法 3、框架控件的属性、事件、方法 教学方法： 多媒体教学 教学过程：

Ⅰ、复习上节内容

1、单选按钮和复选框的属性 2、列表框和组合框的属性 Ⅱ、新课

一、滚动条控件

水平滚动条（HScroll）和垂直滚动条（VScroll）

滚动条控件有三个部件滚动框、滚动箭头和滚动区域，通过鼠标操作来改变它的值。 1、滚动条控件的属性

水平滚动条控件默认名称HScrollx（x为1，2，3，?） 垂直滚动条控件默认名称VScrollx（x为1，2，3，?） 1) Value

设置/返回滚动条控件的值，即滚动框在滚动条上的位置，Value属性的值必须在Min和Max之间 2) Max/ Min

设置/返回Value属性可以设置的最大值，Min 是Value属性可以设置的最小值，范围在-32768—32767之间 3) LargeChange

设置/返回用户单击滚动条区域时滚动条控件的Value属性改变的数值，是一个整型值，范围在1～32767之间 4) SmallChange

设置/返回用户单击滚动条箭头时滚动条控件的Value属性改变的数值，是一个整型值，范围在1～32767之间 2、滚动条控件的事件 1) Change事件

滚动条的Change事件在移动滚动框或通过代码改变其Value属性值时发生。单击滚动条两端的箭头或空白处将引发Change事件。 2) Scroll事件

当滚动框被重新定位，或按水平方向或垂直方向滚动时，Scroll事件发生。拖动滑块时会触发Scroll事件。

Scroll事件与Change事件的区别在于：当滚动条控件滚动时Scroll事件一直发生，而Change事件只是在滚动结束之后才发生一次。

- 47 -

例：利用滚动条改变文本框中所显示文本的字号大小。 程序代码如下：

Private Sub Form_Load() HScroll1.Min = 10 HScroll1.Max = 100 End Sub

Private Sub HScroll1_Change（） Label1.Caption = HScroll1.Value Text1.FontSize = HScroll1.Value End Sub 二、计时器 1.用途

计时器（Timer）又称时钟控件、定时器控件，用于有规律地定时执行指定的工作，常常用于编写不需要与用户进行交互就可直接执行的代码，如计时、倒计时、动画等。 在程序运行阶段，计时器不可见。 2.属性

（1）Interval属性

取值范围在0 ~ 65535 ，单位：为毫秒（0.001秒），表示计时间隔。若将Interval属性设置为0或负数，则计时器停止工作。

1000为1秒钟，2000为2秒钟，60000为1分钟，缺省设置为 0 （2）Enabled属性

设置为True，而且Interval属性值大于0，则计时器开始工作（以Interval属性值为间隔，触发Timer事件）。

设置为False可使时钟控件无效，即计时器停止工作。缺省设置为True 3.方法：Timer控件没有方法。 4.事件

计时器只有Timer事件。

当Enabled属性值为True且Interval属性值大于0时，该事件以Interval属性指定的时间间隔发生。

常常将需要定时执行的操作放在Timer事件过程中。 例：倒计时

Dim ztime As Integer Private Sub Form_Load()

ztime = 5 '考试总时间为5秒.

Label1.Caption = \离考试结束还有\秒“\ Label2.Caption = \

Command1.Caption = \开始\End Sub

Private Sub Command1_Click()

If Command1.Caption = \交卷\ Command1.Caption = \交卷\

Timer1.Interval = 1000 '1000为1秒 End Sub

Private Sub Timer1_Timer()

- 48 -