[求助]vb中延时的大麻烦怎么办
就是在我的程序设计的是1800次的循环中有描点 pset,之后再延时1s,但这样程序的图线并不是连续的画出,而且老死住
Private Sub Command1_Click()
Dim i As Long
For i = 0 To 1800
Call Sleep(10000)
picvalue.PSet (i, 100)
Next i
End Sub
谁可以指教一下,不胜感激
你Sleep(10000)是10秒,不是一秒
或者可以用DoEvents来处理,请看代码:
Option Explicit
Private Sub Form_Load()
Debug.Print "等待3秒..."
Delay 3
Debug.Print "OK"
End Sub
Private Sub Delay(intTime As Integer)
Dim dtStartTime As Date
dtStartTime = Now
Do While DateDiff("s", dtStartTime, Now) < intTime
DoEvents
Loop
End Sub
[此贴子已经被作者于2006-2-18 11:08:57编辑过]