有关控件Timer,请朋友们进来看一下！！谢谢！希望能够得到你们的相助。

Question

timer里面就那么几个方法属性，试一试就晓得了

Answer 1

Timer 控件
            
通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。语法
Timer说明
Timer 控件用于背景进程中，它是不可见的。对于 Timer 控件以外的其它控件的多重选择，不能设置 Timer 的 Enabled 属性。在运行于 Windows 95 或 Windows NT 下的 Visual Basic 5.0 中可以有多个活动的定时器控件，对此，实际上并没有什么限制。-----------------------------------------------------------
Enabled 属性
      返回或设置一个值，该值用来确定一个窗体或控件是否能够对用户产生的事件作出反应。语法object.Enabled [= boolean]Enabled 属性的语法包含下面部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的一个对象。如果 object 被省略，则与活动窗体模块相联系的窗体被认为是 object。 
boolean 一个用来指定 object 是否能够对用户产生的事件作出反应的布尔表达式。 
设置boolean 的设置为：设置 描述 
True （缺省）允许 object 对事件作出反应。 
False 阻止 object 对事件作出反应。 
说明Enabled 属性允许在运行时使窗体和控件成为有效或无效。例如，可以使对象成为不能用于应用程序的当前状态的无效状态。也可以使之纯粹用来显示，比如一个提供只读信息的文本框的控件无效。通过把 Enabled 设置为 False 来使 Timer 控件成为无效，将取消由控件的 Interval 属性所建立的倒计数。对于 Menu 控件，Enabled 在运行时可正常地读/写。但是对于那些被 Visual Basic 的加载宏遗弃或提供的菜单项来说，Enabled 是只读的，例如在“外接程序”菜单中的“外接程序管理器”命令。
-----------------------------------------------------------------
Interval 属性
      返回或设置对 Timer 控件的计时事件各调用间的毫秒数。语法object.Interval [= milliseconds]Interval 属性语法有以下组成部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的一个对象。 
milliseconds 数值表达式，指定毫秒数，“设置值”中有详细说明，。 
设置值milliseconds 的设置值为：设置值 描述 
0 （缺省值）使 Timer 控件无效。 
1 to 65,535  设置的时间间隔（以毫秒计），在 Timer 控件 Enabled 属性设置为 True 时开始有效，例如，10，000 毫秒等于 10 秒。最大值为 65，535 毫秒，等于 1 分钟多一些。 
说明可以在设计时或在运行时设置 Timer 控件的 Interval 属性。使用 Interval 属性时，请记住： Timer 控件的 Enabled 属性决定该控件是否对时间的推移做响应。将Enabled 设置为 False 会关闭 Timer 控件，设置为 True 则打开它。当 Timer 控件置为有效时，倒计时总是从其 Interval 属性的设置值开始。
创建 Timer 事件程序用以告诉 Visual Basic 在每次 Interval 到时该做什么。 
-------------------------------------------------------------------
Timer 事件
      在一个 Timer 控件的预定的时间间隔过去之后发生。该间隔的频率储存于该控件的 Interval 属性中，它以千分之一秒为单位指定时间的长度。语法Private Sub object_Timer([index As Integer])Timer 事件语法包括下列部分：部分 描述 
object 一个对象表达式，其值是“应用于”列表中的一个对象。 
index 一个整数，用来唯一地标识一个在控件数组中的控件。 
说明使用 Timer 事件时，可用此事件在每次 Timer 控件时间间隔过去之后通知 Visual Basic 应该做什么： Interval 属性以千分之一秒为单位指定 Timer 事件之间的间隔。
无论何时，只要 Timer 控件的 Enabled 属性被设置为 True 而且 Interval 属性大于 0，则 Timer 事件以 Interval 属性指定的时间间隔发生。 

Answer 2

Interval 属性示例
这个例子可以调整窗体切换颜色的速度。要尝试这个例子，请将代码粘贴到包含 Timer 控件、HScrollBar 控件（水平滚动条）和 PictureBox 控件的窗体的声明部分，然后按 F5 键并单击滚动条。Private Sub Form_Load ()
   Timer1.Interval = 900   ' 设置时间间隔。
   HScroll1.Min = 100   ' 设置最小值。
   HScroll1.Max = 900   ' 设置最大值。
End Sub
Private Sub HScroll1_Change ()
   ' 根据滚动条的数值设置时间间隔。
   Timer1.Interval = 1000 - HScroll1.Value
End Sub
Private Sub Timer1_Timer ()
   ' 在红色和蓝色之间切换背景色。
    If Picture1.BackColor = RGB(255, 0, 0) Then
       Picture1.BackColor = RGB(0, 0, 255)
   Else
       Picture1.BackColor = RGB(255, 0, 0)
   End If
End Sub
--------------------------------------------------------------
Timer 事件示例
这个例子演示一个数字时钟。 要尝试这个例子，可以将代码粘贴到包含一个 Label 控件和一个 Timer 控件窗体的声明部分，然后按 F5。Private Sub Form_Load ()
   Timer1.Interval = 1000   ' 设置计时器时间间隔。
End SubPrivate Sub Timer1_Timer ()
   Label1.Caption = Time   ' 更新时间显示。
End Sub本例在一个窗体内移动一个 PictureBox 控件。要尝试这个例子，可以将代码粘贴到一个包含 Timer 控件和一个 PictureBox 控件窗体的声明部分，然后按 F5。为了得到更好的视觉效果，可以将 PictureBox 的 Picture 属性赋值为一个位图。Dim DeltaX, DeltaY As Integer   ' 声明变量。
Private Sub Timer1_Timer ()
   Picture1.Move Picture1.Left + DeltaX, Picture1.Top + DeltaY
   If Picture1.Left < ScaleLeft Then DeltaX = 100
   If Picture1.Left + Picture1.Width > ScaleWidth + ScaleLeft Then
      DeltaX = -100
   End If
   If Picture1.Top < ScaleTop Then DeltaY = 100
   If Picture1.Top + Picture1.Height > ScaleHeight + ScaleTop Then
      DeltaY = -100
   End If
End SubPrivate Sub Form_Load ()
   Timer1.Interval = 1000   ' 设置时间间隔。
   DeltaX = 100   ' 初始化变量。
   DeltaY = 100
End Sub