VB6.0中如何设置延时

Question

我要做一个加载的对话框
就是进入后
出现一个窗体
然后print"init......"
过3秒钟后
print"ok"
print"mount......"
过三秒钟后
print"ok......"
print"login......"
过三秒钟后
print"ok"
再过1秒钟
立即跳到窗体2
请问这个怎么做

Answer 1

方法很多个。
可以使用API函数Sleep
Private Declare Sub Sleep Lib "kernel32.DLL" (ByVal dwMilliseconds As Long)
调用比如睡眠1秒:Sleep(1000)

另外还有一种延时方法，即获取当前系统时间+延时时间=等待结束时间，等到了等待结束时间到了就往下执行。
Private Declare Function GetTickCount Lib "kernel32" () As Long
'自编应用函数
Private Sub WaitForMS(MillSeconds As Long)
Dim S as Long
S=GetTickCount+MillSeconds
Do
If GetTickCount=S Then Exit Sub
Loop
End Sub
这个函数的调用跟上面的相似，单位是ms。

追问

其他我不要求
就要求你能不能让他在VB的窗体里显示一行字，空2秒钟，再显示一行字

追答

佩服你了。。。
自己思考下嘛，怎么让别人全帮你搞定呢？不动脑去想怎么也学不会。
新建一个标准EXE工程：
在Form1添加如下代码(先把Form1的无用代码删除了)
Private Declare Sub Sleep Lib "kernel32.DLL" (ByVal dwMilliseconds As Long)
Private Sub Form1_Click()
print "Hello"
Sleep(2000)'睡眠2秒
print "world"
Sleep(2000)'睡眠2秒
print "China"
Sleep(2000)'睡眠2秒
print "Visual Basic 6.0"
End Sub

Answer 2

Private Sub Form_Load()
Dim x
x = Shell("Notepad.exe", vbNormalFocus)
SendKeys "这是一个文本文件的测试程序.", True ' 模拟输入英文字符串
SendKeys "{Enter}{Enter}", True ' 两次回车
waittime (2) ' 延时 2 秒
SendKeys "自动输入文字", True
SendKeys "{Enter}{Enter}", True
waittime (2)
SendKeys "既不是病毒，也不是木马!", True
SendKeys "{Enter}{Enter}", True
waittime (2)
SendKeys "开始退出... 看菜单项{(}F{)}...", True
SendKeys "%", True 'Alt 键激活菜单条
waittime (1)
SendKeys "(F)", True '按字母 "F"，选择"文件(F)"菜单
waittime (1)
SendKeys "(X)", True '按字母 "X"， 选择"退出(X)"
waittime (2)
SendKeys "(N)", True '弹出一个对话框，询问文件是否存盘，按 "N" 不存盘
End '结束本模拟程序
End Sub
Private Sub waittime(delay As Single)
Dim starttime As Single
starttime = Timer
Do Until (Timer - starttime) > delay
Loop
End Sub

追问

我想要的是在一个窗体中延时并显示
不是在一个TEXT中显示
因为我要在之后调用别的窗体

追答

你改一下啊，啥也不会吃现成的？

追问

不会啊

追答

改行吧，别做这个了

追问

其他我不要求
就要求你能不能让他在VB的窗体里显示一行字，空2秒钟，再显示一行字