vb.net中如何实现精确延时

why3213 2010-02-23 05:20:47

最近在使用VB.NET做点东西，用到了一些精确延时程序，不知道该使用那些头文件或者库函数，去实现精确延时，比如要实现延时500ms的程序，该如何写这部分程序，哪位高手有这样的演示程序，希望能分享一下，谢谢！

...全文

311 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

tjficcbw 2010-02-27

打赏
举报





        For i As Integer = 1 To 10

            TextBox1.Text = TextBox1.Text & i & vbCrLf

            System.Threading.Thread.Sleep(500)

            My.Application.DoEvents()

        Next i

xingyuebuyu 2010-02-27

打赏
举报

引用 1 楼 xiaoid 的回复:

VB.NET code
n= System.Environment.TickCountWhile (i<500)
i= System.Environment.TickCount- nEndWhile

这样就可以了

夜雨悠扬 2010-02-27

打赏
举报

用线程比较稳定，Timer控件有时候会有问题

水猿兵团五哥 2010-02-24

打赏
举报

用计时器一样可以实现

wuyq11 2010-02-23

打赏
举报

Thread.Sleep(1000)
DoEvents(保证消息循环)

古今多少事 2010-02-23

打赏
举报

引用 2 楼 veron_04 的回复:

API函数GetTickCount可以实现

很久不见……呵呵！

贝隆 2010-02-23

打赏
举报

API函数GetTickCount可以实现

xiaoid 2010-02-23

打赏
举报



n = System.Environment.TickCount

While (i < 500)

    i = System.Environment.TickCount - n

End While

VB 最精确延时 ,采用API QueryPerformanceCounter和QueryPerformanceFrequency函数，可精确达到1ms

1. Threading.Thread.Sleep(...) 优点：简单缺点： Sleep期间程序（其实是该线程）没有任何响应。 2. Timer(定时器) 定时器有3种。Forms.Timer/ Timers.Timer/ Threading.Timer 第一种是在当前线程启动事件处理，第二种在事件发生时会启动一临时线程处理事件，第三种在事件发生时在一临时线程中调用

用VB.NET开发交互式CAD系统，包括结合GDI+和OPENGL两种方案。联系平台客服可开发票。

调用时直接用不阻塞延时(1000) Public Shared Sub 不阻塞延时(ByVal 需要延时的毫秒) '及其精确误差1毫秒 Dim 当前时间 As DateTime = DateTime.Now Dim 跨度 As Int64 = 需要延时的毫秒 * 10000 While (DateTime.Now.Ticks - 当前时间.Ticks < 跨度) Application.DoEvents(

转： http://topic.csdn.net/t/20020730/03/909318.html 1. Threading.Thread.Sleep(...) 优点：简单缺点： Sleep期间程序（其实是该线程）没有任何响应。 2. Timer(定时器) 定时器有3种。Forms.Timer/ Timers.T

16,554

社区成员

110,527

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章