请教vb倒计时程序

VB倒计时程序~

很简单的，我这的代码有注释。你需要添加一个Timer控件，不需要改名，然后把下面的代码放进去。运行试试，不知道合不合你心意。 Dim X As Integer
Private Sub Form_Load()
Me.AutoRedraw = True '永久性显示
X = 10
Print "倒计时" & Str(X) & "秒" '在窗体上显示文字
Timer1.Enabled = True '使时间控件可用，默认时为True。所以可用把这句删掉
Timer1.Interval = 1000 '设置间隔时间为 1000毫秒
End SubPrivate Sub Timer1_Timer()
Cls '清除运行时窗体所生成的图形和文本
X = X - 1 '计算，每次减1
Print "倒计时" & Str(X) & "秒" '在窗体上显示文字
If X = 0 Then
MsgBox "时间已到！", , "提示"
Timer1.Enabled = False '使时间控件不可用
End If
End Sub

完全满足你的要求，需要源文件给地址。

Private Sub Timer1_Timer()
Dim timenow As Date
timenow = #4:00:00 PM# - Time
Me.Cls
Print "距离下午4点还有" & Hour(timenow) & "时" & _
Minute(timenow) & "分" & _
Second(timenow) & "秒"
If Time = #4:00:00 PM# Then
MsgBox "时间到"
End If
End Sub

但你要注意一点:进行时间相减就得出时间差来了,不过当现在的时间超过下午4点的时候 时间差就会一秒一秒的增加,在4点以前是一秒一秒的倒计时的.

下面我写的这个程序 你会更加明白一些.

Private DatNow As Date, Y As Integer

Private Sub Timer1_Timer()
Me.Cls
DatNow = #6/6/2012 7:30:50 PM# - Now
Y = 2012 - Val(Year(Now))
Print "距离 2012年6月6号下午7点30分50秒 还有 " & Y & "年" & _
Month(DatNow) & "月" & _
Day(DatNow) & "天" & _
Hour(DatNow) & "小时" _
; Minute(DatNow) & "分钟" _
; Second(DatNow) & "秒钟"
End Sub

都这么精确的回答了,希望给分哟~~o(∩_∩)o...

'新建一个窗体添加一个timer控件，到时间的时候会出现提示音每秒响一下直到关闭窗体或者时间到了16：01：00
Dim dat As String

Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Width = 2000
Form1.Height = 800
dat = "16:00:00"
Timer1.Interval = 1000
If DateDiff("n", Time, dat) < 0 Then
MsgBox "时间已过"
End
End If
End Sub

Private Sub Timer1_Timer()
If DateDiff("n", Time, dat) = 0 Then
Beep
ElseIf DateDiff("n", Time, dat) > 0 Then
Cls
a = DateDiff("s", Time, dat) Mod 60
Print "倒计时：" & DateDiff("n", Time, dat) - 1 & ":" & Format(a, "00")
Else
MsgBox "时间已过", vbOKOnly, "提示"
End
End If
End Sub

另外我弄了个简单点的可以自由设置时间的小程序，感兴趣的话HI我或者留下邮箱

Private Sub Timer1_Timer()
If Time = #4:00:00 PM# Then
Label1.Caption = "时间已到"
Timer1.Interval = 0
Else
Label1.Caption = DateDiff("s", Time, #4:00:00 PM#) & "秒"
End If
End Sub

http://zhidao.baidu.com/question/76003204.html?si=1
里面讲的很适合你说的情况。
到了16：00有提示，那需要你说出具体要什么提示。比如图片闪烁啊：
timer2.interval=2500
form1.backcolor=vbred
之类的。

date=date.now()
再定义一个date类型为16：00
两者相减不就可以了吗
当差值为0时提示

Private Sub form_load()
Timer1.Interval = 1000
Timer1.Enabled = False
Command1.Caption = "开始计时"
Label1.Caption = ""
End Sub
Private Sub command1_click()
Timer1.Enabled = True
End Sub

Private Sub timer1_timer()
Label1.Caption = Time
End Sub

---

陕县18991343722： 如何用VB设计一个倒计时的程序 - ？
尧生兰悉： 在窗体上放一个textbox,一个Label,一个Timer,一个Commandbutton 双击窗体,粘贴以下代码: Private Sub Command1_Click() Label1.Caption = Text1.Text Timer1.Interval = 1000 Timer1.Enabled = True End SubPrivate Sub Form_Load() ...

陕县18991343722： 怎么用vb编写倒计时的程序 - ？
尧生兰悉： 用VB6.0写的,运行时单击“设置”按钮,弹出Inputbox输入框供用户输入倒计时的时间(以分钟为单位).单击“开始”按钮则在文本框内显示剩余的时间数(以时:分:秒的格式),同时滚动条上的滚动块同步随时间自左向右移动.dim shi ...

陕县18991343722： 如何用VB编写一个天数倒计时的程序？
尧生兰悉：新建 工程,1个按钮,1个timer,和1个文本框 在文本框内输入时间(秒数),点按钮就开始倒计时了: Dim i% Private Sub Command1_Click() Command1.Caption = IIf(Command1.Caption = “开始计时“, “停止计时“, “开始计时“) Timer1...

陕县18991343722： 用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() ...

陕县18991343722： 怎么用VB制作一个倒计时? - ？
尧生兰悉： 窗体中放置三个Command、三个Label、一个Timer控件,在Form_Load过程中已经说明了控件用途,其中Label1是显示分钟数,Label2是显示秒数,代码如下:Dim JS As Integer '这里声明了一个全局变量,保存计时数 Private Sub Command1...

陕县18991343722： 如何用VB编写一个倒计时的程序?？
尧生兰悉： 请参考: http://wenwen.sogou.com/z/q797434934.htm 编程中国-北京2008年奥运会倒计时 http://www.bc-cn.net/code/asp/others/2420.html 或者: 新建 工程,1个按钮,1个timer,和1个文本框 在文本框内输入时间(秒数),点按钮就开始倒计时...

陕县18991343722： 请教一个VB倒计时的程序代码实现功能？
尧生兰悉： 根据你给出的代码,帮你实现了托盘和气泡的显示问题. 输入时间没办法实现,因为没有数据库支持输入记录. 代码: 1、新建一个以SysTray命名的模块,里面加入代码: Option Explicit Declare Function Shell_NotifyIcon Lib ＂shell32.dll＂ ...

陕县18991343722： 用vb编一个倒计时的程序？
尧生兰悉： Dim t As Integer Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = True t = 90 End Sub Private Sub Timer1_Timer() Label1.Caption = t If t = 0 Then MsgBox ＂时间到!＂ t = 90 Label1.Caption = t End If t = t - 1 End Sub

陕县18991343722： 怎样用VB设计一个倒计时程序? - ？
尧生兰悉： 设置的倒计时时间是知怎么样的格式?X天X分X秒?还是X秒?以道下以X秒为例(天数等可以转换为秒数再回倒计时),添答加Text1以输入倒计时秒数,添加Timer1:Dim starttime As Single Private Sub Command1_Click() If Text1.Text <> ＂＂ ...

陕县18991343722： 用VB编写个倒计时程序!在线等! - ？
尧生兰悉： 完整代码如下,可以解释. Private f As Integer, m As Integer Private Sub Command1_Click() Dim n As Integer Do n = Val(InputBox(＂请输入秒数:(小于3600)＂)) Loop Until (n < 3600) f = n \ 60: m = n Mod 60 Label1.Caption = f & ＂:＂ & m End ...