怎么用VB6.0编一个倒计时程序？

楼上的代码这么长，还简单？

成都创新互联专注于茄子河企业网站建设,成都响应式网站建设公司,商城网站建设。茄子河网站建设公司,为茄子河等地区提供建站服务。全流程按需定制开发，专业设计，全程项目跟踪，成都创新互联专业和态度为您提供的服务

无语

我给你写了一个，这个才是真正的简单实用，呵呵！

加个TIMER控件

把Interval

属性调成

1000

毫秒

也就是

1秒

在加两个

TEXT

text1.text=3

text2.text=00

在加个按钮

开始倒计时

就行了

程序代码如下:

Private

Sub

Form_Load()

Timer1.Enabled

=

False

End

Sub

Private

Sub

Timer1_Timer()

If

(Text2.Text

=

0)

Then

Text2.Text

=

59

Text1.Text

=

Text1.Text

-

1

Else

Text2.Text

=

Text2.Text

-

1

End

If

End

Sub

Private

Sub

Command1_Click()

Timer1.Enabled

=

True

End

Sub

如果有什么地方不懂，欢迎联系我！

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

vb6，做一个10s倒计时

打开VB6.0，新建一个工程，在窗体中添加三个命令按钮，caption分别改为“设置倒计时”、“启动倒计时”、“继续”，将窗体Form1的caption属性改为“倒计时”，添加一个计时器控件，添加一个文本框，将界面设置成下图

将文本框的Text属性清空，将字体Font属性调整为小四，便于观察，将背景色属性Backcolor调为浅黄色。

双击“设置倒计时”命令按钮，进入代码编辑窗口，输入如下代码：

a = InputBox("请输入倒计时时间(以分为单位)：", "倒计时输入框"

双击“启动倒计时”命令按钮，进入代码编辑窗口，输入如下代码：

Timer1.Interval = 1000 '设置计时器为一秒发生一次

Timer1.Enabled = True '激活计时器

If a 60 Then

m = a

Else

h = s \ 60

m = a Mod 60

End If

m = m - 1

s = 60

双击“计时器”控件，进入代码编辑窗口，输入如下代码：

s = s - 1

If s = 0 And m 0 Then

s = 60

m = m - 1

End If

If m = 0 And h 0 Then

h = h - 1

m = 59

s = 60

在代码编辑窗口的通用段进行变量定义：

Dim h As Integer, m As Integer, s As Integer '分别存储时分秒

Dim a As Integer

双击窗体，进入代码编辑器，在 Form_Load事件中写入代码：

Timer1.Enabled = False '先关闭计时器

关闭代码窗口，按下F5运行程序，单击“设置倒计时”命令按钮，弹出输入对话框，此时输入分钟数为1，确定，如图：

单击“启动倒计时”命令按钮，文本框显示倒计时时间，并时刻变动，至此实现了倒计时功能，如图：

将以上内容中时间改为10s即可，望采纳。

求高手用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

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中怎样制作一个计时器？ 能够设置倒计时的时间，并进行倒计时

1、打开VB6.0，新建一个工程，在窗体中添加三个命令按钮，caption分别改为“设置倒计时”、“启动倒计时”、“继续”，将窗体Form1的caption属性改为“倒计时”，添加一个计时器控件，添加一个文本框。

2、将文本框的Text属性清空，将字体Font属性调整为小四，便于观察，将背景色属性Backcolor调为浅黄色。

3、双击“设置倒计时”命令按钮，进入代码编辑窗口。

4、双击“启动倒计时”命令按钮，进入代码编辑窗口。

5、双击“计时器”控件，进入代码编辑窗口。

6、在代码编辑窗口的通用段进行变量定义：Dim h As Integer, m As Integer, s As Integer '分别存储时分秒Dim a As Integer。

7、双击窗体，进入代码编辑器，在 Form_Load事件中写入代码：Timer1.Enabled = False '先关闭计时器。

8、关闭代码窗口，按下F5运行程序，单击“设置倒计时”命令按钮，弹出输入对话框，此时输入分钟数为1，确定。

9、单击“启动倒计时”命令按钮，文本框显示倒计时时间，并时刻变动，至此实现了倒计时功能。