VB.net2013中如何讓for....next循環(huán)一次等待1秒(或多秒）再循環(huán)一次等1秒，直到循環(huán)結(jié)束。

Dim?s?As?String?=?"123456789"

成都創(chuàng)新互聯(lián)公司是一家專注于網(wǎng)站建設(shè)、網(wǎng)站設(shè)計與策劃設(shè)計,鶴山網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)公司做網(wǎng)站,專注于網(wǎng)站建設(shè)十余年,網(wǎng)設(shè)計領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:鶴山等地區(qū)。鶴山做網(wǎng)站價格咨詢: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 如何設(shè)定準(zhǔn)確的1秒時間？

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

在一個按鈕里面加入一句觸發(fā)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) 即可。