关于vb.net精准测时间的信息

如何对自己的VB某段代码测试运行时间

加一timer控件，interval属性设为1，enabled设为false.设一全局变量L as long(如果不行就改为double)

创新互联公司专业为企业提供上林网站建设、上林做网站、上林网站设计、上林网站制作等企业网站建设、网页设计与制作、上林企业网站模板建站服务，10余年上林做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

在程序开始的时候加一句timer1.enabled=true,在timer1事件中写上L=L+1.

在程序结束时print L,

L的值就是你这段代码运行所花费的时间（单位：毫秒）。

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

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

timer1.enabled=true

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

textbox1.backcolor=color.red

timer1.enabled=false

两种方式自己选用

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim s As String

s = DateTime.Today.Year()

s = s DateTime.Today.Month()

s = s DateTime.Today.Day()

s = s DateTime.Now.Hour()

s = s DateTime.Now.Minute()

s = s DateTime.Now.Second()

MsgBox(s, vbDefaultButton1, Now())

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim s As String

s = Format(Now(), "yyyymmddhhmmss")

MsgBox(s, vbYes, Now())

End Sub

'添加一个label标签名字label1 用来显示时间

'再添加一个timer控件名字timer1 interval属性=1000 用来计时

'窗体添加代码

Dim t As Date '用来记录时间

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _

System.EventArgs) Handles Timer1.Tick

t = t.AddSeconds(1)

Label1.Text = "登录时间:" t.TimeOfDay.ToString

End Sub

文章名称：关于vb.net精准测时间的信息
转载来于：http://myzitong.com/article/dddssch.html