十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
好久没用vb了,不过记得好像有个时钟控件吧,用那个作为倒计时,5秒就是5000毫秒,然后激活事件中写窗体关闭,就ok了。
成都创新互联于2013年开始,先为古浪等服务建站,古浪等地企业,进行企业商务咨询服务。为古浪企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
不对。步骤如下:
添加一个label标签名字label1 用来显示时间
再添加一个timer控件 名字timer1 interval属性=1000 用来计时
窗体添加代码
Dim t As Date '用来记录时间
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Timer1.Tick
t = t.AddSeconds(1)
Label1.Text = "登录时间:" t.TimeOfDay.ToString
End Sub
Dim so As Integer
Dim A As Integer
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
A = 1
End Sub
Private Sub Timer1_Timer()
so = so + 1
If A = 0 Then
so = 0
Me.Caption = "正常运行"
Exit Sub
Else
Me.Caption = so
If so = 6 Then
so = 0
' 触发button事件
End If
End If
End Sub
3个标签,2个按钮,1个计时器控件
Private Sub Command1_Click() '开始/暂停
If Timer1.Enabled = True Then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
End Sub
Private Sub Command2_Click() '停止清0
Label1 = "0"
Label2 = "0"
Label3 = "0"
Timer1.Enabled = False
End Sub
Private Sub Form_Load() '初始设置
Label3 = "0"
Label2 = "0"
Label1 = "0"
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label3 = Label3 + 1
If Label3 = 60 Then
Label3 = "0"
Label2 = Label2 + 1
If Label2 = 60 Then
Label2 = "0"
Label1 = Label1 + 1
End If
End If
End Sub
button里执行
sleep 5000 '等5秒
call xxxx '另外的过程代码
即可。
这种功能用不到TIMER,TIMER控件用在这种地方也不适合。(假如你所统计的时间很短,在几分中内话,可以使用,假如你统计的时间很长:几小时、几天几夜,建议改用以下方式):
在你需要开始计时的地方加入一个记录当前时间,在你想结束的地方也得到一个当前时间。然后将两个时间相减。
希望以上思路可以帮到你。