i=5
Timer1.Interval = 1000
Private Sub Timer1_Timer()
i=i-1
if i=0 then end
End Sub
把Timer1的触发时间调整到1000，这段代码在5秒钟后自动关闭自己。
Private Sub Timer1_Timer()
End ' 这里就你要实现那些功能自己添加
End Sub
VB中如何timer 控件进行倒计时
1、程序加载时操作： Private Sub Form_Load() '窗体加载时自动进行 Timer1.Interval = 1000 ‘设置计时周期为1秒注意默认计时单位为毫秒，即1\/1000秒 2、定义一个时间变量。可以某控件的Caption属性代替，如Label12.Caption 3、拖放timer控件到程序界面上 4、设置倒计时：双击时钟控件，输入计时...
vb用timer倒计时到0程序停止
这里将倒计时的初始值设置为 10 秒。在 Timer 控件的 Tick 事件中处理倒计时逻辑：Private Sub Timer1_Timer()Dim count As Integercount = CInt(Label1.Caption) - 1 ' 计时器减一If count >= 0 ThenLabel1.Caption = CStr(count) ' 更新标签的显示文本ElseTimer1.Enabled = False ' 停止...
用vb做一个能自动关机的程序,可以倒计时关机和定时关机。
新建一个窗体FROM1 和一个 按钮 Command1 添加 一个 Timer1 控件 和两个 Label(倒计时X小时X分钟）（显示当前时间）Text1.Text(小时)Text2.Text(分)Text3（秒）...张志晨：.代码...Dim t Private Sub Command1_Click()'t为设置的要关机的时刻 t = Text1 & ":" & Text2 & ":" &...
如何利用VB实现倒计时功能?
1、打开VB6.0，新建一个工程，在窗体中添加三个命令按钮，caption分别改为“设置倒计时”、“启动倒计时”、“继续”，将窗体Form1的caption属性改为“倒计时”，添加一个计时器控件，添加一个文本框。2、将文本框的Text属性清空，将字体Font属性调整为小四，便于观察，将背景色属性Backcolor调为浅黄色。
vb中,如何做到timer倒计时???
设置5个timer控件，毫秒数分别设置为1000、2000、3000、4000、5000 再设置一个text控件 在第一个timer中输入text1.text=5 第二个：text1.text=4 第三个：text1.text=3 第四个：text1.text=2 第五个：text1.text=1 这样就有了五秒的倒计时，其他情况就可以按照这个思路具体分析了 ...
vb.net怎么倒计时关闭窗口 就是我要它 还有15秒关闭form1 怎么能加什 ...
加一个计时器控件Timer1 代码如下:Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Timer1.Interval = 15000 Timer1.Start()MessageBox.Show("程序将在15s后关闭.")End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As...
怎样用VB编写一个倒计时程序
代码如下：Dim n As Integer Dim t As String Private Sub Command1_Click() '计时开始 If Text1.Text = "" Then Exit Sub End If t = Val(Text1.Text)Timer1.Enabled = True Label1.Caption = "剩余时间：" & t & "分钟"End Sub Private Sub Command2_Click() '退出程序 End...
VB如何编写计时器,到时间后关闭指定EXE文件.
1秒刷新一次 End SubPrivate Sub Timer1_Timer()a = a - 1 'timer1 刷新一次A-1 If a <= 0 Then '如果A小于等于0 MsgBox "时间到", 0, "提示" '就显示提示 End '这是关闭自身程序，如果要关闭其他程序要APP函数 End If Text1.Text = a ' text1显示倒计时数 End Sub ...
vb中倒计时的设计并在窗体中显示出来(比如100秒)
在窗体上画两个label控件，一个Command控件，一个Timer控件，代码如下：Dim Time_Num As Double '定义用于用户输入定时的初始值 Private Sub Command1_Click() '开始定时按钮 If Command1.Caption = "倒计时开始" Then '判断是否为开始，是则提示输入初始值，同时将按钮改成停止 Time_Num = ...
VB6.0里怎么用Timer设置时间开启窗口和关闭
Dim a%Private Sub Command1_Click()a = InputBox("请入倒计时间（单位S）", , 5) '设置时间倒计时间为5秒 End Sub Private Sub Timer1_Timer()a = a - 1 If a = 0 Then Form1.Hide Form2.Show End If End Sub
