打印本文 打印本文  关闭窗口 关闭窗口  
巧用VisualBasic的Timer控件
作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:47:53  文章录入：杜斌  责任编辑：杜斌
Visual Basic提供一个Timer控件，其本质上是一个具有间隔时间设置所触发的时间程序，使我们可以将其隐藏在系统中，以某一时间间隔触发相关程序。灵活地运用它可以取得很巧妙的效果。 
下面，我们举一个例子。 
我们可以在界面设计中设计出这样一种效果：一行文字在窗体中自左向右逐渐滚动，从右边“滚”出窗体的文字，又在左边逐渐出现。如此循环下去。类似电视上的滚动信息。这样可使你设计的软件显得很生动，极易引起用户的兴趣 。其实，使用Visual Basic的Timer控件就可很容易地实现它。 
首先，我们在窗体中设置两个Label控件Label1、Label2。这两个控件中除Left属性外，其他属性设置成完全一样。这主要是为了实现循环滚动的效果。它们的Caption属性设置为要滚动显示的文字。另外再调整好其字体、大小和颜色等。在Form－Load过程中设置Label2．Left＝－6240（窗体宽度），Label1．Left＝0。这样可保证Label1的一部分“滚”出窗体，则Label2的一部分就进入窗体。而形成循环滚动在窗体中设置?/FONT>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控件控制显示不同的图象，形成简单的动画。
打印本文 打印本文  关闭窗口 关闭窗口