VB教案(详细教案共82课时) 下载本文

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 -