如何在Visual Basic中创建延迟？

B

bb

Guest
如何在Visual Basic中创建延迟？ THX 4帮助..分（）昏暗的整数i对于i = 1至1000，接下来，我Picture1.Print 1 END SUB上述程序创建任何印刷数量1前的延迟？
 
是的，但你会想看看它的困难时期。使用一个empy循环，是糟糕的方式，在任何程序中引入的延迟。为更好的说明，请参阅此链接： http://support.microsoft.com/kb/q212667/＃XSLTH3125121123120121120120 或使用本：私人公共小组放缓申报功能的GetTickCount LIB“KERNEL32”（）（只要lngTickStore作为龙）DIM lngTickStore毫秒=的GetTickCount（）做虽然lngTickStore +毫秒的GetTickCount（）的DoEvents循环结束小组
 
我使用Win32 API函数QueryPerformanceCounter的（）和QueryPerformanceFrequency（）3微秒低前一段时间的时间间隔。我帮学生驱动两个步进电机与完美的准确性。但他们在一个循环中的DoEvents（）正如上文所述。此外，您可以得到的奇怪的故障，因为一个多任务系统，当时间间隔变得非常小的先发制人的性质。
 
时代报的另一种方法做相同的公共子延迟（整数）salir = FALSE Timer1.Interval =时代报Timer1.Enabled = TRUE DO WHILE（不salir）的DoEvents循环Timer1.Enabled = FALSE高端子
 
我不知道有关VB4，但我用VB 6和它定时器。你只需要添加一个Timer对象到您的窗体，并设置计时器的间隔。这样你就可以得到一个从1ms ABT 3秒（根据间隔值）的延迟。如果VB4定时器，那么它是相当容易的创建延迟！！
 
定时器是一个简单的方法来实现在VB中的延误
 
You must log in or register to reply here.

Welcome to EDABoard.com

Sponsor

Back
Top