如下语句，该如何使用timer控件使每句语句执行都间隔3秒钟？

Question

text1="abc"text1=text1 &vbcrlf &"def"text1=text1 &vbcrlf &"ghi"text1=text1 &vbcrlf &"jkl" 

Answer 1

下面的代码就可以实现了，不过没有用timer控件，timer控件我不能编写出来你看看‘定义间隔的时间函数’
Private
Const
KEYEVENTF_KEYUP
=
&H2

Private
Declare
Function
GetTickCount
Lib
"kernel32"
()
As
Long

Private
Sub
Pause(ByVal
sSec
As
Long)

Dim
StartSec
As
Long

StartSec
=
GetTickCount()

While
(GetTickCount()
-
StartSec)
<
sSec

DoEvents

Wend

End
Sub
Private
Sub
Command1_Click()
Text1.Text
=
"abc"
Pause
(1000)
Text1.Text
=
Text1.Text
&
vbCrLf
&
"def"
Pause
(1000)
Text1.Text
=
Text1.Text
&
vbCrLf
&
"ghi"
Pause
(1000)
Text1.Text
=
Text1.Text
&
vbCrLf
&
"jkl"
End
Sub