VB教案第11章滚动条和计时器Word格式.docx

1、678 一、滚动条滚动条通常作为数据输入的工具，或者作为速度、数量的指示器。滚动条分为水平滚动条和垂直滚动条，如图4-15所示就是滚动条。图4-15 滚动条滚动条的主要属性有：Value：滚动条的值，也就是滚动条的当前位置，它的取值范围在Min和Max 之间；Min：滚动条可以取的最小值；Max：滚动条可以取的最大值；LargeChange单击滚动条区域时的变化 SmallChange单击箭头时的变化滚动条的事件：Change：改变滚动条的Value值，触发该事件；Scroll：拖动滚动条的滑块触发该事件。Scroll 事件用来跟踪滚动条中的动态变化，Change 事件则用来得到滚动条最后的值

2、。例题，见编程实例中程序举例：例题1.下面的程序使用滚动条来改变窗体的颜色RGB（0,255,0）V.设计界面在窗体中添加标签Lable1、Lable2和Lable3，添加Hscroll1、Hscroll2和Hscrll3。界面如图4-16所示。图4-16 程序界面II.设置属性 设置属性，设置各个控件的属性（省略），设置属性后的界面如图4-17所示。图4-17设置属性后的界面III.编写代码,如下：Private Sub HScroll1_Change（） Form1.BackColor = RGB（Hscroll1.Value, Hscroll2.Value, Hscroll3.Value

3、）End SubPrivate Sub Hscroll2_Change（）Private Sub Hscroll3_Change（）End Sub IV.保存程序保存程序。V.运行程序，如图4-18所示。运行程序。图4-18 程序界面例题2. 拖动滚动条的滚动框改变图像框在窗体中的位置（如图11）。（不讲解）图11操作步骤：开始：新建一个工程。按图11所示创建各个控件。下一步：两个滚动条的属性设置如下：LargerChange为10、Max为100、Min为0、SmallChange为1.编写代码：Option Explicit Dim X As Single, Y As Single Dim

4、 StepX As Single, StepY As SinglePrivate Sub Form_Load（） StepX = （VScroll1.Left - Image1.Width） / 100 StepY = （VScroll1.Top - Image1.Height） / 100Private Sub HScroll1_Scroll（） X = HScroll1.Value * StepX Image1.Move X, Y Private Sub VScroll1_Scroll（） Y = VScroll1.Value * StepY Image1.Move X, Y保存、运行文件

5、。二、 计时器计时器是利用系统内部时间计时的，它根据用户定制的时间间隔Interval来执行Timer事件过程，也就是每隔Interval毫秒执行一次Timer 事件过程。计时器的数要属性有：Interval：单位毫秒，计时器每隔Interval毫秒执行一次Timer事件过程。值为0时，相当于关闭计时器；Enabled：计时器是否有效，值为True时，计时器有效，值为False时计时器无效。计时器的事件有：Timer：计时器每隔Interval毫秒要执行的过程。见编程实例计时器1和11-2程序动态显示当前的时间：I.设计界面在窗体中计时器、命令按钮和标签，界面如图4-12所示。图4-12 程序

6、界面 设置属性，设置各个控件的属性（省略），设置属性后的界面如图4-13所示。图4-13设置属性后的界面Private Sub Command1_Click（） Timer1.Enabled = TruePrivate Sub Timer1_Timer（） Label1.Caption = TimeV.运行程序运行程序界面如图4-14所示。图4-14 程序运行的界面作业，见p178,1和22.、解答要点：在窗体上添加一个计时控件，其中interval属性为1000，也即1s的时间间隔Timer1.Enabled = TruePrivate Sub Command2_Click（）Timer1.

7、Enabled = FalseLabel1.Caption = 00:00Label1.Caption = Time（）4使用计时器控件 操作3：设计一个电子表 在窗体上设计一个数字时钟，如图4-15所示。设计步骤如下：建立应用程序用户界面。设置对象属性。编写计时器控件Timer1的Timer事件代码。编写命令按钮Command1的Click事件代码：操作4：设计一个流动字幕板为一个应用系统设计流动字幕板，如图4-19所示，标题“欲穷千里目，更上一层楼”在窗体中自右至左地反复移动。建立应用程序用户界面与设置对象属性 编写命令按钮Command1的Click事件代码。3设计一个计时器，要求每隔一

8、秒钟显示一次当前的时间。在窗体上插入三个命令按钮、三个标签控件、四个文本框和一个计时器。如图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 “字幕滚动”程序运行效果 （注：可编辑下载，若有不当之处，请指正，谢谢!）