vb.net等待1秒 vbs等待5秒

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秒
本文来源:http://lszwz.com/article/hghecj.html

其他资讯

售后响应及时

7×24小时客服热线

数据备份

更安全、更高效、更稳定

价格公道精准

项目经理精准报价不弄虚作假

合作无风险

重合同讲信誉,无效全额退款