VB.NET 定时器控件

2025年3月17日 | 阅读 3 分钟

定时器控件是一个循环控件，用于在给定的时间间隔内重复任何任务。它是客户端和服务器端编程以及 Windows 服务中使用的重要控件。

此外，如果我们想在特定时间后执行应用程序，我们可以使用定时器控件。一旦定时器启用，它就会生成一个刻度事件处理程序，以在其时间间隔属性中执行任何定义的任务。它在调用定时器控件的 start() 方法时启动，并且它会不断重复定义的任务，直到定时器停止。

让我们通过以下步骤在 VB.NET Windows 窗体中创建一个定时器控件。

步骤 1： 将定时器控件拖放到窗口窗体上，如下所示。

步骤 2： 将定时器添加到窗体后，我们可以通过单击定时器控件来设置定时器的各种属性。

定时器控件属性

以下是 VB.NET 定时器控件的属性。

性质	描述
名称	Name 属性用于设置控件的名称。
Enabled（启用）	Enables 属性用于启用或禁用定时器控件。默认情况下，它为 True。
Interval	Interval 属性用于设置或获取以毫秒为单位的迭代间隔，以引发定时器控件的已过事件。根据间隔，定时器会重复该任务。
AutoReset（自动重置）	AutoReset 属性用于获取或设置一个布尔值，该值确定定时器是否仅引发一次已过事件。
事件	Events 属性用于获取与事件组件关联的事件处理程序的列表。
CanRaiseEvents（可以引发事件）	它用于获取一个值，该值表示组件是否可以引发事件。

定时器控件的事件

事件	描述
Disposed	当通过调用 Dispose 方法终止控件或组件时，会发生 Dispose 事件。
Elapsed（已过）	当定时器控件中的间隔到期时，会发生 Elapsed 事件。
Tick（刻度）	刻度事件用于根据在 Interval 属性中设置的时间重复该任务。它是定时器控件的默认事件，它会在 Start() 和 Stop() 方法之间重复该任务。

定时器控件的方法

方法	描述
BeginInt()	BeginInt() 方法用于启动在窗体上或由另一个组件使用的定时器控件的运行时初始化。
Dispose()	Dispose() 方法用于释放定时器控件或组件使用的所有资源。
Dispose(Boolean)	它用于释放当前 Timer 控件使用的所有资源。
Close()	Close() 方法用于释放 Timer 控件使用的资源。
Start()	Start() 方法用于通过将 Enabled 属性设置为 true 来开始定时器控件的已过事件。
EndInt()	EndInt() 方法用于结束在窗体上或由另一个组件使用的定时器控件的运行时初始化。
Stop()	Stop() 方法用于通过将 Enabled 属性设置为 false 来停止定时器控件的已过事件。

让我们创建一个简单的程序来了解定时器控件在 VB.NET Windows 窗体中的用法。

TimerProgram.vb

Public Class TimerProgram
    Private Sub TimerProgram_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "javatpooint.com" 'Set the title for a Windows Form
        Label1.Text = "WELCOME TO JAVATPOINT.COM"
        TextBox1.Text = 1
        Timer1.Enabled = True
        Button1.Text = "Start"
        Button1.BackColor = Color.Green
        Button1.ForeColor = Color.White
        Button2.Text = "Stop"
        Button2.BackColor = Color.Red
        Button2.ForeColor = Color.White
        Timer1.Start()
        Timer1.Interval = 600 'set the time interval
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If Label1.ForeColor = Color.Red Then
            Label1.ForeColor = Color.Blue
        ElseIf Label1.ForeColor = Color.Blue Then
            Label1.ForeColor = Color.Red
        End If
        TextBox1.Text = TextBox1.Text + 1 'Incremenet the TextBox1 by 1
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Timer1.Stop() ' Stop the timer
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Start() 'Start the timer
    End Sub
End Class

输出

当程序执行时，它开始闪烁欢迎来到 JAVATPOINT.COM 声明并计数到 1，如上所示。当数字为奇数时，该声明的颜色为红色，当数字为偶数时，该声明的颜色为蓝色，如下所示。

下一主题如何在 VB.NET 中将窗体保持在其他窗体的顶部

VB.NET 定时器控件

定时器控件属性

定时器控件的事件

定时器控件的方法

联系信息

关注我们

教程

面试题

在线编译器

Python

Java

.Net Framework

AI, ML and Data Science

Cloud Technology

B.Tech and MCA

Web Technology

PHP

Software Testing

Technical Interview

Java Interview

Python

Web Interview

Database Interview

B.Tech / MCA

Important Interview

Software Testing Interview

Company Interviews

Online Compilers

Multiple Choice Questions

VB.NET 教程

VB.NET 定时器控件

定时器控件属性

定时器控件的事件

定时器控件的方法

相关帖子

VB.NET vs C#

TreeView 控件

异常处理

VB.NET GoTo 语句

VB.NET 函数

文件处理

VB.NET HashTable

NameValueCollection

颜色对话框

打印对话框

订阅 Tpoint Tech

联系信息

关注我们

教程

面试题

在线编译器