VB中怎样制作一个计时器？ 能够设置倒计时的时间，并进行倒计时

VB中，设计一个计时器，能够设置倒计时的时间，并进行倒计时~

给你举个例子
添加一个Timer控件，一个Label控件和一个Text控件
private sub form1_load()
Timer1.Interval=1000 '这里是时间间隔
text1.text=""
Label1.caption="请在文本中输入倒计时的时间（单位为s）"
end sub
private sub Timer1_Timer() 'Timer事件
dim i as integer
i=text1.text
Label1.Caption=i
i=i-1
if i<=0 then '判断
msgbox "时间到"
else
i=text1.text
Label1.Caption=i ’显示在Lable控件中
i=i-1
end if
end sub

'毫秒级倒计时软件
'日曜星君原创作品
'添加一个label,一个commandbutton,一个textbox,不要改名
Dim
mTime
As
Double
Private
Sub
Form_Load()
Text1.Text
=
120
'初始化默认倒计时时间为120秒
Timer1.Interval
=
100
'Timer的执行周期,这个不要改
End
Sub
Private
Sub
Command1_Click()
mTime
=
Text1.Text
'设置倒计时时间
Timer1.Enabled
=
True
'开始倒计时
End
Sub
Private
Sub
Timer1_Timer()
i
=
i
+
1
'增加已经过去的毫秒数
mTime
=
mTime
-
i
/
10
'总数减去已经过去的毫秒数,就是剩余时间
Label1.Caption
=
Format(mTime,
"0.0")
'在label1中显示出来!
End
Sub
'日曜星君原创作品

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、单击“启动倒计时”命令按钮，文本框显示倒计时时间，并时刻变动，至此实现了倒计时功能。

用到三个控件：文本框（Text1）、按钮（Command1）、计时器（Timer1）
Private Sub Command1_Click()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Text1.Text = Val(Text1.Text) - 1
If Text1.Text < 1 Then
MsgBox "时间到"
Unload Me
End If
End Sub

事先要在秒表哪里调 Enable属性为false，Interval属性为1000
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Text1.Text = Val(Text1.Text) - 1
If Text1.Text < 1 Then
MsgBox "时间到"
Unload Me
End If
End Sub

用timer控件

设定倒计时 开始时间t

for ，step -1
显示 t-1s
next

---

休宁县13747408805： VB中怎样制作一个计时器? 能够设置倒计时的时间,并进行倒计时 - ？
阳初苦参： 1、打开VB6.0,新建一个工程,在窗体中添加三个命令按钮,caption分别改为“设置倒计时”、“启动倒计时”、“继续”,将窗体Form1的caption属性改为“倒计时”,添加一个计时器控件,添加一个文本框. 2、将文本框的Text属性清...

休宁县13747408805： vb计时器的设计 - ？
阳初苦参： 新建一个文本框,两个按钮,一个时间控件 然后打开代码框 把里面的代码全清空,再把下面的复制进去就可以了 Dim a, b, c, d As Integer Private Sub Command1_Click() If Command1.Caption = ＂开始计时＂ Then Timer1.Enabled = True Timer...

休宁县13747408805： 用VB编写计时器、怎么编呢? - ？
阳初苦参： 控件用timer,设置好参数interval这个参数是控制触发时间间隔,以毫秒为单位的.计时器的功能就要你自己去编了,基本思路就是按钮点击启动timer,设置几毫秒触发检查当前系统时间,并显示当前时间和启动时间的插值,另设置一按钮停止计时.这是个入门程序,比较简单的

休宁县13747408805： vb计时器怎么做过程？
阳初苦参： 举个例子:在窗体上放入一个timer控件 双击窗体 输入timer1.interval = 1000 在窗体上放入一个标签控件Label 双击timer控件输入代码 label1.caption = time() 运行一下,改程序就为读取系统时间了.

休宁县13747408805： vb如何制作计时器？
阳初苦参： 窗体上除了你现有的控件,再加一个textbox用来输入倒计时的秒数 以下是代码 Option Explicit Dim daojishi As Integer Private Sub Command1_Click() daojishi = Val(Text1.Text) Timer1.Interval = 1000 Label1.Caption = ＂距离结束还有＂ & daojishi...

休宁县13747408805： VB中,设计一个计时器,能够设置倒计时的时间,并进行倒计时 - ？
阳初苦参： 给你举个例子 添加一个Timer控件,一个Label控件和一个Text控件 private sub form1_load() Timer1.Interval=1000 '这里是时间间隔 text1.text=＂＂ Label1.caption=＂请在文本中输入倒计时的时间(单位为s)＂ end sub private sub Timer1_Timer() ...

休宁县13747408805： VB做计时器 - ？
阳初苦参： Private Sub Form_Load() Timer1.Interval = 1000 Label1.Caption = 1 End Sub Private Sub Timer1_Timer() Label1.Caption = Val(Label1.Caption) + 1 End Sub

休宁县13747408805： 怎样用VB做一个计时器?？
阳初苦参： 在窗体上画一个Label和一个计时器,写下如下代码,即可. Private Sub Form_Load() Timer1.Interval = 2000 Timer1.Enabled = True Label1.Caption = Time End Sub Private Sub Timer1_Timer() Label1.Caption = Time End Sub

休宁县13747408805： VB设计题:设计一个计时器,能够设置倒计时的时间,并进行倒计时.帮忙给设计一下,并加上注释. - ？
阳初苦参： Dim a As String Dim s As Integer Private Sub Command1_Click()a = InputBox(＂输入格式为:＂ & vbCrLf & ＂ 时,分,妙 ＂, ＂输入倒计时＂, ＂0,0,60＂)x = Split(a, ＂,＂)For i = 0 To UBound(x)Print x(i)Next is = Val(x(0)) * 60 * 60 + ...

休宁县13747408805： 求vb计时器做法 - ？
阳初苦参： Private Sub Command1_Click() Text1.Text = Time End Sub 画个定时器按钮设置它的interval的值为1000