vb.net中如何加延时的简单介绍

VB.NET的几种延时方法

Imports System.Threading

成都创新互联企业建站,10年网站建设经验,专注于网站建设技术,精于网页设计,有多年建站和网站代运营经验,设计师为客户打造网络企业风格,提供周到的建站售前咨询和贴心的售后服务。对于网站制作、做网站中不同领域进行深入了解和探索,创新互联在网站建设中充分了解客户行业的需求,以灵动的思维在网页中充分展现,通过对客户行业精准市场调研,为客户提供的解决方案。

Thread.Sleep(1000)’延迟1秒

2.PauseWait(1000)’延迟1秒

Public Sub PauseWait(ByVal HowLong As Long)

Dim tick As Long

tick = My.Computer.Clock.TickCount

Do

My.Application.DoEvents()

Loop Until tick + HowLong My.Computer.Clock.TickCount

End Sub

vb中如何实现延时功能?

可以用定时器,设置个中断时间间隔,时间一到就进入中断,可用于按一定规律延时的情况。

也可以用Timer函数,如以下是延时100ms:

T1=Timer

Do While(Timer-T10.1)

X=DoEvents

LOOP

注意,用这二种方法的延时只有在延时时间20ms以上才比较准,时间越小越不准。

怎么在vb 中加入延时命令

在窗体添加一个Timer和一个Command

Private Sub Command1_Click()

Me.Timer1.Interval = 30 * 1000        '定时30秒

Me.Timer1.Enabled = True

Do

If Not Timer1.Enabled Then MsgBox "时间到!": Exit Sub

DoEvents

Loop

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Me.Timer1.Enabled = False

End Sub


网页名称:vb.net中如何加延时的简单介绍
网站链接:http://bzwzjz.com/article/dohpjcp.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 高端定制网站设计 成都网站制作 重庆网站建设 专业网站设计 成都网站设计 成都网站建设 网站建设开发 营销型网站建设 LED网站设计方案 重庆网站建设 响应式网站设计方案 移动网站建设 四川成都网站制作 网站建设推广 成都网站制作公司 重庆网站建设 成都网站建设公司 温江网站设计 成都企业网站建设公司 成都h5网站建设 成都网站制作 高端网站设计