vb.net如何在windows控制台下使用定时器

控制台调用Timer和窗体是类似的。首先在项目引用里面加入System.Windows.Forms程序集，然后在代码顶部引入命名空间：

10年积累的成都网站建设、网站设计经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站制作后付款的网站建设流程，更有黎平免费网站建设让你可以放心的选择与我们合作。

Imports System.Windows.Forms

在控制台的Module中声明一个计时器：

Private WithEvents Timer1 As New Timer()

把计时器的Tick事件静态绑定到处理函数中：

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

'一些代码

End Sub

在需要开始计时的地方，修改其Interval、Enabled属性：

Timer1.Interval = 1000

Timer1.Enabled = True

VB.net 如何设定准确的1秒时间？

form 的load事件中加一句：timer1.interval=1000

在一个按钮里面加入一句触发timer事件开始计时的代码：

timer1.enabled=true

timer的tick事件中加入这么两句：

textbox1.backcolor=color.red

timer1.enabled=false

vb.net 如何实现1ms精度的定时器功能

请参考：

Dim eTime As DateTime

Dim sTime As DateTime

sTime = DateTime.Now()

For i As Integer = 0 To 100000

Next i

eTime = DateTime.Now()

Dim Scound As Double = Math.Round(((eTime - sTime).TotalMilliseconds() / 1000), 4)

MessageBox.Show("当前循环总计用时：" + Scound.ToString() + " 秒")

也可以使用Stopwatch

Dim stopWatch As New Stopwatch()