vb这个代码错在哪里

来源：百度知道 编辑：UC知道 时间：2024/05/18 02:18:08
Private Sub cmd1_click()
dim i as Integer
Dim strurl As String
strurl = txt1.Text
For i = 1 To 4
timer1.interval=5000
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & strurl 'Shell "tskill iexplore"
Next
End Sub

我想每隔5s运行一次，可是一点没有延迟，请问哪里缘故？

timer1.interval=5000
这个是设置计时器的间隔
如果你要5S运行一次,应该将运行代码放到 Timer1_Timer事件中

我给你改了一下:
Private Sub cmd_Click()
Timer1.Enabled = True
End Sub

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

Private Sub Timer1_Timer()
Dim i As Integer
Dim strurl As String
strurl = text1.Text
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & strurl 'Shell "tskill iexplore"
End Sub

如果只是想运行4次的话,Timer事件改为
Private Sub Timer1_Timer()
Static i As Integer
Dim strurl As String
strurl = text1.Text
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & strurl 'Shell "tskill iexplore"
i=i+1
If i mod 4=0 then Timer1.enabled=False
End Sub

Private Sub cmd1_click()
Dim i As Integer
Dim strurl As String
strurl = txt1.Text
Shell "C: