中科新闻网绵阳聚贤山庄二手房:如何在vb中实现一句话间隔1秒、一个字一个字地显示在窗体上？
来源：百度文库 编辑：中科新闻网 时间：2024/05/06 04:47:04
越简单越好，用timer
Option Explicit
Dim i As Integer
Private Sub Form_Load()
i = 1
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption & Mid(Text1.Text, i, 1)
i = i + 1
If i = Len(Text1.Text) + 2 Then
i = 1
Label1.Caption = ""
End If
End Sub