vb中怎么用timer控件设置一个等待时间

以下程序利用Timer，使得程序等待1秒（1000毫秒）后继续执行

创新互联公司是一家专注于网站设计、网站制作与策划设计,惠城网站建设哪家好?创新互联公司做网站,专注于网站建设10余年,网设计领域的专业建站公司;建站业务涵盖:惠城等地区。惠城做网站价格咨询:18980820575

Option Explicit

Private Sub Command1_Click()

Cls                     '清屏

Timer1.Interval = 1000  '等待1000毫秒（1秒）

Timer1.Enabled = True   '启动定时器

Do While Timer1.Enabled '循环等待，直到定时器Timer1停止

DoEvents            '等待期间防止窗体“凝滞”

Print "等待"        '提示

Loop

Cls                     '清屏

Print "继续执行"        '提示：等待结束

End Sub

Private Sub Timer1_Timer()

'定时到！停止定时器

Timer1.Enabled = False  

End Sub

vb中等待一段时间再继续执行后续命令用什么

1.使用Windows API函数Sleep

新建一个工程,添加一个TextBox控件和一个CommandButton控件,再将以下代码复制到代码窗口

'声明:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

Text1 = "sleep begin"

Sleep 3000 'ms

Text1 = "sleep end"

End Sub

按F5执行,按下Command1按钮,程序停止执行,3秒钟内不对用户的操作做出反应,并且Text1里的内容并没有发生改变.这是怎么回事呢?原来,Sleep函数功能是将调用它的进程挂起dwMilliseconds毫秒时间,在这段时间内,此进程不对用户操作做出反应,程序中虽然将Text1的Text属性改成Sleep begin,但还没等完成对屏幕的更新进程就被挂起了,对用户来说程序象是死机一样。所以这种方法虽然简单,但并不适用.

2.使用Timer()函数

这是用的最多的一种方法,也是在VB联机手册中所推荐的。添加一个CommandButton控件,再将以下代码添加到代码窗口中:

Private Sub Command2_Click()

Dim Savetime As Single

Text1 = "Timer begin"

Savetime = Timer '记下开始的时间

While Timer Savetime + 5 '循环等待

DoEvents '转让控制权，以便让操作系统处理其它的事件。

Wend

Text1 = "Timer ok"

End Sub

这种方法虽然也很简单,但却有有一个致命缺陷,那就是Timer函数返回的是从午夜开始到现在经过的秒数。所以Timer返回的最大值也只是60*60*24-1秒,如果从一天的23:59:58秒开始计时等待5秒,那么程序会永远地循环下去。要进行改良,就要加上判断是否又开始了新的一天,那岂不是太麻烦.下面给大家推荐另一个Windows API函数.

3.使用Windows API函数timeGetTime()

timeGetTime函数没有参数,返回值是从开机到现在所经历的毫秒数,这个毫秒数是非周期性递增的,所以不会出现Timer()函数出现的问题,而且这种方法的精确性高于上一种方法。添加一个CommandButton控件,再将以下代码添加到代码窗口中:

'声明

Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Sub Command3_Click()

Dim Savetime As Double

Text1 = "timeGetTime begin"

Savetime = timeGetTime '记下开始时的时间

While timeGetTime Savetime + 5000 '循环等待

DoEvents '转让控制权，以便让操作系统处理其它的事件。

Wend

Text1 = "timeGetTime end"

End Sub

按F5执行程序,按这几个按钮,您可以感受一下这几种方法的优劣.

VB.net2013中如何让for....next循环一次等待1秒(或多秒）再循环一次等1秒，直到循环结束。

Dim s As String = "123456789"

For i = 1 To Len(s)

TextBox1.Text = TextBox1.Text  Mid(s, i, 1)

System.Threading.Thread.Sleep(1000)

Application.DoEvents()

Next

当前标题：包含vb.net中等待时间的词条
当前URL：http://kswjz.com/article/dohdpsg.html