定时器控件的使用

      我们在项目中，有时需要定时执行某些功能，比如每天定时备份数据，或处理一些日终程序等。这里我主要是就VB中的Timer控件来介绍下。Timer控件的最重要的一个属性就是时间间隔属性（Interval）。它是以ms（微秒）为单位，范围0～65535。

      这里有个时间的例子，如下：

      主要用到的控件有PictureBox,名称属性设置为“PicTime”，还有三个文本框，分别为TxtYear，TextMth，TextDay，还有个用来显示时间的Label，名称为LblTime。布局如下：

 

 

定义全局变量：

Dim day, year, month, ddate, ttime As String

Dim alf(0 To 11)

Dim rr

Dim nHourLen, nMinLen, nSecLen As Integer

Const Pi = 3.1415926

设定Timer间隔时间为1秒：

Private Sub Form_Load()

    Timer1.Interval = 1000

End Sub
Timer事件：

Private Sub Timer1_Timer()
   
    rr = PicTime.Height / 2
   
    ddate = Format(No