我调用延时程序时遇到的一个问题?

Question

我调用延时程序时遇到如下问题://////////////////////////////////////////////////////////////////////////////////////////
     ... ...
     LblKouL.Visible = True          '显示标签
     Time_Delay 3                    '调用延时程序,延时3秒
     LblKoul.Visible = False         '隐藏标签
     ... ...
//////////////////////////////////////////////////////////////////////////////////////////以上程序的意图是这样的:先显示标签,然后延时3秒后再隐藏标签,结果执行的时候却不是这样的,没有了显示标签的过程,直接延时3秒后就执行后面的程序,请大家帮忙!!!

Answer 1

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Command1_Click()
Label1.Visible = True
Sleep 2000
Label1.Visible = FalseDim i As Integer
For i = 1 To 20
Sleep 500
DoEvents
Label1.Visible = Not Label1.Visible
Next
End SubPrivate Sub Form_Load()
Label1.Caption = String(100, "x")
End Sub

Answer 2

赞同 northwolves(狼行天下) 
用Sleep API函数Sleep 3000 '延时3秒

Answer 3

LblKouL.Visible = True          '显示标签
LblKouL.Refresh
Time_Delay 3                    '调用延时程序,延时3秒
LblKoul.Visible = False         '隐藏标签
LblKouL.Refresh
......

Answer 4

如果按你的想法,得用楼上说的,得refresh一下窗口!!就行了!!当然用sleep 也行,但记着加这个,移交系统控制权DoEvents