vb秒倒计时代码（vb倒计时器五秒代码）

本篇文章给大家谈谈vb秒倒计时代码，以及vb倒计时器五秒代码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、VB倒计时代码
• 2、倒计时vb代码
• 3、求 VB 10秒倒计时代码
• 4、怎么用VB制作一个倒计时？
• 5、VB倒计时怎么做
• 6、怎样用VB编写一个倒计时程序

VB倒计时代码

放置两个command（一个叫做cmdDel，另一个叫做cmdAdd）和一个Timer（叫做tmrDJS）

窗体的StartUpPosition属性设为2 - CenterScreen

并添加以下代码：

Private Sub cmdAdd_Click()

Dim sName As String, AllNum As Integer, TerminateDate As Date

sName = InputBox("倒计时的名字？")

TerminateDate = InputBox("截止时间？例如2009-10-20 3:23:19")

AllNum = GetSetting("倒计时", "倒计时列表", "倒计时总数", "0")

AllNum = AllNum + 1

SaveSetting "倒计时", "倒计时列表", "倒计时总数", AllNum

SaveSetting "倒计时", "倒计时列表", "时间" Trim(Str(AllNum)), TerminateDate

SaveSetting "倒计时", "倒计时列表", "名字" Trim(Str(AllNum)), sName

MsgBox "添加成功！", vbInformation

End Sub

Private Sub cmdDel_Click()

Dim Qx As Integer

Qx = InputBox("列表中的几个？")

Dim sDate As String, sName As String, AllNum As Integer, Qu As Integer

AllNum = GetSetting("倒计时", "倒计时列表", "倒计时总数", "0")

For i = 1 To AllNum

sDate = GetSetting("倒计时", "倒计时列表", "时间" Trim(Str(i)), "0")

sName = GetSetting("倒计时", "倒计时列表", "名字" Trim(Str(i)), "0")

If sDate "0" Then

Qu = Qu + 1

If Qu = Qx Then

If MsgBox("是要删除倒计时 " sName " 吗？", vbYesNo + vbQuestion) = vbYes Then

SaveSetting "倒计时", "倒计时列表", "时间" Trim(Str(i)), "0"

End If

Exit For

End If

End If

Next i

End Sub

Private Sub Form_Load()

Height = 3570

Width = 5550

Caption = "倒计时"

tmrDJS.Interval = 500

cmdAdd.Left = 4200

cmdAdd.Top = 2520

cmdAdd.Height = 255

cmdAdd.Width = 1215

cmdAdd.Caption = "添加倒计时"

cmdDel.Left = 4200

cmdDel.Top = 2760

cmdDel.Height = 255

cmdDel.Width = 1215

cmdDel.Caption = "删除倒计时"

End Sub

Private Sub tmrDJS_Timer()

Cls

Dim DJS As Date, sDate As String, sName As String, AllNum As Integer, Printed As Boolean

Dim Kd As Double

AllNum = GetSetting("倒计时", "倒计时列表", "倒计时总数", "0")

For i = 1 To AllNum

sDate = GetSetting("倒计时", "倒计时列表", "时间" Trim(Str(i)), "0")

sName = GetSetting("倒计时", "倒计时列表", "名字" Trim(Str(i)), "0")

If sDate "0" Then

DJS = sDate

If DJS - Now = 0 Then

Print sName; " 已经到了！"

Else

Kd = DJS - Now

Print "距离 "; sName; " 还有 ";

Print Int(Kd); " 天 ";

Kd = Kd - Int(Kd)

Print Int(Kd * 24); " 小时";

Kd = Kd - Int(Kd * 24) / 24

Print Int(Kd * 24 * 60); " 分钟";

Kd = Kd - Int(Kd * 24 * 60) / 24 / 60

Print Int(Kd * 24 * 60 * 60 + 0.5); " 秒"

End If

Printed = True

End If

Next i

If Not Printed Then Print "列表为空！"

End Sub

然后运行即可~

倒计时vb代码

十秒倒计时程序代码：

Dim N As Integer

Private Sub Form_Load()

N = 10

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

N = N - 1

If N 0 Then

Label1.Caption = N

Else

Label1.Caption = "时间到"

Timer1.Enabled = False

End If

End Sub

求 VB 10秒倒计时代码

一个文本控件text1显示倒计时 一个定时器控件定时，一个按钮控件触发倒计时事件

Dim i As Integer '全局变量

Private Sub Command1_Click()

