请高手给一个可用的简短VB时间操作语句~~~!!(内详)

来源：百度知道 编辑：UC知道 时间：2024/05/31 15:10:50
作用就是每隔30分钟后让一个指定的窗体出现show一回,窗体出现然时间持续1分钟,然后该窗体消失hide, 这之后又重新等待隔30分钟出现该窗体的show显示操作,如此循环下去!

如此循环!!!

哪个朋友能提供一段可行的代码,十分感谢!!!!
关键就是时间事件中的逻辑代码怎么写啊,我要的正是这个东西!!

form1的代码,添加一个timer.. 如果不需要显示,则去掉cls和下面的print这2行:

(思路不太对呵,调整一下)

Dim StarTime

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
StarTime = Timer
End Sub

Private Sub Timer1_Timer()
Dim EndTime
EndTime = StarTime + (1800 + 60) - Timer
Cls
Print "还剩下"; DateAdd("s", EndTime, 0)
If EndTime < 0 Then
StarTime = Timer
Form2.Hide
End If
If EndTime < 60 And EndTime > 0 Then Form2.Show
End Sub

添加时间控件
设置time interval = 1800000
在时间事件中 写上逻辑代码