[系统教程]VB 神童教程第二章第十三节——Timer 控件

楼主^#

更多发布于：2011-10-23 17:24

[] 1


	在 Windows 应用程序中常常要用到时间控制的功能，如在程序界面上显示当前时间，或者每隔多长时间触发一个事件，等等。而 Visual Basic 中的 Timer（时间）控制器就是专门解决这方面问题的控件。 Timer 控制器在工具箱面板上的图标如图一：图片：50_214_0e35d3752afb74d.gif 图一选中时钟控制器，将鼠标移到界面设计区，在窗体中拖出一个矩形就可以创建一个 Timer 控件了。跟其他控件不同的是，无论你绘制的矩形有多大，Timer 控件的大小都不会变，如图二：图片：50_214_da194c46e6ef8ca.gif 图二另外，Timer 控件只有在程序设计过程中看得见，在程序运行时是看不见的。一、Timer 控件的属性： Timer 控件可以使用 Name 属性与 Enabled 属性，但最重要的是 interval 即时间间隔属性。 Interval 属性决定了时钟事件之间的间隔，以毫秒为单位，取值范围为 0 ～ 65535 ，因此其最大时间间隔不能超过 65 秒，即一分钟多一点的时间。如果把 Interval 属性设置为 1000 ，则表示每秒钟触发一个 Timer 事件。其语法格式： Timer.Interval = X ，其中，X 代表具体的时间间隔。二、Timer 控件的 Timer （定时）事件：当一个 Timer 控件经过预定的时间间隔，将激发计时器的 Timer 事件。使用 Timer 事件可以完成许多实用功能，如显示系统时钟、制作动画，等等。三、示例：有如图三这样一个应用程序，标签能够自动显示当前时间。图片：50_214_74cdbc3f538ed8e.gif 图三 1、创建程序界面：界面如图四，为了便于大家观看，我们将 LblShow 的边界类型设为 1 。另外，别忘了把 Timer1 的 Interval 属性设置为 1000 。图片：50_214_c2eefd9e2698908.gif 图四 2、在 Timer1 的 Timer 事件中输入以下代码： Private Sub Timer1_Timer() LblShow.FontSize = 30 LblShow.FontName = "宋体" LblShow.Caption = "当前时间为：" ; Time End Sub 注意，Time 是 Visual Basic 中的关键詞，表示显示系统时间。