Private Declare Function GetTickCount& Lib "kernel32" ()
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
Dim e As Long
Private Sub Form_Load()
'
End Sub
Private Sub Timer1_Timer()
a = GetTickCount \ 1000
b = GetTickCount \ 1000 \ 60
c = GetTickCount \ 1000 \ 60 \ 60
d = (a - c * 3600) \ 60
e = a - b * 60
lblsecond.Caption = e
lblminute.Caption = d
lblhour.Caption = c
End Sub
该页面还没有任何评论,赶快占个沙发吧!