UC知道vb中怎么用timer控件设置一个等待时间
来源：百度知道 编辑：UC知道 时间：2024/04/29 10:34:27
1、程序很简单，每输出一个数后等2分钟然后再输出下一个数。下面我用timer控件编的程序好像interval属性就没有起作用了。为什么？我想等待时间直接设置interval属性来实现，不要程序。怎么才能做到呢？
2、for循环语句中，当循环的次数较多时，此时不能对vb程序进行任何操作，否则程序变为未响应状态，窗体中的数据不再变化，但存储文件中在继续存数据，即程序仍然在运行。不知道为什么。
希望有大侠帮忙！！
Private Sub Command1_Click()
Dim k As Long
For k = 0 To 2000
Picture1.Print k
call timer1.timer
Next i
End Sub
Private Sub Timer1_Timer()
Dim T1 As Double
Dim T2 As Double
T1 = Timer
7020 T2 = Timer - T1
7030 If T2 > 1 Then GoTo 7060
7035 GoTo 7020
7060 End Sub
谢谢楼上的热心的解答，第一个问题已经解决。第二个问题我觉得不是print的问题。
当把print去掉后，只留下call timer1.timer，这个for语句也会出现程序未响应的情况。
vb中的循环语句是不是有这种类似的缺陷？
2、for循环语句中，当循环的次数较多时，此时不能对vb程序进行任何操作，否则程序变为未响应状态，窗体中的数据不再变化，但存储文件中在继续存数据，即程序仍然在运行。不知道为什么。
希望有大侠帮忙！！
Private Sub Command1_Click()
Dim k As Long
For k = 0 To 2000
Picture1.Print k
call timer1.timer
Next i
End Sub
Private Sub Timer1_Timer()
Dim T1 As Double
Dim T2 As Double
T1 = Timer
7020 T2 = Timer - T1
7030 If T2 > 1 Then GoTo 7060
7035 GoTo 7020
7060 End Sub
谢谢楼上的热心的解答，第一个问题已经解决。第二个问题我觉得不是print的问题。
当把print去掉后，只留下call timer1.timer，这个for语句也会出现程序未响应的情况。
vb中的循环语句是不是有这种类似的缺陷？
以下程序利用Timer，使得程序等待1秒（1000毫秒）后继续执行
Option Explicit
Private Sub Command1_Click()
Cls '清屏
Timer1.Interval = 1000 '等待1000毫秒（1秒）
Timer1.Enabled = True