vb定时器提醒后 怎么编写一分钟后自动关闭提醒

vb定时器提醒后 怎么编写一分钟后自动关闭提醒

1.设定时器控件(例如“Timer1”)的启动你已经解决；
2.设有一个控件(例如Label控件“提醒内容控件”)用于显示提醒内容，其Enabl属性为False；
3.双击Timer1图标，在代码窗口书写如下子过程：
Private Sub Timer1_Timer()
If 提醒内容控件.Visible = False Then '定时器首次动作
提醒内容控件.Visible = True '显示提醒内容
Timer1.Interval = 60000 '设置60秒后定时器再次动作
Else '定时器再次动作
提醒内容控件.Visible = False '关闭提醒
Timer1.Enabled = False '关闭定时器
End If
End Sub

vb8.0版本的话用下面的方法： 先从工具箱拖一个timer定时器控件，默认的属性不用改了。双击这个控件，在SUB Timer1_Tick里加代码： dim T as long T+=200 if T>=3000 and T<3200 then 显示Form2 end if

代码手动输的，可能会有某些编译错误，自己小修改下就ok了。 需要两个按钮，一个标签。 option explicit dim utimer as new timer dim i& private sub utimer_timer() utimer.interval=1000 i=i+1 end sub private sub form_load() command1.caption="开始计时" command2.caption="停止计时" lable1.caption="计时:" & i &"s" end sub private sub command1_click() utimer.enable=1 end sub private sub command2_click() utimer.enable=0 end sub ==================== 顺便送一个程序给lz参考。 需要两按钮 一标签。 option explicit dim utimer as new timer private sub form_load() command1.caption="开始计时" command2.caption="停止计时" lable1.caption="计时："& " s" utimer.interval=1000 end sub private sub command1_click() utimer.enable=1 end sub private sub command2_click() utimer.enable=0 end sub private sub utimer_timer() lable1.caption="计时：" & time end sub

Private Sub waittime(delay As Single) '延时的自定义函数 Dim starttime As Single starttime = Timer Do Until (Timer - starttime) > delay Loop End Sub 调用 Private Sub Command1_Click() waittime (60) '60秒 msgbox"times up" End Sub

插入一个时间控件，然后将时间间隔设为一分钟（36000），可用属性设为false 定时器提醒后变为tue