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

5次阅读

没有评论

非常要感谢评论区的伙伴，不仅喜欢这款软件，还提出了很多的建议！
于是我又进行了小小的修改
在这里还是要特别感谢@马云爱逛京东

上正题

8月19日第二次更新，内容。
1.取消窗体可放大缩小
2.取消最大化按钮
3.取消退出按钮
3.变化软件内鼠标指针样式
4.增加到时间后会发出windows警告声
5.增加到时间后软件在任务栏中闪烁

有些小伙伴表示倒计时时间到后没能提醒到
就是因为多开时没能起到作用
因此我增加了任务栏闪烁
如图

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

界面顺序也改了一下

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

如发现还有什么可修改的地方，可以留言在评论区，谢谢！
感谢大家对我的支持！

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

[Visual Basic] 纯文本查看 复制代码

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