text1="abc"text1=text1 &vbcrlf &"def"text1=text1 &vbcrlf &"ghi"text1=text1 &vbcrlf &"jkl"
1 回答
叮當(dāng)貓咪
TA貢獻1776條經(jīng)驗 獲得超12個贊
下面的代碼就可以實現(xiàn)了，不過沒有用timer控件，timer控件我不能編寫出來你看看‘定義間隔的時間函數(shù)’
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
- 1 回答
- 0 關(guān)注
- 97 瀏覽
添加回答
舉報
0/150
提交
取消