如何让一个文本框中的文字一个接一个出现，要是第一个稳定后才出现下一个。是一个文本框，

如何让一个文本框中的文字一个接一个出现，要是第一个稳定后才出现下一个。是一个文本框，

'控件 timer,文本框,按钮
Dim ShowWord As String
Dim i As Integer
Private Sub Command1_Click()
i = 0
ShowWord = "Hello World"
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
i = i + 1
Text1.Text = Mid(ShowWord, 1, i)
If i = Len(ShowWord) Then Timer1.Enabled = False
End Sub

for i =1 to n text1=text1.txt+mid(targetstr,i,1) wait(SECONDS) next

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息