vb 控制台定时器

qshzf

于 2012-04-17 08:46:33 发布

阅读量717

点赞数 1

文章标签： timer object vb

本文链接：https://blog.csdn.net/qshzf/article/details/7468090

版权

    Sub Main()
        'vb 控制台 定时器
        Dim 定时器 As System.Timers.Timer
        定时器 = New System.Timers.Timer
        AddHandler 定时器.Elapsed, AddressOf 定时器事件
        定时器.Interval = 1000

        定时器.Start()

        Console.ReadKey()
    End Sub

    Private Sub 定时器事件(ByVal sender As Object, ByVal e As EventArgs)
        Console.WriteLine(Timer)
    End Sub