资料杂谈

ual to 60!"
            GoTo DisplayMsg
    End Select

    If Val(txtHours.Text) = 0 And Val(txtMins.Text) = 0 And Val(txtSecs.Text) = 0 Then
        sMsg = "Please input countdown time!"
        GoTo DisplayMsg
    End If
    
DisplayMsg:
    If Len(sMsg) > 0 Then
        MsgBox sMsg, vbInformation + vbOKOnly, App.Title
        Exit Sub
    End If
    
    'Lock Input Boxes
    txtHours.Locked = True
    txtMins.Locked = True
    txtSecs.Locked = True
    mbInterrupted = False
    cmdStart.Caption = "Stop"
    
    'Set to Slumber every 10 milliseconds
    '(This means that clsSlumber will put the thread to sleep for
    ' 10 milliseconds at a time until the total time has elapsed)
    mobjSlumber.SlumberInterval = 10
    
    'Calculate total number of milliseconds
    mdTotalTime = (((Val(txtHours.Text) * 60) + Val(txtMins.Text)) * 60) + Val(txtSecs.Text)
    
    'Start Slumbering
    mobjSlumber.Slumber CLng(mdTotalTime * 1000)
    
    'Reset form state
    cmdStart.Caption = "Start"
    If Not mbInterrupted Then
        Call Display("000.00.00.0000")
        mobjProgBar.Value = 100
        mobjPieBar.Value = 100
    End If

    'UnLock Input Boxes
    txtHours.Locked = False
    txtMins.Locked = False
    txtSecs.Locked = False
    Exit Sub
    
ErrHandler:
    MsgBox Err.Description, vbCritical + vbOKOnly, App.Title
End Sub

Private Sub Form_L)
    On Error GoTo ErrHandler
    pbTextBuffer.BackColor = vbBlack
    pbTextBuffer.Cls
    pbTextBuffer.FontBold = True
    pbTextBuffer.FontSize = 24
    pbTextBuffer.ForeColor = vbGreen
    pbTextBuffer.ScaleMode = vbPixels
    pbTextBuffer.AutoRedraw = True
    pbTextBuffer.Visible = False
            
    Set mobjSlumber = New clsSlumber
    Set mobjProgBar = New clsProgressBar
    Set mobjProgBar.PictureBox = Picture1