使用Timer组件开始vb.net

有时候，我们需要创建一个进程，该进程可以在特定的时间间隔运行直到循环完成，或者在设置的时间间隔之后，我们只需要创建一个计时器即可. 计时器组件使我们轻松实现目标. 我们称它为计时器控件.

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所示:

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/ruanjian/article-146400-1.html