Dim s As String = "123456789"
成都创新互联公司是一家专注于网站建设、网站设计与策划设计,鹤山网站建设哪家好?成都创新互联公司做网站,专注于网站建设十余年,网设计领域的专业建站公司;建站业务涵盖:鹤山等地区。鹤山做网站价格咨询:18980820575
For i = 1 To Len(s)
TextBox1.Text = TextBox1.Text Mid(s, i, 1)
System.Threading.Thread.Sleep(1000)
Application.DoEvents()
Next
form 的load事件中加一句:timer1.interval=1000
在一个按钮里面加入一句触发timer事件开始计时的代码:
timer1.enabled=true
timer的tick事件中加入这么两句:
textbox1.backcolor=color.red
timer1.enabled=false
Public Sub Delay(Second As Bouble)
Dim tempTime As DateTime = DateTime.Now
While (tempTime.AddSeconds(second).CompareTo(DateTime.Now) 0)
Application.DoEvents()
End While
End Sub
放在模块里,使用时 Delay(1) 即可。