用VB设计一个倒计时器，能够设置倒计时的时间，并进行倒计时
1个回答
展开全部
Option Explicit
Dim SetTime As Integer
Private Sub Command1_Click()
Timer1.Interval = 1000
SetTime = CInt(Text1)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
SetTime = SetTime - 1
If SetTime = 0 Then
MsgBox "时间到"
End If
End Sub
text1里面输入倒计时时间（秒），command1开始倒计时
Dim SetTime As Integer
Private Sub Command1_Click()
Timer1.Interval = 1000
SetTime = CInt(Text1)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
SetTime = SetTime - 1
If SetTime = 0 Then
MsgBox "时间到"
End If
End Sub
text1里面输入倒计时时间（秒），command1开始倒计时
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
盖雅工场，全流程劳动力管理系统
2023-07-25 广告
在选择开源排班软件时，以下是一些需要考虑的因素：1. 功能和特性：首先需要评估软件的基本功能以及其特点。例如，员工信息管理、班次管理、排班计划、考勤管理等功能都是基本需求。此外，也需要评估软件是否支持自动排班、调休申请、排班数据分析等高级功...
点击进入详情页
本回答由盖雅工场，全流程劳动力管理系统提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
