Visual Basic提供个Timer控件,其本质上是个具有间隔时间设置所触发的时间程序,使我们可以将其隐藏在系统中,以某时间间隔触发相关程序。灵活地运用它可以取得很巧妙的效果。下面,我们举个例子。
我们可以在界面设计中设计出这样种效果:行文字在窗体中自左向右逐渐波动,从右边“滚”出窗体的文字,又在左边逐渐出现。如此循环下去。类似电视上的滚动信息。这样可使你设计的软件显得很生动,极易引起用户的兴趣。其实,使用Visual Basic的Timer控件就可很容易地实现它。
首先,我们在窗体中设置两个Label控件Label1、Label2。这两个控件中除Left属性外,其他属性设置成完全样。这主要是为了实现循环滚动的效果。它们的Caption属性设置为要滚动显示的文字。另外再调整好其字体、大小和颜色等。在Form_load过程中设置Label2.left=-6240(窗体宽度),Label1.left=0。这样可保证Label1的部分“滚”出窗体,则Label2的部分就进入窗体。而形成循环滚动在窗体中设置Timer控件。Timer控件的Interval属性决定滚动的速度,单位是毫秒。例如,我们设置成300,则每隔0.3秒滚动次。然后,在Timer1_Timer()过程中加入如下程序:
private sub Timer1_Timer()
Label1.left=Label1.left+50
Label2.left=Label2.left+50
if Label1.left>=6240 then
Label1.left=_6240
end if
if Label2.left>=6240 then
Label2.left=6240
end if
end sub
滚动效果就形成了,感兴趣的读者可以试试看。只要灵活运用Timer控件,我们还可以设计出更有趣的效果。如用Timer控件控制按钮控件的Visible属性,形成闪烁按钮。用Timer控件控制显示不同的图像,形成简单的动画。