有时候，我们需要创建一个进程，该进程可以在特定的时间间隔运行直到循环完成，或者在设置的时间间隔之后，我们只需要创建一个计时器即可. 计时器组件使我们轻松实现目标. 我们称它为计时器控件.
Visual Studio .NET和.NET Framework中有三个计时器控件:
1. 位于工具箱的“ Windows窗体”选项卡上的基于Windows的标准计时器，以及仅可在编程期间使用的线程计时器. 从Visual Basic版本1.0开始，基于Windows的计时器已在产品中，并且在很大程度上保持不变. 此计时器已经过优化，可在Windows Forms应用程序中使用. 我们将在本文中了解此计时器. Windows计时器位于System.Windows.Forms命名空间中.
2. 基于服务器的计时器位于“工具箱”的“组件”选项卡上. 基于服务器的计时器是传统计时器的更新版本，经过优化可在服务器环境中运行. 服务器计时器位于System.Timers命名空间中.
3. 线程计时器是一种简单，轻便的计时器，它使用回调方法而不是事件，并且由线程池线程提供. 线程计时器位于System.Threading命名空间中.
首先，为表单设计一个计时器进程
1. 从工具箱的“ Windows窗体”选项卡中选择“计时器”计时器组件图标，如下图1所示:
然后将其拖动到窗体上，因为Timer组件是非接口组件，它显示在组件栏中，如下图第二张图所示:
2. 设置计时器的间隔属性（以毫秒为单位）. 此属性确定再次运行该进程之前经过的时间. 注意计时器事件发生的频率越高，用于响应该事件的处理器时间就越长. 这会降低整体性能. 不要将间隔设置为小于所需的时间.
3. 滴答事件2. 示例
1. 将Timer组件，Label控件和Button控件拖放到窗体上.
2. 在Form1类的任何内部处理之前添加计数变量:
私有计数器为整数
3. 添加Timer组件初始化过程
私人子InitializeTimer（）
计数器= 0
Timer1.Interval = 600
Timer1.Enabled =真
结束子
4. 添加Timer组件的Tick事件. 当计数器大于或等于10时，计时器停止
Private Sub Timer1_Tick（ByVal发送者为对象vb中timer用法，ByVal e为System.EventArgs）处理Timer1.Tick
如果计数器>= 10则
'当计数器大于或等于10时，计时器停止
Timer1.Enabled = False
计数器= 0
Button1.Text =“开始”
其他
计数器=计数器+ 1
Label1.Text =“过程运行: ”＆counter.ToString
如果结束
结束子
5. 将按钮的文本属性设置为“开始”，并将Timer事件添加到Button控件的Click事件. 代码如下:
Private Sub Button1_Click（ByVal发件人为System.Object，ByVal e为System.EventArgs）处理Button1.Click
如果Button1.Text =“停止”然后
Button1.Text =“开始”
Timer1.Enabled = False
其他
Button1.Text =“停止”
Timer1.Enabled =真
如果结束
结束子
现在运行，单击“开始”按钮，Label1显示当前运行状态vb中timer用法，计时器在计数器= 10时停止，效果如下图3所示:
在处理程序中编写适当的代码. 在此事件中编写的代码以Interval属性中指定的间隔运行.
4. 将Enabled属性设置为true以启动计时器. 滴答事件将开始发生，并以设定的时间间隔运行该过程.
5. 在适当的情况下，将Enabled属性设置为false可停止该进程再次运行. 将时间间隔设置为0不会导致计时器停止.
第二，示例
1. 将Timer组件，Label控件和Button控件拖放到窗体上.
2. 在Form1类的任何内部处理之前添加计数变量:
私有计数器为整数
3. 添加Timer组件初始化过程
私人子InitializeTimer（）
计数器= 0
Timer1.Interval = 600
Timer1.Enabled =真
结束子
4. 添加Timer组件的Tick事件. 当计数器大于或等于10时，计时器停止
Private Sub Timer1_Tick（ByVal发送者为对象，ByVal e为System.EventArgs）处理Timer1.Tick
如果计数器>= 10则
'当计数器大于或等于10时，计时器停止
Timer1.Enabled = False
计数器= 0
Button1.Text =“开始”
其他
计数器=计数器+ 1
Label1.Text =“过程运行: ”＆counter.ToString
如果结束
结束子
5. 将按钮的文本属性设置为“开始”，并将Timer事件添加到Button控件的Click事件. 代码如下:
Private Sub Button1_Click（ByVal发件人为System.Object，ByVal e为System.EventArgs）处理Button1.Click
如果Button1.Text =“停止”然后
Button1.Text =“开始”
Timer1.Enabled = False
其他
Button1.Text =“停止”
Timer1.Enabled =真
如果结束
结束子
现在运行，单击“开始”按钮，Label1显示当前运行状态，计时器在计数器= 10时停止，效果如下图3所示: