Question

如何用VB制作秒表？求源码

要精确到毫秒，按回车开始计时，按空格暂停，按R清零。谢了。

Answer 1

添加 Timer 控件，Interval属性设为 1 ，再添加一个 Label 控件

Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type
Dim T As SYSTEMTIME
Private Sub Timer1_Timer()
    GetSystemTime T
    Label1.Caption = Format(DateAdd("h", 8, DateSerial(T.wYear, T.wMonth, T.wDay) _
        & " " & TimeSerial(T.wHour, T.wMinute, T.wSecond)), "yyyy-MM-dd hh:mm:ss") _
        & "." & T.wMilliseconds
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then Timer1.Enabled = True
    If KeyCode = 32 Then Timer1.Enabled = False
    If KeyCode = vbKeyR Then Label1.Caption = ""
End Sub