我们通过循序渐进修改一个计时器的例子,来引出我们的委托

首先,运用我们之前学的知识,制作一个计时器,最简单有效的方法就是在窗体中添加一个timer控件,

如下图:

工具面板中的Timer控件

Timer 控件作为一个后台控件,通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码,

Timer 控件用于背景进程中，它是不可见的。

对于 Timer 控件以外的其它控件的多重选择，不能设置 Timer 的 Enabled 属性。

在运行于 Windows 95 或 Windows NT 下的 Visual Basic 5.0 中可以有多个活动的定时器控件，对此，实际上并没有什么限制。

补充:Timer控件通俗来说就是计时器,这是一个不可视控件.它的重要属性有Interval,Enabled.

它的Tick事件指的是每经过Interval属性指定的时间间隔时发生一次.

Timer控件的这些属性和事件我们要注意一下

属性:

• Interval : 代表事件的频率,以毫秒为单位
• Enabled : 启用timer控件

事件

• Tick : 每当经过指定的时间间隔时发生

所以,我们在这里给timer控件的interval属性设置1000(因为1000毫秒=1秒),完成后的窗体应该和我一样,见下图:

名为timer1的Timer控件

具体代码如下:

timer控件版计时器代码

效果如下:

好了,现在如果我们脱离timer控件.,该怎么去完成这样一个计时器, 不少朋友已经想到了,使用for循环,接下去我们把代码改一下.删掉timer控件,改完的代码如下:

使用for循环的计时器

眼尖的同学们肯定可以看到,这里的for循环会运行的非常快,从而导致一运行我们的主程序label的值将直接会变成60 ,所以我再将代码进行修改,在每次运行结束一次for循环的时候加一个线程休眠 ,修改完的代码如下:

加入了线程休眠的for循环计时器

我们运行看一下效果:

我们可以看到,当label变为1之后 , 窗体就未响应了,这是为什么,相信已经有同学想到了问题的原因, 这里的主线程也就是我们的主窗体,直到每次休眠结束才会继续进行,所以这里我们需要使用到另一个线程 , 同时加入委托.我们再次将代码进行修改

委托多线程计时器

这里我们可以看到我们又新建了个线程th作为后台线程去调用for循环,然后又用过invoke委托timechange方法,完美的完成了我们今天的需求,一起来看一下效果:

委托多线程计时器

效果已经很完美了, 这里需要注意的是 , 我把线程th的isBcakGround属性设置为了true,这个意思就是设置为后台线程 , 那有什么作用呢 , 如果不加这句话 , 我把程序运行起来再关闭 , 主线程结束了, 但线程th还在运行 , 并且会给label控件赋值 , 这样就会产生跨线程的问题, 所以这里必须把他的isbackground属性设置为true .

好今天的分享就到这里啦