Question

vb如何在label中一秒钟或间隔多长时间增加一个文字？

Answer 1

dim aa as string
Private Sub Form_Load()
Timer1.Interval = 500 '半秒
Label1 = ""
aa="撒谎房间啊合法拉夫阿哥斐然饭卡上的后方可哈市的风格上班"
End Sub

Private Sub Timer1_Timer()
Static i As Long
i = i + 1
Label1 = left(aa, i)
If i > Len(aa) Then
i = 0
Label1 = ""
Exit Sub
End If
End Sub

Answer 2

Const 全部内容 = "撒谎房间啊合法拉夫阿哥斐然饭卡上的后方可哈市的风格上班" '自己可以修改

Private Sub Form_Load()
Timer1.Interval = 500 '半秒
Label1 = ""
End Sub

Private Sub Timer1_Timer()
Static i As Long
i = i + 1
If i > Len(全部内容) Then
i = 0
Label1 = ""
Exit Sub
End If
Label1 = Label1 & Mid(全部内容, i, 1)
End Sub