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

Question

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

Answer 1

下面的代码就可以实现了，不过没有用timer控件，timer控件我不能编写出来你看看‘定义间隔的时间函数’PrivateConstKEYEVENTF_KEYUP=&H2PrivateDeclareFunctionGetTickCountLib"kernel32"()AsLongPrivateSubPause(ByValsSecAsLong)DimStartSecAsLongStartSec=GetTickCount()While(GetTickCount()-StartSec)<sSecDoEventsWendEndSubPrivateSubCommand1_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"EndSub