vb倒计时牌代码

倒计时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

Dim x As Integer
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
x = Val(InputBox("输入倒计时秒数"))
Me.Caption = x
End Sub

Private Sub Timer1_Timer()
Me.Caption = Me.Caption - 1
If Me.Caption = 0 Then
MsgBox "时间到"
Timer1.Enabled = False
End If
End Sub

一个timer控件足以

新建 工程,1个按钮,1个timer,和1个文本框
在文本框内输入时间(秒数),点按钮就开始倒计时了:

Dim i%

Private Sub Command1_Click()
Command1.Caption = IIf(Command1.Caption = "开始计时", "停止计时", "开始计时")
Timer1.Enabled = Not Timer1.Enabled
i = 0
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Command1.Caption = "开始计时"
Text1 = ""
End Sub

Private Sub Timer1_Timer()
If Text1 = "" Then Exit Sub
Cls

If Val(Text1) - i = 0 Then
Print "时间到!!!"
Timer1.Enabled = False
Exit Sub
End If

Print "现在还剩下" & Val(Text1) - i & "秒了!!"
i = i + 1
End Sub

开始时间是指.要倒记时的具体分钟?秒?小时?
还是输入当时间到18:39:41的时候叫我?
具体是那个?

Private Sub form_load()
text1.text = ""
End Sub
private sub command1_click()
timer1.interval = 1000
end sub
Private Sub Timer1_Timer()
text1.text = text1.text - 1
if text1.text = 0 then
unload me
End If
End Sub
倒计时是用label控件显示的。

---

蕲春县15280646181： 求一段VB倒计时器代码 - ？
傅帝苦参： '建立一个text1,一个label1,一个timer1,两个command1-2,不用设置任何属性.Option Explicit Dim M As Single, S As Long Private Sub Form_Load() form1.Width = 3800 form1.Height = 1800 form1.BackColor = RGB(150, 120, 80) Timer1....

蕲春县15280646181： vb倒计时代码 - ？
傅帝苦参： Dim s As Long Private Sub cmdSet_Click() Timer1.Enabled = False s = InputBox(＂请输入倒计时秒数:＂, ＂设置倒计时秒数＂, 5) Label1 = ＂倒计时: ＂ & s & ＂秒＂ cmdStop.Tag = s cmdStart.Tag = 0 cmdStart.Caption = ＂启动时间＂...

蕲春县15280646181： 用VB程序设置倒计时源代码 - ？
傅帝苦参： 1、使用Timer控件,其中设置间隔时间,每次激活时计时时间减少相应数值(使用简单,但是程序复杂的话,计时“非常”不准).2、使用系统时间来计时,Timer控件进行激活显示.如:设置开始时间如StartTime = Timer,Timer控件激活后,再次系统当前时间,将差值在显示中减去(比较准确的计时,推荐).3、更精确的计时,使用API函数,GetTickCount可以精确计时,Timer控件来激活计算.

蕲春县15280646181： 急求vb倒计时代码,半小时后考试用!!!! - ？
傅帝苦参： Private Sub Form_Load() Me.AutoRedraw = True Me.FontSize = 15 Me.Cls Print ＂现在是北京时间:＂ & Now Print ＂距离奥运会开幕还有＂ & #8/8/2008# - Date & ＂天＂ End Sub

蕲春县15280646181： Vb写一个倒计时器. - ？
傅帝苦参： 创建2个按钮,1个timer,1个文本框,在文本框中输入时间如:23:00:00然后点击按钮2开始倒计时!!Option Explicit Dim date1 As Date Private Sub Command1_Click() date1 = CDate(Text1) End Sub Private Sub Command2_Click() Timer1....

蕲春县15280646181： 求高人帮我写一段VB简单的倒计时代码!谢过 - ？
傅帝苦参： Dim i As Integer Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1000 i = 60 End SubPrivate Sub Timer1_Timer() i = i - 1 Me.Caption = i End Sub

蕲春县15280646181： VB计时器原代码 - ？
傅帝苦参： Option Explicit Public Min%, Sec%Private Sub Command1_Click()Form1.Timer1.Enabled = Not Form1.Timer1.EnabledForm1.Command1.Caption = IIf(Form1.Timer1.Enabled, ＂暂停计时(&P)＂, ＂开始计时(&S)＂) End SubPrivate ...

蕲春县15280646181： 求高人帮忙写一段VB简单的倒计时代码!谢谢 - ？
傅帝苦参： 加个timer就可以了dim timeform_load 里timer1.interval = 1000time = 60end subpravite timer1 里time = time - 1end sub

蕲春县15280646181： 利用VB程序设置一个倒计时器,当输入一个数时,可以倒到零,代码怎么写?？
傅帝苦参： 需要的控件:1个Timer,1个CommandButton,1个Text Timer需要设置的属性:Enabled=false Interval=1000 Timer里的代码:text1.text=text1.text-1 CommandButton里的代码: if text1.text<＂＂ then Timer1.Enabled=true else msgbox ＂请输入数据＂ end if

蕲春县15280646181： 求vb倒计时代码？
傅帝苦参： Dim iDayLeft As Integer Dim timeLeft As Date Dim dateToReach As Date Private Sub Command1_Click() dateToReach = #3/26/2009 4:00:00 PM# '目标日期 Timer1.Enabled = True End Sub Private Sub Command2_Click() dateToReach = 0 ...