打字效果,一个字一个字显示

Static p As Integer = 1

Dim s As String = "这题我想做出的结果是光标从左往右移 一个一个字显示" & vbCrLf & "还可以回车换行"

Dim m As String '临时字符串变量

If p = Len(s) Then

Timer1.Enabled = False

'TextBox1.Text = s

Else

m = Mid(s, p, 1) '新字符串=MID(指定字符串，指定开始位置，指定字符串个数不指定则到字符串结尾)

TextBox1.Text = TextBox1.Text & m

p = p + 1

End If

End Sub