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
阅读:183
评论:0
゛. - 看過世间最冷漠滴眼神, 爱過⒈生最无缘滴人﹎
该页面还没有任何评论,赶快占个沙发吧!