VB.NET中Time控件的应用.pdfVIP

维普资讯 科技信息 0计算机与信息技术0 SCIENCETECHNOLOGYINFORMATION 2007年 第35期 VB．NET中Time控件的应用 张秀爱 (菏泽学院计算机与信息工程系 山东 菏泽 2741O0) 摘【 要】在计算机系统中有三种定时器控件。当前线程启动事件forms．timer，临时线程处理事件 rimers．rimer，临时线程中调用指定的回调 函数 threading．rimer。本文主要主要探讨 了timerstimer计 时器的应用场合和使用技 巧。 关【键词】rime控件；Interval；属性 在计算机系统 中定时器有 3种。forms．timer,timers，timer，threading． Left=一6240(窗体宽度)，Label1．Left=0。这样可保证 La—bell的一部分 timer。第一种是在当前线程启动事件处理，第二种在事件发生时会启 “滚”出窗体，则 Label2的一部分就进入窗体。而形成循环滚动在窗体 动一临时线程处理事件 ，第三种在事件发生时在一临时线程 中调用指 中设置 Timer控件 。Timer控件的 Interval属性决定滚动的速度 ，单位 定 的回调函数 。 是毫秒。 VisualBasic提 供 一 个 Timer控 件 是 基 于 Windows消 息 例如，我们设置成 300，则每隔O_3秒滚动一次。 WM TIME的时钟脉冲发生器，VB编程过程 中，通过引发Timer事件 ， 然后，在Timer1一Timer()过程 中加入如下程序 ： _ Timer控件可以有规律地间隔一段时间执行一次代码，使我们可以将 PrivateSubTimerl-Timer() 其隐藏在系统 中，以某一时 问间隔触发相关程序 。Interval属性是 Label1．Eeft=Label1_Left+50 Timer控件最重要 的一个属性 ，它 以千分之一秒为单位指定Timer事 Label2．Left=Label2．Left+50 件之间的间隔。灵活地运用它可以取得很巧妙的效果 IfLabel1．Left=6240Then 1．利用 time控件制作秒表 Label1．Left=一6240 在 日常生活中，我们经常看到有人佩带电子表．每秒钟表盘上的 EndIf 数字更新一次。在 VB中我们可以设计如下 ： IfLabel2．Left=6240Then 在表中增加…个Timer控件(可在Components部分找到)，取名为 Label2．Left=6240 Timerl。将它的 Interval(时间间隔)属性设为 1000，Enabled属性设为 EndIf Ture。在表 中增加一个Label控件，取名为 IblDateTime．将它的Text属 EndSub 性设为 。设置如 图1，加入以下代码 ： 对 以上文字我们可以用 label控件 的Visible属性