VB指定时间执行事件

发布网友 发布时间:17小时前

我来回答

2个回答

热心网友 时间:13小时前

Private Sub Form_Load()
Timer1.Interval = 300
Label1.Caption = Clear
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
If CDate(Time) = CDate("11:19:20") Then
'Unload Me
Form2.Show
End If
End Sub

==============================
CDate函数用法如下:
http://baike.baidu.com/view/611252.htm

热心网友 时间:13小时前

If Label1.Caption = "10:20:00" Then 改为
If right(Label1.Caption,8) = "10:20:00" Then

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com