vb中timer实现简单延时功能

《vb中timer实现简单延时功能》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、Vb中用timer实现简单的延时执行的实例：本实例是一个非常简单的延时功能；实现的功能是：点击按钮后显示文字1，五秒后显示文字2。用这种方式有个好处，程序不会占过多的cup资源。1打开一个标准工程：2加入timer时钟控件、command按钮控件、text文本框控件：3设置timer1的属性Enabled为False；属性Interval值为1000：4进入代码编辑器添加代码如下：DimiPrivateSubCommand1_Click()i=5000'5000毫秒Print"显示文字1；5秒之后，显示文字2"Text1.Text=

2、Str(i)+"毫秒"Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()i=i-1000Text1.Text=Str(i)+"毫秒"'实时显示剩余的毫秒数If(i=0)ThenCallF1ExitSubEndIfEndSubFunctionF1()Timer1.Enabled=False'要执行的代码，比如：Print"显示文字2"EndFunction5保存，选一个你自己喜欢的文件夹；再点运行，效果如下：在某些特殊地方，比如：文本框输入时希望程序等输入完成后，再执行后面的动作，用这种

3、方式可以实现，已经测试成功。