艾莉·麦克道尔h本:vb6中,可不可以等待一段时间后再执行代码?

来源:百度文库 编辑:神马品牌网 时间:2024/05/03 05:56:05
就比如说:
我按下了button
执行 a = b 后
等待5秒钟,再执行 b = c
有没有此类 wait 语句,函数?

最好别用Timer,因为我在Timer也要用到。。。。
API sleep ?
能不能说清楚一点?

API sleep
首先在"通用"进而声明API 引用:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

然后你就可以在下面的代码中使用sleep 函数了.

Sleep 100'就是使用整个进程暂停100ms,程序不会有任何响应就像死了一样.当然,100ms就不明显,如果你设成15000ms 就可以明显看到现像了.

如果你是暂停等待,建议用循环,在循环体内用:doevents 又响应用户操作.
还有问题Q我:57099665

你也可以用一个.

你可以这样的解决你的问题:在vb6下编译通过。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = 5
b = a
Debug.Print a, b

Sleep (5000)
c = b
Debug.Print c
End Sub

system("pause");

这个函数保证你满意。。。

你试过就知道了

不用Timer,可以用FOR循环,但必须进行调试。