vb编写倒计时程序 跪求。。。。。
在窗体上创建一个计时器Timer1，一个标签LabTime
Private Sub Form_Load()
Dim Days As Integer
Dim Times As Date
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Const date0 As Date = #10/1/2009 10:10:10 AM# '日期
Days = CInt(date0 - Now - 0.5) '取整数部分(天数)
Times = CDate(date0 - Now)
LabDay.Caption = Days & "天" & Hour(Times) & "小时" & Minute(Times) & "分" & Second(Times) & "秒"
End Sub
***原创***！
完全满足你的要求，需要源文件给地址。
Dim sec As Integer
Dim mm As Integer
Dim ss As Integer
Private Sub Command1_Click()
sec = Val(InputBox("请输入时间", "提示"))
mm = sec \ 60
ss = sec - mm * 60
Label1.Caption = mm & ":" & ss
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Label1.ForeColor = &HFF&
End Sub
Private Sub Timer1_Timer()
If ss <> 0 Then
ss = ss - 1
Label1.Caption = mm & ":" & ss
ElseIf mm <> 0 Then
mm = mm - 1
ss = 59
Label1.Caption = mm & ":" & ss
Else
Label1.ForeColor = &HFF0000
Label1.Caption = "倒时计完成"
End If
End Sub
timer的触发时间为1000毫秒
Dim Tsecond, second, minute, hour As Integer
Private Sub Command1_Click()
Tsecond = InputBox("", "输入时间(s)", "10")
End Sub
Private Sub Command2_Click()
second = 0
minute = 0
hour = 0
Select Case (Tsecond / 60)
Case Is < 1
second = Tsecond
Case Is < 60
minute = Tsecond / 60
second = Tsecond Mod 60
Case Is >= 60
hour = Tsecond / 3600
minute = (Tsecond - hour * 3600) / 60
second = Tsecond - hour * 3600 - minute * 60
End Select
Timer.Enabled = True
Tsecond = 0
End Sub
Private Sub Timer_Timer()
If second <> 0 Then
second = second - 1
Label1.Caption = hour & ":" & minute & ":" & second
Else
If minute <> 0 Then
minute = minute - 1
second = 59
Label1.Caption = hour & ":" & minute & ":" & second
Else
If hour <> 0 Then
hour = hour - 1
minute = 59
second = 59
Label1.Caption = hour & ":" & minute & ":" & second
Else
Label1.Caption = "时间到"
Timer.Enabled = False
End If
End If
End If
End Sub
Dim sec As Integer 'sec为输入的秒数
Dim mm As Integer
Dim ss As Integer
Private Sub Command1_Click()
Timer1.Enabled = False
sec = Val(InputBox("请输入时间", "提示"))
mm = sec \ 60
ss = sec - mm * 60
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label1.Caption = mm & ":" & ss
If ss = 0 Then
If mm > 0 Then
mm = mm - 1
ss = 59
End If
If mm = 0 Then Label1.Caption = "时间到！"
Else
ss = ss - 1
End If
End Sub
timmer的interval设为1000
跪下来我看看
z
雍泼诺丽： 在窗体上放一个textbox,一个Label,一个Timer,一个Commandbutton 双击窗体,粘贴以下代码: Private Sub Command1_Click() Label1.Caption = Text1.Text Timer1.Interval = 1000 Timer1.Enabled = True End SubPrivate Sub Form_Load() ...
瀍河回族区19190275526： 求一段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....
瀍河回族区19190275526： 用VB编写一个倒计时的程序？
雍泼诺丽： Dim t Dim start As Boolean Private Sub Command1_Click() If start = False Then t = Val(Text1) * 3600 + Val(Text2) * 60 + Val(Text3) start = True End If Timer1.Enabled = True Command3.Enabled = True End Sub Private Sub Command2_Click() ...
瀍河回族区19190275526： 如何用VB编写一个天数倒计时的程序？
雍泼诺丽：新建 工程,1个按钮,1个timer,和1个文本框 在文本框内输入时间(秒数),点按钮就开始倒计时了: Dim i% Private Sub Command1_Click() Command1.Caption = IIf(Command1.Caption = “开始计时“, “停止计时“, “开始计时“) Timer1...
瀍河回族区19190275526： 如何用VB编写一个倒计时的程序?？
雍泼诺丽： 请参考: http://wenwen.sogou.com/z/q797434934.htm 编程中国-北京2008年奥运会倒计时 http://www.bc-cn.net/code/asp/others/2420.html 或者: 新建 工程,1个按钮,1个timer,和1个文本框 在文本框内输入时间(秒数),点按钮就开始倒计时...
瀍河回族区19190275526： 求高人帮我写一段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
瀍河回族区19190275526： 求高人帮忙写一段VB简单的倒计时代码!谢谢 - ？
雍泼诺丽： 加个timer就可以了dim timeform_load 里timer1.interval = 1000time = 60end subpravite timer1 里time = time - 1end sub
瀍河回族区19190275526： 怎样用VB来编写一个倒计时的软件呢? - ？
雍泼诺丽： 您好,很高兴为你回答问题,按你说的首先应该添加 Command1 Command2 Text1 Timer1 这四个然后写入代码如下: Private Declare Function GetTickCount& Lib ＂kernel32＂ () Dim starttm&, forcestop As Boolean Private Sub Form_Load() ...
瀍河回族区19190275526： 求一个用VB做的倒计时？
雍泼诺丽： 添加全局变量 T 用timer控件递减T,并显示 知道T为0 为止
瀍河回族区19190275526： 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....
