VB.NET定时器

最新推荐文章于 2025-05-06 20:00:43 发布

cyberstyle

最新推荐文章于 2025-05-06 20:00:43 发布

阅读量2k

点赞数 1

CC 4.0 BY-SA版权

文章标签： vb.net

原文链接：https://me.youkuaiyun.com/cyberstyle

本文介绍了一个使用Visual Basic .NET实现的定时任务处理程序。通过创建Timer实例并设置其属性，如时间间隔、自动重置及事件触发状态，程序能够定期检查当前时间是否与预设的特定时间匹配。如果匹配，则显示消息框通知用户。此方法适用于需要在固定时间执行特定任务的应用场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'InitializeComponent()

        Dim atimer As Timer = New Timer()
        AddHandler atimer.Elapsed, New ElapsedEventHandler(AddressOf theout) '到达时间的时候执行事件；


        atimer.Interval = 2000 '设置引发时间的时间间隔　此处设置为１秒（１０００毫秒）
        atimer.AutoReset = True '设置是执行一次（false）还是一直执行(true)；
        atimer.Enabled = True '是否执行System.Timers.Timer.Elapsed事件；

    End Sub

Public Sub theout(ByVal source As Object, ByVal e As System.Timers.ElapsedEventArgs)

        'MessageBox.Show(DateTime.Now.ToLongTimeString().ToString())

        Dim AutoTask As ArrayList = New ArrayList()
        AutoTask.Add("8:30:00")
        AutoTask.Add("9:37:00")
        AutoTask.Add("10:30:00")
        AutoTask.Add("2020/4/7 18:22:00")

        For n As Integer = 0 To 4 - 1

            'If DateTime.Now.ToLongTimeString().Equals(AutoTask(n)) Then
            If DateTime.Now.ToString().Equals(AutoTask(n)) Then
                MessageBox.Show("现在时间是" & AutoTask(n))
            End If
        Next
    End Sub