倒计时 带提示

hqt

在仅剩5、1分钟时会提醒
下载地址：土豪专用： 倒计时.zip (5.18 KB, 下载次数: 28)

2021-5-15 21:51 上传

点击文件名下载附件
下载积分: 吾爱币 -2 CB

蓝奏：https://wwr.lanzoui.com/i8Iryp5tg7c
制作软件：VB

已知bug:
1.msgbox弹窗后不确定不会继续计时 是否有解决方案
2.已经支持屏幕自适应 但是文本暂不支持 有没有大佬提出解决方案
有时间我会进行修复 有解决方案时记得@我进行回复



窗口大小自适应代码部分来自百度


软件代码：

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

Dim f_size(1) As Long, fist_re As Boolean  '用来存放窗体默认大小 以及 是否第一次初始化,全局变量,可在 模块中public声明
Public a, b

Private Sub Form_Resize()
 
If Me.WindowState <> 1 Then '必须排除最小化的状态
 
    If fist_re = False Then '窗体初始化只记录窗体大小
 
        f_size(0) = Me.Height: f_size(1) = Me.Width
 
        fist_re = True
 
    Else '否则开始适应屏幕变化
 
        For Each a In Form1.Controls
 
        On Error Resume Next
 
           a.Width = a.Width * (Me.Width / f_size(1))
 
           a.Height = a.Height * (Me.Height / f_size(0))
 
           a.Top = a.Top * (Me.Height / f_size(0))
 
           a.Left = a.Left * (Me.Width / f_size(1))
 
        Next
 
        f_size(0) = Me.Height: f_size(1) = Me.Width '重新记录窗口大小,用于下次运算
 
    End If
 
End If
 
End Sub
Private Sub Form_Load()
Text1.Text = "距离结束还有?分钟"
Timer1.Enabled = False
End Sub
Private Sub Command1_Click()
a = Text1.Text
Label1.Caption = ("剩余时间" + a + "分钟")
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Text1_Click()
Text1.Text = ""
End Sub

Private Sub Timer1_Timer()
a = a - 1
Label1.Caption = "剩余时间：" & a & "分钟"
If a = 0 Then
MsgBox "结束！"
Timer1.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()
If a = 5 Then
MsgBox "仅剩5分钟!"
End If
If a = 1 Then
MsgBox "仅剩最后1分钟!加油!"
End If
End Sub

bester

MessageBoxTimeout是一个微软未公开的Windows API函数。实现定时消息，功能类似于MessageBox。如果用户不回应，能定时关闭消息框。函数由user32.dll导出

马云爱逛京东

还有改进空间
1、变量不要混着用
2、变量声明最好包含类型
3、尽量用实际意义的字符串命名标识
4、消息框可用自制对话框和模态窗口实现，时间计算用标准模块
5、注意缩进

hqt

@gaozijie 一下没有出息的朋友
学着点
发点原创
虽然我知道你不会，学一学，论坛有教程

hqt

bester 发表于 2021-5-15 22:21
MessageBoxTimeout是一个微软未公开的Windows API函数。实现定时消息，功能类似于MessageBox。如果用户不回 ...

好的，大佬 有时间试试

pentium315

这个很实用的工具，感谢分享。

qiuyu2019

支持原创

干掉婊子

还有这操作

帝班漢卿大牛

这就是很厉害的东西了，厉害

lfm333

感谢分享