VB.NET 定时器控件 |
您所在的位置：网站首页 › VB定时器 › VB.NET 定时器控件 |
|
VB.NET 定时器控件
计时器控件是一个循环控件，用于在给定的时间间隔内重复任何任务。它是用于客户端和服务器端编程以及 Windows 服务的重要控件。 此外，如果我们想在特定时间后执行应用程序，我们可以使用Timer Control。启用计时器后，它会生成一个滴答事件处理程序以执行其时间间隔属性中定义的任何任务。它在调用定时器控制的 start() 方法时启动，并不断重复定义的任务，直到定时器停止。 让我们使用以下步骤在 VB.NET Windows 窗体中创建一个 Timer 控件。 步骤 1：将 Timer 控件拖放到窗体上，如下图所示。 步骤2：一旦将定时器添加到表单中，我们可以通过单击定时器控件来设置定时器的各种属性。 定时器控件属性VB.NET Timer 控件有以下属性。 特性 描述 姓名 Name 属性用于设置控件的名称。 启用 Enables 属性用于启用或禁用计时器控件。默认情况下，它是 True。 间隔 Interval 属性用于设置或获取以毫秒为单位的迭代间隔，以引发计时器控件的已用事件。根据间隔，计时器重复任务。 自动复位 AutoReset 属性用于获取或设置一个布尔值，该值确定计时器是否仅引发经过的事件一次。 活动 Events 属性用于获取与事件组件关联的事件处理程序列表。 CanRaise 事件 它用于获取表示组件是否可以引发事件的值。 定时器控制事件 活动 描述 处置 当通过调用 Dispose 方法终止控件或组件时，会发生 Dispose 事件。 过去 当定时器控制中的时间间隔过去时，已发生 Elapsed 事件。 打钩 滴答事件用于根据 Interval 属性中设置的时间重复任务。它是计时器控件的默认事件，它在 Start() 和 Stop() 方法之间重复任务。 定时器控制方法 方法 描述 开始整数（） BeginInt() 方法用于启动在窗体上或由另一个组件使用的计时器控件的运行时初始化。 处置（） Dispose() 方法用于释放计时器控件或组件使用的所有资源。 处置（布尔） 它用于释放当前 Timer 控件使用的所有资源。 关闭（） Close() 方法用于释放 Timer Control 使用的资源。 开始（） Start() 方法用于通过将 Enabled 属性设置为 true 来开始 Timer 控件的已用事件。 EndInt() EndInt() 方法用于结束在窗体或其他组件上使用的计时器控件的运行时初始化。 停止（） Stop() 方法用于通过将 Enabled 属性设置为 false 来停止计时器控件的已用事件。让我们创建一个简单的程序来了解 Timer Control 在 VB.NET Windows 窗体中的使用。 定时器程序.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输出： 当程序执行时，它开始闪烁WELCOME TO JAVATPOINT.COM语句并将数字计数为 1，如上所示。当数字为奇数时，语句的颜色为红色，当数字为偶数时，语句的颜色为蓝色，如下图所示。 |
今日新闻 |
推荐新闻 |
| CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |