我用sleep函数来延迟，调试的时候是一个个出来的，但运行是却是等待一段时间后出来 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 我用sleep函数来延迟，调试的时候是一个个出来的，但运行是却是等待一段时间后出来

标题：我用sleep函数来延迟，调试的时候是一个个出来的，但运行是却是等待一段时间 ...

只看楼主

xingjiang

等　级：新手上路
帖　子：39
专家分：0
注　册：2006-5-25

问题点数：0 回复次数：5

我用sleep函数来延迟，调试的时候是一个个出来的，但运行是却是等待一段时间后出来

请高手帮帮忙，源码可以下载，在线等回复

搜索更多相关主题的帖子: sleep　函数　延迟　调试　运行　

2006-05-26 00:47

xingjiang

等　级：新手上路
帖　子：39
专家分：0
注　册：2006-5-25

得分:0

这是源码：

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim i As Integer

For i = 1 To 4
Label1.Caption = Val(i)
List1.AddItem "第" & Str(i) & "个"
Call Sleep(500)
Next i

End Sub

2006-05-26 00:48

xingjiang

等　级：新手上路
帖　子：39
专家分：0
注　册：2006-5-25

得分:0

我上传了源码的压缩文件怎么看不到啊？奇怪

2006-05-26 00:49

xingjiang

等　级：新手上路
帖　子：39
专家分：0
注　册：2006-5-25

得分:0

建立一个列表list1，一个静态文本label1和一个按钮command1，单击按钮会执行相应的操作

XQ0PVZBD.rar (1.79 KB) 我用sleep函数来延迟，调试的时候是一个个出来的，但运行是却是等待一段时间后出来，请问这是怎

2006-05-26 01:00

xinfresh

等　级：贵宾
威　望：13
帖　子：594
专家分：0
注　册：2006-1-13

得分:0

Label1.Caption = Val(i)
Label1.Refresh

List1.AddItem "第" & Str(i) & "个"
List1.Refresh

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042

2006-05-26 01:31

xingjiang

等　级：新手上路
帖　子：39
专家分：0
注　册：2006-5-25

得分:0

以下是引用xinfresh在2006-5-26 1:31:00的发言：
Label1.Caption = Val(i)
Label1.Refresh

List1.AddItem "第" & Str(i) & "个"
List1.Refresh

高手，谢拉

2006-05-26 01:37