vb.ent 时间值
Public Class DtimePrivate Sub Dtime_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Timeone.Text = Now
Me.Tim.Enabled = True
Me.Tim.Interval = 1000
End Sub
Private Sub Tim_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tim.Tick
Me.Timetwo.Text = Now
End Sub
Private Sub BouEnt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BouEnt.Click
Me.Tim.Enabled = False
Me.Label2.Text = Me.Timeone.Text - Me.Timetwo.Text
End Sub
End Class