发布网友 发布时间: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