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://bzwzjz.com/article/hghecj.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 营销型网站建设 营销型网站建设 重庆网站制作 成都定制网站建设 高端定制网站设计 高端网站设计 成都网站设计 成都网站设计 企业网站设计 成都网站建设 网站设计 网站制作 企业网站设计 定制网站制作 网站设计公司 攀枝花网站设计 重庆外贸网站建设 定制网站设计 成都网站建设流程 网站制作公司 教育网站设计方案 成都网站制作