小编Nic*_*ick的帖子

我试图做到这一点无处可去,到目前为止,我有这个,

Private Sub Timeperpart_Timer()


    secs = secs + 1
    If secs = 60 Then
    mins = mins + 1
    secs = 0
    End If
    If mins = 60 Then
    hrs = hrs + 1
    mins = 0
    End If

     If secs < 10 Then
           Lbltime.Caption = CStr(hrs & ":" & mins & ":" & 0 & CStr(secs))
           End If

If mins < 10 Then
ElseIf secs < 10 Then
            Lbltime.Caption = CStr(hrs & ":" & 0 & CStr(mins) & ":" …