frmMain(frmMain.frm)窗体

frmMain(frmMain.frm)窗体：有两个Timer控件

Private Sub tmr790Blink_Timer()

End Sub

Private Sub tmrUpdateTime_Timer()

Dim Elapsed As Long

Dim nHours As Long, nMinutes As Long, nSeconds As Long

Dim strH As String, strMin As String, strSec As String

Dim strTimeStatus As String

Dim MaxLen As Byte

Info.ThisTime = GetTickCount

Elapsed = (Info.ThisTime - Info.StartTime)

nHours = Elapsed \ 3600000

Elapsed = Elapsed - (nHours * 3600000)

nMinutes = Elapsed \ 60000

Elapsed = Elapsed - (nMinutes * 60000)

nSeconds = Elapsed \ 1000

strH = "": strMin = ""

If nHours > 0 Then strH = Trim(Str(nHours)) & " h "

If nMinutes > 0 Or nHours > 0 Then strMin = Trim(Str(nMinutes)) & " m "

strSec = Trim(Str(nSeconds)) & " 秒 "

strH = Space$((3 + 3) - Len(strH)) & strH

strMin = Space$((2 + 3) - Len(strMin)) & strMin

strSec = Space$((2 + 3) - Len(strSec)) & strSec

strTimeStatus = strH & strMin & strSec

MaxLen = (3 + 3) + (2 + 3) + (2 + 3)

strTimeStatus = Space$(MaxLen - Len(strTimeStatus)) & strTimeStatus

frmMain.Status.Panels(2).Text = strTimeStatus

End Sub

 

 

 

Private Sub tmrUpdateTime_Timer()

Dim Elapsed As Long

Dim nHours As Long, nMinutes As Long, nSeconds As Long

Dim strH As String, strMin As String, strSec As String

Dim strTimeStatus As String

Dim MaxLen As Byte

Info.ThisTime = GetTickCount

Elapsed = (Info.ThisTime - Info.StartTime)

nHours = Elapsed \ 3600000

Elapsed = Elapsed - (nHours * 3600000)

nMinutes = Elapsed \ 60000

Elapsed = Elapsed - (nMinutes * 60000)

nSeconds = Elapsed \ 1000

strH = "": strMin = ""

If nHours > 0 Then strH = Trim(Str(nHours)) & " h "

If nMinutes > 0 Or nHours > 0 Then strMin = Trim(Str(nMinutes)) & " m "

strSec = Trim(Str(nSeconds)) & " 秒 "

strH = Space$((3 + 3) - Len(strH)) & strH

strMin = Space$((2 + 3) - Len(strMin)) & strMin

strSec = Space$((2 + 3) - Len(strSec)) & strSec

strTimeStatus = strH & strMin & strSec

MaxLen = (3 + 3) + (2 + 3) + (2 + 3)

strTimeStatus = Space$(MaxLen - Len(strTimeStatus)) & strTimeStatus

frmMain.Status.Panels(2).Text = strTimeStatus

End Sub