倒计时提醒器

倒计时提醒器是一款非常实用倒计时工具，有些小伙伴表示倒计时时间到后没能提醒到，就是因为多开时没能起到作用，因此增加了任务栏闪烁，界面顺序也改了一下，有兴趣的伙伴可以看看。

软件说明

即使是隐藏任务栏也可以提醒到！

那么剩下更新的功能就请大家自行体验啦

软件代码

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 = "显示文本框输入内容。"

    FlashWindow hwnd, 1&

    Response = MsgBox(Text2, vbExclamation, "快点去")

  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.变化软件内鼠标指针样式
4.增加到时间后会发出windows警告声
5.增加到时间后软件在任务栏中闪烁