关于vb.net倒计时编写的信息

怎样用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

相关问答

Q1: VB.net中如何用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

Q2: 有谁帮写个VB的倒计时器，只需要1分钟之内即可，越简单越好，谢谢啦

窗体中增加timer1控件，Interval设为1000（即1秒），enabled=false

添加Label1控件，初始值设为60

添加button1控件，标题=“开始倒计时”

button1.click事件下编写timer1.enabled=true'开始倒计时

Timer1_Timer(vb6)或Timer1_Tick(vb.net)事件下编写

Label1.Caption=val(Label1.Caption)-1'(vb6)

或者Label1.Text=val(Label1.Text)-1'(vb.net)

Q3: 求高手用vb.net做一个倒计时程序。

画面添加textbox1 timer1

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

Timer1.Interval = 1000

TextBox1.Text = "2011/12/07 10:35:00"

End Sub

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

If IsDate(TextBox1.Text) = True Then

Timer1.Start()

End If

End Sub

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

If Format(Now, "yyyy/MM/dd hh:mm:ss") = TextBox1.Text Then

MsgBox("It's time to go")

Timer1.Stop()

End If

End Sub

Q4: VB倒计时怎么做

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

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

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

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

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

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

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

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

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

扩展资料：

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

vb.net倒计时编写的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net倒计时编写的信息别忘了在本站进行查找喔。