VB教案第11章滚动条和计时器.docx
《VB教案第11章滚动条和计时器.docx》由会员分享，可在线阅读，更多相关《VB教案第11章滚动条和计时器.docx（11页珍藏版）》请在冰豆网上搜索。
VB教案第11章滚动条和计时器
班级：
日期：
年月日编号：
教学目
的与要求
本课重
点与难点
课堂进程
次序
1
2
3
4
5
6
7
8
一、滚动条
滚动条通常作为数据输入的工具，或者作为速度、数量的指示器。
滚动条分为水平滚动条和垂直滚动条，如图4-15所示就是滚动条。
图4-15滚动条
滚动条的主要属性有：
Value：
滚动条的值，也就是滚动条的当前位置，它的取值范围在Min和Max之间；
Min：
滚动条可以取的最小值；
Max：
滚动条可以取的最大值；
LargeChange单击滚动条区域时的变化
SmallChange单击箭头时的变化
滚动条的事件：
Change：
改变滚动条的Value值，触发该事件；
Scroll：
拖动滚动条的滑块触发该事件。
Scroll事件用来跟踪滚动条中的动态变化，Change事件则用来得到滚动条最后的值。
例题，见编程实例中
程序举例：
例题1.下面的程序使用滚动条来改变窗体的颜色
RGB（0,255,0）
V.设计界面
在窗体中添加标签Lable1、Lable2和Lable3，添加Hscroll1、Hscroll2和Hscrll3。
界面如图4-16所示。
图4-16程序界面
II.设置属性
设置属性，设置各个控件的属性（省略），设置属性后的界面如图4-17所示。
图4-17设置属性后的界面
III.编写代码,如下：
PrivateSubHScroll1_Change（）
Form1.BackColor=RGB（Hscroll1.Value,Hscroll2.Value,Hscroll3.Value）
EndSub
PrivateSubHscroll2_Change（）
Form1.BackColor=RGB（Hscroll1.Value,Hscroll2.Value,Hscroll3.Value）
EndSub
PrivateSubHscroll3_Change（）
Form1.BackColor=RGB（Hscroll1.Value,Hscroll2.Value,Hscroll3.Value）
EndSub
IV.保存程序
保存程序。
V.运行程序，如图4-18所示。
运行程序。
图4-18程序界面
例题2.拖动滚动条的滚动框改变图像框在窗体中的位置（如图11）。
（不讲解）
图11
操作步骤：
开始：
新建一个工程。
按图11所示创建各个控件。
下一步：
两个滚动条的属性设置如下：
LargerChange为10、Max为100、Min为0、SmallChange为1.
下一步：
编写代码：
OptionExplicit
DimXAsSingle,YAsSingle
DimStepXAsSingle,StepYAsSingle
PrivateSubForm_Load（）
StepX=（VScroll1.Left-Image1.Width）/100
StepY=（VScroll1.Top-Image1.Height）/100
EndSub
PrivateSubHScroll1_Scroll（）
X=HScroll1.Value*StepX
Image1.MoveX,Y
EndSub
PrivateSubVScroll1_Scroll（）
Y=VScroll1.Value*StepY
Image1.MoveX,Y
EndSub
下一步：
保存、运行文件。
二、计时器
计时器是利用系统内部时间计时的，它根据用户定制的时间间隔Interval来执行Timer事件过程，也就是每隔Interval毫秒执行一次Timer事件过程。
计时器的数要属性有：
Interval：
单位毫秒，计时器每隔Interval毫秒执行一次Timer事件过程。
值为0时，相当于关闭计时器；
Enabled：
计时器是否有效，值为True时，计时器有效，值为False时计时器无效。
计时器的事件有：
Timer：
计时器每隔Interval毫秒要执行的过程。
程序举例：
见编程实例计时器1和11-2
程序动态显示当前的时间：
I.设计界面
在窗体中计时器、命令按钮和标签，界面如图4-12所示。
图4-12程序界面
II.设置属性
设置属性，设置各个控件的属性（省略），设置属性后的界面如图4-13所示。
图4-13设置属性后的界面
III.编写代码,如下：
PrivateSubCommand1_Click（）
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Timer（）
Label1.Caption=Time
EndSub
IV.保存程序
保存程序。
V.运行程序
运行程序。
运行程序界面如图4-14所示。
图4-14程序运行的界面
作业，见p178,1和2
2.、
解答要点：
在窗体上添加一个计时控件，其中interval属性为1000，也即1s的时间间隔
PrivateSubCommand1_Click（）
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click（）
Timer1.Enabled=False
Label1.Caption="00:
00:
00"
EndSub
PrivateSubTimer1_Timer（）
Label1.Caption=Time（）
EndSub
4．使用计时器控件
操作3：
设计一个电子表
在窗体上设计一个数字时钟，如图4-15所示。
设计步骤如下：
建立应用程序用户界面。
设置对象属性。
编写计时器控件Timer1的Timer事件代码。
编写命令按钮Command1的Click事件代码：
操作4：
设计一个流动字幕板
为一个应用系统设计流动字幕板，如图4-19所示，标题“欲穷千里目，更上一层楼”在窗体中自右至左地反复移动。
设计步骤如下：
建立应用程序用户界面与设置对象属性
编写命令按钮Command1的Click事件代码。
3设计一个计时器，要求每隔一秒钟显示一次当前的时间。
操作步骤：
开始：
新建一个工程。
在窗体上插入三个命令按钮、三个标签控件、四个文本框和一个计时器。
如图12所示。
图12
下一步：
属性设置，标签标题为“计时器”，计时器的Interval的值为1000。
下一步：
在各事件中编写代码：
下一步：
保存文件，并运行程序，结果如图13，14，15。
图13图14
图15
新建一个工程，完成“字幕滚动”程序设计。
将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“字幕滚动”，固定边框。
（2）在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”。
（3）单击“开始”按钮，标签文字在定时器控制下自动地从左向右移动，移动速度为每个时间间隔右移100缇，当标签移动到窗体外时，再从窗体的左边进入，同时“开始”按钮变为“停止”按钮。
（4）单击“停止”按钮，标签“祝您考试成功”文字停止滚动。
同时，“停止”按钮变为“开始”按钮。
（5）定时器（Timer1）的时间间隔为0.1秒。
（6）其他界面设计参考Design.exe程序运行效果，如图2-3所示。
图2-3“字幕滚动”程序运行效果
（注：
可编辑下载，若有不当之处，请指正，谢谢!
）
升级会员 