关于VB计时器的问题

来源：百度知道 编辑：UC知道 时间：2024/06/04 01:39:40
当单击命令按钮2时开始计时，并在系统时间等于文本框1的值时，加载窗体4，
我是这样写的但是不对！
Private Sub Command2_Click()
Shell "at " + Text1.Text + "form4"
End Sub

Dim ctime As String
Private Sub Command1_Click()
ctime = Text2.Text
End Sub

Private Sub Form_Load()
Timer1.Interval = 100
ctime = ""
End Sub

Private Sub Timer1_Timer()
Text1.Text = Time
If Text1.Text = ctime Then form4.show
End Sub

Private Sub Command2_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If CDate(Text1.Text) = Now Then Form4.Show
End Sub

Private Sub Form_Load()
Text1.Text = "2009-9-10 12:43:24" '年月日时间 Now
'Text1.Text = "2009-9-10" '年月日 Date
'Text1.Text = "12:43:24" '时间 Time

Timer1.Enabled = False 'Timer1 停止计时
End Sub
Private Sub Command2_Click()
If Now = Text1.Text Then Form4.Show '系统 年月日时间 等于文本框1的值时，加载窗体