VB教案第11章滚动条和计时器

《VB教案第11章滚动条和计时器》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、福建交通职业技术学院(教案)首页班级：日期：年月日编号：教学目的与要求本课重点与难点课堂进程次序12345678福建交通职业技术学院教案纸第页课程：学年第__学期第周月日教学内容备注一、滚动条滚动条通常作为数据输入的工具，或者作为速度、数量的指示器。滚动条分为水平滚动条和垂直滚动条，如图4-15所示就是滚动条。图4-15滚动条滚动条的主要属性有：Value：滚动条的值，也就是滚动条的当前位置，它的取值范围在Min和Max之间；Min：滚动条可以取的最小值；Max：滚动条可以取的最大值；LargeChange单击滚动条区域时的变化Sma

2、llChange单击箭头时的变化滚动条的事件：Change：改变滚动条的Value值，触发该事件；Scroll：拖动滚动条的滑块触发该事件。Scroll事件用来跟踪滚动条中的动态变化，Change事件则用来得到滚动条最后的值。例题，见编程实例中程序举例：例题1.下面的程序使用滚动条来改变窗体的颜色福建交通职业技术学院教案纸第页课程：学年第__学期第周月日教学内容备注RGB(0,255,0)V.设计界面在窗体中添加标签Lable1、Lable2和Lable3，添加Hscroll1、Hscroll2和Hscrll3。界面如图4-16所示。

3、图4-16程序界面II.设置属性设置属性，设置各个控件的属性（省略），设置属性后的界面如图4-17所示。图4-17设置属性后的界面III.编写代码,如下：PrivateSubHScroll1_Change()福建交通职业技术学院教案纸第页课程：学年第__学期第周月日教学内容备注Form1.BackColor=RGB(Hscroll1.Value,Hscroll2.Value,Hscroll3.Value)EndSubPrivateSubHscroll2_Change()Form1.BackColor=RGB(Hscroll1.Valu

4、e,Hscroll2.Value,Hscroll3.Value)EndSubPrivateSubHscroll3_Change()Form1.BackColor=RGB(Hscroll1.Value,Hscroll2.Value,Hscroll3.Value)EndSubIV.保存程序保存程序。V.运行程序，如图4-18所示。运行程序。图4-18程序界面福建交通职业技术学院教案纸第页课程：学年第__学期第周月日教学内容备注例题2.拖动滚动条的滚动框改变图像框在窗体中的位置（如图11）。（不讲解）图11操作步骤：开始：新建一个工程。按图

5、11所示创建各个控件。下一步：两个滚动条的属性设置如下：LargerChange为10、Max为100、Min为0、SmallChange为1.下一步：编写代码：OptionExplicitDimXAsSingle,YAsSingleDimStepXAsSingle,StepYAsSinglePrivateSubForm_Load()StepX=(VScroll1.Left-Image1.Width)/100StepY=(VScroll1.Top-Image1.Height)/100EndSubPrivateSubHScroll1_S

6、croll()X=HScroll1.Value*StepXImage1.MoveX,YEndSubPrivateSubVScroll1_Scroll()Y=VScroll1.Value*StepYImage1.MoveX,YEndSub下一步：保存、运行文件。福建交通职业技术学院教案纸第页课程：学年第__学期第周月日教学内容备注二、计时器计时器是利用系统内部时间计时的，它根据用户定制的时间间隔Interval来执行Timer事件过程，也就是每隔Interval毫秒执行一次Timer事件过程。计时器的数要属性有：Interval：单位毫

7、秒，计时器每隔Interval毫秒执行一次Timer事件过程。值为0时，相当于关闭计时器；Enabled：计时器是否有效，值为True时，计时器有效，值为False时计时器无效。计时器的事件有：Timer：计时器每隔Interval毫秒要执行的过程。程序举例：见编程实例计时器1和11-2程序动态显示当前的时间：I.设计界面在窗体中计时器、命令按钮和标签，界面如图4-12所示。图4-12程序界面II.设置属性设置属性，设置各个控件的属性（省略），设置属性后的界面如图4-13所示。福建交通职业技术学院教案纸第页课程：学年第__学期第周月日

8、教学内容备注图4-13设置属性后的界面III.编写代码,如下：PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()Labe