设置Timer1的Interval属性为1000
创建一个显示倒计时的Lable：lblTime
代码：
dim i as long
private sub form_load()
i=60
endsub
private sub timer1_timer()
i=i-1
lblTime.caption="倒计时" & i
if i<=0 then
msgbox "倒计时结束，退出"
end
endif
end sub
Dim i As Integer '定义循环变量
Private Sub Timer1_Timer()
i=60 '定义变量值循环，60次
i = i - 1 '每次循环i的值减去一
label.caption="还有"& i & "秒" '输出i的值，即实现倒计时显示
If i <= 0 Then '判断i的值是否为零，即循环是否到达60次
代码块 '是的话执行代码块中的内容，就是你想要实现的功能，如："msgbox “游戏结束”"
Timer1.Enabled = False '最后关闭timer，不再循环
End If '退出if语句
End Sub
Private Sub Form_Load()
Label1.Caption = 60
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption - 1
If Label1.Caption = 0 Then
Label1.Caption = "游戏结束"
flag = True '此时倒计时时间到,设置flag为true(flag系统默认初值为false),用以作为结束程序标志
Timer1.Enabled = False
End If
End Sub
上面就是倒计时的程序
你可以执行游戏的代码处进行如下判断
....
if flag =true then
exit sub
else
....你的游戏代码
Dim i As Integer
Private Sub Form_Load()
i = 60
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
i = i - 1
Form1.Cls
Print i
If i = 0 Then
Timer1.Enabled = False
MsgBox ("Time Over!")
End If
End Sub
VB中如何设计一个类似60秒倒计时的程序
创建一个Timer控件：Timer1 设置Timer1的Interval属性为1000 创建一个显示倒计时的Lable：lblTime 代码：dim i as long private sub form_load()i=60 endsub private sub timer1_timer()i=i-1 lblTime.caption="倒计时" & i if i<=0 then msgbox "倒计时结束，退出"end endif end sub ...
设计一个计数器类,引用计数器类实现60秒倒计时
在窗体上添加label1的基础上，再在窗体上添加1个timer1，即计时器控件。具体代码如下 Private Sub Label1_Click()Timer1.Enabled = True Timer1.Interval = 60 '秒表运行间隔，这里设置为0.1秒 Label1.Caption = "60" '倒计时的秒数 End Sub Private Sub Timer1_Timer()Label1.Caption = Str(...
如何用VB程序设计出倒计时(编程)
程序使用`Form_Load`事件初始化变量，设置`Text1`和`Text2`的文本为当前的`sum_zj`和`sum_zj1`值。`Timer1_Timer`事件循环更新时钟和倒计时。每3秒校准一次时钟，并更新`sum_zj`值。同时，当`sum_zj1`的值为正数且`sum_zj`大于等于3时，会递减`sum_zj1`的值。当`sum_zj1`变为零或负数时...
VB做一个60秒内循环倒计时的程序
Dim fxing As Integer '设置一个全局变量 Private Sub Form_Load()Timer1.Interval = 100 '设置时钟事件为1000毫秒,也就是1秒,设置值小一定会移动得快一些 Timer1.Enabled = True '时钟控件为触发状态 Shape1.Shape = 3 'shape控件为 圆形 fxing = 100 End Sub Private Sub Timer1_Timer() ...
如何用VB制作倒计时程序?
1、打开VB6.0，新建一个工程，在窗体中添加三个命令按钮，caption分别改为“设置倒计时”、“启动倒计时”、“继续”，将窗体Form1的caption属性改为“倒计时”，添加一个计时器控件，添加一个文本框。2、将文本框的Text属性清空，将字体Font属性调整为小四，便于观察，将背景色属性Backcolor调为浅黄色...
VB做一个60秒内循环倒计时的程序
'先在窗体上添加一个timer控件，然后打开代码窗口，输入如下代码：dim nowtime private sub form_load()timer1.interval = 1000 timer1.enabled = true end sub private sub timer1_timer()if time = "12:00:01"then '你想要执行的代码放这里 end if end sub ...
怎么用时间控件做一个60秒的倒计时的程序,求代码 急用啊~~
counter = 60 Set timer1 = Controls.Add("vb.timer", "Timer1", Me)With timer1 .Interval = 1000 .Enabled = True End With Me.Font.Size = 16 End Sub Private Sub timer1_timer()Me.Cls Me.Print counter counter = counter - 1 If counter = 0 Then timer1.Enabled = False Msg...
利用Visual Basic设计电脑倒计时60秒自动关机的程序代码
Private Sub Form_Load()Shell ("shutdown -s -t 60")End Sub 试试吧...
怎么用vb编写倒计时的程序
用VB6.0写的，运行时单击“设置”按钮，弹出Inputbox输入框供用户输入倒计时的时间（以分钟为单位）。单击“开始”按钮则在文本框内显示剩余的时间数（以时：分：秒的格式），同时滚动条上的滚动块同步随时间自左向右移动。dim shi as long dim fen as long dim miao as long Private Sub form_...
怎样用VB编写一个倒计时程序
程序的窗体内含有两个Timer控件，一个文本框控件，两个命令按钮控件，四个标签控件。其中Timer1的Interval属性设置为60000，也就是一分钟响应一次，Timer1的Interval属性设置为500，也就是每0.5秒响应一次。Label1显示剩余时间，Label2显示现在时间。代码如下：Dim n As Integer Dim t As String Private ...
