资料杂谈

Option Explicit
Private Const SRCCOPY = &HCC0020

Private Declare Function BitBlt Lib "gdi32" (ByVal hdcDest As Long, ByVal XDest As Long, ByVal YDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hDCSrc As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
   
Private WithEvents mobjSlumber As clsSlumber
Private mobjProgBar As clsProgressBar
Private mobjPieBar As clsPieBar

Private mdTotalTime As Double
Private mdCurrentTime As Double
Private mdCurrentHours As Long
Private mdCurrentMins As Long
Private mdCurrentSecs As Double
Private mbInterrupted As Boolean

Private Sub cmdStart_Click()
    On Error GoTo ErrHandler
    Dim sMsg As String
    
    If cmdStart.Caption = "Stop" Then
        mbInterrupted = True
        mobjSlumber.WakeUp
        Exit Sub
    End If
        
    'Ensure Data is Numeric
    txtHours.Text = Val(txtHours.Text)
    txtMins.Text = Val(txtMins.Text)
    txtSecs.Text = Val(txtSecs.Text)
    
    'Ensure Values are whole numbers
    txtHours.Text = Int(txtHours.Text)
    txtMins.Text = Int(txtMins.Text)
    txtSecs.Text = Int(txtSecs.Text)
       
    'Validate Input Data
    Select Case Val(txtHours.Text)
        Case Is < 0
            sMsg = "Hours cannot be a negative number!"
            GoTo DisplayMsg
    End Select
    
    Select Case Val(txtMins.Text)
        Case Is < 0
            sMsg = "Minutes cannot be a negative number!"
            GoTo DisplayMsg
        Case Is >= 60
            sMsg = "Minutes cannot be greater than or equal to 60!"
            GoTo DisplayMsg
    End Select
    
    Select Case Val(txtSecs.Text)
        Case Is < 0
            sMsg = "Seconds cannot be a negative number!"
            GoTo DisplayMsg
        Case Is >= 60
            sMsg = "Seconds cannot be greater than or eq
手机支付宝搜索P2zPYPB74GJ即可领取作者发的红包，赶快参与吧！
点击复制红包码

淘宝双11超级红包，复制淘口令$bkb13lYsLPg$，打开手机淘宝即可领取。复制淘口令
若淘口令失效，请点击此处链接领取

京东双11超级红包，复制京口令￥UANeFApAs8a1nuds￥，打开手机京东即可领取。复制京口令
若京口令失效，请点击此处链接领取

阅读模式无法加载下一章，请退出