VB.NET打字机效果

【问题标题】：VB.NET typewriter effectVB.NET打字机效果
【发布时间】：2012-06-20 13:55:32
【问题描述】：

dim s as string = "123"
label1.text = s.substring(0,1)
WAIT
label1.text = s.substring(0,2)
WAIT
label1.text = s.substring(0,3)

【问题讨论】：

【解决方案1】：

Public str As String
Public count As Integer

Form1_Load：

 Label1.Text = ""
 count = 1
 str = ":D test 12345678910"
 Timer1.Enabled = True

timer_tick：

If Label1.Text.Length = str.Length Then
    Timer1.Enabled = False
    Exit Sub
End If
Label1.Text = str.Substring(0, count)
count = count + 1

只需使用计时器 :)

【讨论】：

【解决方案2】：

声明计时器：

对于字符串中的每个字符

console.writeline(字符)

//或者您可以将其写入文本框。 Textbox.text= Textbox.text & 字符

添加时间（可以设置每个字符之间的延迟）

结束

【讨论】：