VB教案第11章滚动条和计时器Word格式.docx
《VB教案第11章滚动条和计时器Word格式.docx》由会员分享,可在线阅读,更多相关《VB教案第11章滚动条和计时器Word格式.docx(11页珍藏版)》请在冰豆网上搜索。
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()
PrivateSubHscroll3_Change()
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
PrivateSubHScroll1_Scroll()
X=HScroll1.Value*StepX
Image1.MoveX,Y
PrivateSubVScroll1_Scroll()
Y=VScroll1.Value*StepY
Image1.MoveX,Y
保存、运行文件。
二、计时器
计时器是利用系统内部时间计时的,它根据用户定制的时间间隔Interval来执行Timer事件过程,也就是每隔Interval毫秒执行一次Timer事件过程。
计时器的数要属性有:
Interval:
单位毫秒,计时器每隔Interval毫秒执行一次Timer事件过程。
值为0时,相当于关闭计时器;
Enabled:
计时器是否有效,值为True时,计时器有效,值为False时计时器无效。
计时器的事件有:
Timer:
计时器每隔Interval毫秒要执行的过程。
见编程实例计时器1和11-2
程序动态显示当前的时间:
I.设计界面
在窗体中计时器、命令按钮和标签,界面如图4-12所示。
图4-12程序界面
设置属性,设置各个控件的属性(省略),设置属性后的界面如图4-13所示。
图4-13设置属性后的界面
PrivateSubCommand1_Click()
Timer1.Enabled=True
PrivateSubTimer1_Timer()
Label1.Caption=Time
V.运行程序
运行程序界面如图4-14所示。
图4-14程序运行的界面
作业,见p178,1和2
2.、
解答要点:
在窗体上添加一个计时控件,其中interval属性为1000,也即1s的时间间隔
Timer1.Enabled=True
PrivateSubCommand2_Click()
Timer1.Enabled=False
Label1.Caption="
00:
00"
Label1.Caption=Time()
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“字幕滚动”程序运行效果
(注:
可编辑下载,若有不当之处,请指正,谢谢!
)