VB中时钟控件几种运用.docVIP

VB中时钟控件几种运用 　　摘 要：时钟控件是VB中一个非常重要的常用控件。它的主要功能是利用系统内部的计时器计时产行时间间隔，定时完成某项任务及进行某种后台处理.正确灵活的运用好时钟控件的设计，可以使我们在应用程序设计中产生非常理想的一些效果. 本文用实例来介绍在VB程序中利用计时器控件与其它控件结合使用产生不同的应用效果。 　　关键词：Timer控件；动态应用；动画设计 　　中图分类号：TP31 　　VB时钟控件（Timer）又称计时器、定时器控件，用于按指定的时间间隔周期性地自动触发事件。它主要有两个功能：一是用于定时完成某项任务，即每隔一段固定的时间就执行一次相同的任务。另一个是进行某种后台处理。时钟控件只有一个事件，就是Timer定时器事件。通过触发Timer事件，时钟控件可以有规律地隔一段时间执行一次代码。时钟控件的关键属性有两个：（1）Enabled用于设置Timer控件是否响应Timer定时器事件。属性值为true和false。（2）Interval用于返回或设置对Timer控件的定时器事件调用周期的时间间隔。以毫秒为单位，取值范围为0-65535毫秒。时钟控件在设计时出现在窗体中，而在程序运行阶段是不可见的。 　　1 计时器（Timer）控件与滚动条（Hscrollbar）控件的应用 　　1.1 自动求阶乘设计 　　在窗体上设置1个滚动条控件、2个标签控件、1个时钟控件和2个命令按钮（如图1）。相应代码如下 　　Dim n， j， I ‘定义N，J，I三个整型变量 　　Private Sub Command1_Click（） ‘开始按钮事件 　　Timer1.Enabled = True 　　End Sub 　　Private Sub Command2_Click（） ；暂停按钮事件 　　Timer1.Enabled = False 　　End Sub 　　Private Sub Timer1_Timer（） ‘timer事件过程 　　n = HScroll1.Value 　　j = 1 　　For i = 1 To n ‘循环计算N！ 　　j = j * i 　　Next 　　Cls 　　Label1.Caption = Str（n） + ！= 　　Label2.Caption = j 　　If HScroll1.Value 　　Private Sub Command3_Click（） ‘退出按钮 　　End 　　End Sub 　　Private Sub Form_Load（） ‘窗体初始化 　　Timer1.Enabled = False 　　Label1.Left = Form1.Width 　　Label1.Caption = 中华人民共和国 　　Label1.FontSize = 30 　　Timer1.Interval = 100 　　End Sub 　　Private Sub Timer1_Timer（） ‘timer事件过程 　　Label1.Left = Label1.Left - 20 　　If Label1.Left + Label1.Width 0 Then 　　Label1.Left = Label1.Left - 100 　　Else 　　Label1.Left = Form1.Width 　　End If 　　End Sub 　　运行结果如图6 　　4 计时器（Timer）控件与图片框（picturebox）控件和图像框（image）控件的应用。 　　4.1 放大图片 　　在窗体上设置图片框（picturebox）控件、1个时钟控件和2个命令按钮（如图7）。则相应代码如下 　　Private Sub Command1_Click（） ‘开始按钮 　　Picturebox1.Visible = True 　　Timer1.Enabled = True 　　End Sub 　　Private Sub Command2_Click（） ‘退出按钮 　　End 　　End Sub 　　Private Sub Form_Load（） ‘窗体初始化 　　Picturebox1.Visible = False 　　Picturebox1.Enabled = False 　　Picturebox1.Width = 3000 　　Picturebox1.Height = 2000 　　End Sub 　　Private Sub Timer1_Timer（） ‘timer事件过程 　　Picturebox1.Width = Image1.Width + 50 　　Picturebox1.Height = Image1.Height + 30 　　If Picturebox1.Width