更新实用工具倒计时提醒器V2.1.0.7

超级要感谢评论区的伙伴，

不仅喜爱这款软件，还提出了许多的提议！

于是我又进行了小小的修改
在这里还是要特别感谢

@马云爱逛京东

上正题

8月19日第二次更新，内容如下：

1.撤销窗体可放大缩小

2.撤销最大化按钮

3.撤销退出按钮

3.变化软件内鼠标指针样式

4.增加到时间后会发出windows警告声

5.增加到时间后软件在任务栏中闪烁

有些小伙伴表明倒计时时间到后没能提醒到

就是由于多开时没能起到作用

因此我增加了任务栏闪烁
如图

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

界面顺序也改了一下

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

如发现还有什么可修改的地方，可以留言在评论区，谢谢！

感谢大家对我的支持！

本软件代码有更新，有兴趣的伙伴可以看看

 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

8月19日第二次更新文件，喜爱的小伙伴别忘了下载鸭

大佬请下载

如果不想花币的话请往这边请

链接：https://pan.baidu.com/s/1RkzDuJWWOW0AjPMX8NH4-A?qq-pf-to=pcqq.c2c
提取码：52pj

谢谢大家对我的支持！