VB.net2013中如何让for....next循环一次等待1秒(或多秒）再循环一次等1秒，直到循环结束。

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

VB.net 如何设定准确的1秒时间？

form 的load事件中加一句：timer1.interval=1000

在一个按钮里面加入一句触发timer事件开始计时的代码：

timer1.enabled=true

timer的tick事件中加入这么两句：

textbox1.backcolor=color.red

timer1.enabled=false

vb.net DOEVENT怎么用

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) 即可。

当前文章：vb.net等待1秒 vbs等待5秒
本文URL：http://scgulin.cn/article/hghecj.html