VB.NET定时器

chinaherolts2008

于 2021-08-22 14:05:41 发布

阅读量827

点赞数

分类专栏： vb.net教程

原文链接：https://me.csdn.net/cyberstyle

版权

vb.net教程专栏收录该内容

563 篇文章 113 订阅

订阅专栏

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