倒計(jì)時(shí)提醒器

倒計(jì)時(shí)提醒器是一款非常實(shí)用倒計(jì)時(shí)工具，有些小伙伴表示倒計(jì)時(shí)時(shí)間到后沒能提醒到，就是因?yàn)槎嚅_時(shí)沒能起到作用，因此增加了任務(wù)欄閃爍，界面順序也改了一下，有興趣的伙伴可以看看。

軟件說明

即使是隱藏任務(wù)欄也可以提醒到！

那么剩下更新的功能就請(qǐng)大家自行體驗(yàn)啦

軟件代碼

Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

Private Sub Command1_Click()

 If h = 0 And m = 0 And s = 0 Then

  Timer1.Enabled = False

 Else

  Timer1.Enabled = Not (Timer1.Enabled)

 End If

 If Timer1.Enabled = Ture Then

  h.Locked = Ture: m.Locked = Ture: s.Locked = Ture

 Else

  h.Locked = False: m.Locked = False: s.Locked = False

 End If

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

End Sub

Private Sub h_LostFocus()

 h = Int(Val(h))

 If h < 0 Then h = 0

 If h > 23 Then h = 23

End Sub

Private Sub m_LostFocus()

 m = Int(Val(m))

 If m < 0 Then m = 0

 If m > 59 Then m = 59

End Sub

Private Sub s_LostFocus()

 s = Int(Val(s))

 If s < 0 Then s = 0

 If s > 59 Then s = 59

End Sub

Private Sub Text1_Change()

Text1.Enabled = False

End Sub

Private Sub Text3_Change()

Text3.Enabled = False

End Sub

Private Sub Text4_Change()

Text4.Enabled = False

End Sub

Private Sub Timer1_Timer()

 If h = 0 And m = 0 And s = 0 Then

  Timer1.Enabled = False

  Dim Title, Response

    Title = "顯示文本框輸入內(nèi)容。"

    FlashWindow hwnd, 1&

    Response = MsgBox(Text2, vbExclamation, "快點(diǎn)去")

  h.Locked = False: m.Locked = False: s.Locked = False

 ElseIf s = 0 Then

  s = 59

  If m = 0 Then

   m = 59: h = h - 1

  Else

   m = m - 1

  End If

 Else

  s = s - 1

 End If

End Sub

更新說明

1.取消窗體可放大縮小
2.取消最大化按鈕
3.取消退出按鈕
3.變化軟件內(nèi)鼠標(biāo)指針樣式
4.增加到時(shí)間后會(huì)發(fā)出windows警告聲
5.增加到時(shí)間后軟件在任務(wù)欄中閃爍