VB中时钟控件的运用

定时器事件。通过触发

Timer

事件，时钟控 件可以有规律地隔一段时间执行一次代

码。时钟控件的常用属性有两个：

Enabled

用于设置

Timer

< br>控件是否响应

Timer

定时器事件。相当于启动或关闭 定时器的开关；

Int

erval

用于

返回或设置对

Timer

控件的定时器 事件调用周期的时间间隔。在某些情况下，通过设置

Interval

属性的值为非零或零，也可以起到启动或关

闭定时器的作用。时钟控件在设计时 出现在窗体中，而在程序运行阶段是不可见的，所以它的位置无关紧要。

?

时钟控件的属性和事 件在理解和掌握上不像标签、文本框、列表框等常用控件那么复杂，关键是如何灵活的运用它，使它的作用得以充

分地发挥，使

VB

程序在图形、动画设 计等方面得到更好地运行效果。时钟控件的应用很多，如与标签控件配合显示系统时钟、显示闪烁文

字，与图形控件配合显示动画效果，与绘图方法配合绘制图形，利用系统时钟进行计数、计时、倒计时 等等。下面结合几个例子来说明时钟

控件的运用。

?

1

．时钟应用

?

（

1

）计时 器

?

< /p>

首先在窗体上设置

1

个标签控件、

1

个时钟控件和

2

个 命令按钮。标签用来显示计时时间，时钟控件的作用是每隔

0.1

秒触发

1

次定时器

事件，

，命令按钮

1

用来设置开始和停止计时，命令按钮

2

用来设置 暂停和继续计时。程序如下：

?

Private Sub Command1_Click()

?

’

计时器开始

?

If n = “

开始

?

n = “

停止

?

= Timer

?

d = True

?

e = True

?

ElseIf n =“

停止

?

Comma

n = “

开始

?

d = False

?

e = False

?

End If

?

End Sub

?

Private Sub Command2_Click()

?

’

计时器暂停

?

If n = “

暂停

?

n = “

继续

?

d = False

?

Else

?

n =“

暂停

?

If n =

“00:00:00.0

n = Timer

?

’Timer

函数代表从午夜开始到现在经过的秒数。

?

d = True

?

End If

?

End Sub

?

Private Sub Form_Load()

?

e = False

?

n = “

开始

?

n = “

暂停

?

End Sub

?

Private Sub Timer1_Timer()

?

m = Timer -

?

’

计时器显示格式

?

n0 = (m * 10) Mod 10

?

m = Int(m)

?

n1 = Format(m Mod 60, “00.

?

n2 = Format((m

60) Mod 60, “00:

?

n3 = Format(m

3600, “00:

?

n = n3 & n2 & n1 & n0

?

End Sub

?

运行效果如图

1

?

〖

< br>BG(

〗〖

BHDWG48mm

，

WK70mmW

〗〖

BG)W

〗

?

（

2

）小闹 钟

?

< /p>

这个程序有两个功能，一是显示系统时间，二是闹钟。需在窗体上设置

2

个标签控件、

2

个时钟控件和< /p>

1

个命令按钮。标签

1

< br>用来显示

系统时间，标签

2

用来 提示

“

时间到！

”

，时钟

1

的作用是定时访问系统时钟，同时判断是否到响铃 时间，

Interval=1000

，时钟

2

的作用重复是

响铃，

Inter val=100

，命令按钮用来设置响铃时间和停止响铃。程序如下：

< br>?

Dim ds, n%

?

Private Sub Command1_Click()

?

With Command1

?

If .Caption = “

闹钟开

?

.Caption = “

闹钟停

?

ds = InputBox(“

请输入响铃时间

(hh:mm:ss):

?

Else

?

.Caption = “

闹钟开

?

d = False

?

e = False

?

End If

?

End With

?

End Sub

?

Private Sub Form_Load()

?

n = Time

?

e = False

?

n =“

闹钟开

?

End Sub

?

Private Sub Timer1_Timer()

?

n = Time

?

If n = ds Then

?

e = True

?

d = True

?

End If

?

End Sub

?

Private Sub Timer2_Timer()

?

Beep

?

End Sub

?

< br>运行效果如图

2

?