Text1.Text = 10 '文本初始值10

Timer1.Enabled = True '开定时器

Timer1.Interval = 1000 'MS单位

i = 10 ' i赋初始值

End Sub

Private Sub Form_Load()

Text1.Text = "" '文本初始值空值

End Sub

Private Sub Timer1_Timer()

i = i - 1 '每到1s响应定时器，响应次数+1

Text1.Text = i

If i = 0 Then

Timer1.Enabled = False '关定时器

End If

End Sub

怎么用VB制作一个倒计时？

窗体中放入一个Timer1，一个Label1，三个按钮Command1、Command2、Command3

Dim tt As Integer

Private Sub Command1_Click() '开始按钮

tt = 180

Command1.Enabled = False

Command3.Enabled = False

Label1.ForeColor = vbBlue

Label1.Caption = ""

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

Private Sub Command2_Click() '暂停按钮

Command2.Enabled = False

Command3.Enabled = True

Timer1.Enabled = False

End Sub

Private Sub Command3_Click() '继续按钮

Command2.Enabled = True

Command3.Enabled = False

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

If tt = 30 Then

Label1.ForeColor = vbRed

If tt = 0 Then

Command1.Enabled = True

Command2.Enabled = False

Command3.Enabled = False

Timer1.Enabled = False

End If

End If

Label1.Caption = (tt \ 60) ":" Format(tt Mod 60, "00")

tt = tt - 1

End Sub

VB倒计时怎么做

1、首先，建立一个工程，并在窗口中添加三个命令按钮，caption分别改为“设置倒计时”、“启动倒计时”、“继续”，将窗体Form1的caption属性改为“倒计时”，再添加一个计时器控件，并且添加一个文本框，将界面设置成如下图所示。

2、将文本框的Text里的属性清空干净，再把字体Font的属性调整成为小四，方便接下来的观察，一定记得把背景色属性Backcolor调为浅黄色。

3、接下来，双击“设置倒计时”命令这个按钮，就会进入到代码编辑窗口，输入如图所示代码：

4、接着双击“启动倒计时”命令这个按钮，接下来会进入代码编辑窗口，再输入如下图所示代码：

5、再接着双击“计时器”控件，然后进入代码编辑窗口，输入如图所示代码：

6、在代码编辑窗口的通用段进行这三个变量的定义：Dim h As Integer, m As Integer, s As Integer '分别存储这三个量时、分、秒，如下图所示。

7、最后再双击窗体，然后就会进入代码编辑器，在 Form_Load事件中写入代码，代码如下图红框所示：

8、接着关闭代码窗口，按一下F5运行程序，再单击“设置倒计时”这个命令按钮，这时候就会弹出一个输入对话框，一定要记得此时输入分钟数，数字为1，然后确定，如图所示：

9、最后一定要单击“启动倒计时”这个命令按钮，然后文本框就会显示倒计时时间，并会不断地变动，这个时候你就可以看见时间在变动，这就是实现了倒计时功能，如图所示：

扩展资料：

使用VB倒计时设置计时参数5X60=300秒，然后设置定时器1S中断.当计时器为0就是5分钟，将计时器参数显示在文本框中就可以了。这个题目需要使用计时器控件，所以计时器的控件的Timer事件以及Enable属性、Interval属性需要熟知。

怎样用VB编写一个倒计时程序

程序的窗体内含有两个Timer控件，一个文本框控件，两个命令按钮控件，四个标签控件。其中Timer1的Interval属性设置为60000，也就是一分钟响应一次，Timer1的Interval属性设置为500，也就是每0.5秒响应一次。Label1显示剩余时间，Label2显示现在时间。

代码如下：

Dim n As Integer

Dim t As String

Private Sub Command1_Click() '计时开始

If Text1.Text = "" Then

Exit Sub

End If

t = Val(Text1.Text)

Timer1.Enabled = True

Label1.Caption = "剩余时间：" t "分钟"

End Sub

Private Sub Command2_Click() '退出程序

End

End Sub

Private Sub Timer1_Timer()

n = n + 1

Label1.Caption = "剩余时间：" t - n "分钟"

If n = t Then

Beep

MsgBox "时间到", vbExclamation + vbOKOnly

Timer1.Enabled = False

n = 0

End If

End Sub

Private Sub Timer2_Timer()

Label2.Caption = "现在时间：" Time

End Sub

关于vb秒倒计时代码和vb倒计时器五秒代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。