VB.NET.倒计时的简单介绍

VB倒计时怎么做

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

我们提供的服务有:成都网站建设、网站建设、微信公众号开发、网站优化、网站认证、沈丘ssl等。为上千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的沈丘网站制作公司

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点虐 做一个倒计时程序,要完整的文件

Public Class Form1

Inherits System.Windows.Forms.Form

Dim t As System.DateTime

Dim c As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

c = TextBox1.Text

If Timer1.Enabled Then

Timer1.Stop()

Else

t = Now.AddHours(c)

Timer1.Start()

End If

Catch ex As Exception

MsgBox("")

End Try

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim d As TimeSpan = t.Subtract(Now)

Label1.Text = d.Hours  "小时"  d.Minutes  "分钟"  d.Seconds  "秒"

End Sub

End Class

VB点虐 中如何用timer控件编出一个简单的倒计时器?

Dim tCount As Integer '用来计数

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

tCount = 10

Timer1.Interval = 1000 '每秒执行一次

Timer1.Enabled = True

End

Sub

Private Sub

Timer1_Tick(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Timer1.Tick

tCount -= 1

If tCount = 0 Then

MessageBox.Show("时间到")

Timer1.Enabled = False

End If

End

Sub

vb点虐 怎么倒计时关闭窗口 就是我要它 还有15秒关闭form1 怎么能加什么控件吗?

加一个计时器控件Timer1

代码如下:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Timer1.Interval = 15000

Timer1.Start()

MessageBox.Show("程序将在15s后关闭.")

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Me.Dispose()

End Sub


网页名称:VB.NET.倒计时的简单介绍
网址分享:http://scyanting.com/article/ddghihp.html