ActiveX: SLAlarm
(Filename: SLALARM.OCX)
SLAlarm is an ActiveX component that lets you set multiple alarms,
that goes off at various times and dates. This general alarm control makes
it easy to schedule events.
Properties
|
Name |
Type |
Description |
|
Activated |
Boolean |
Activates or deactivates
the alarm control. If this property has the value False no
alarm events will be fired. If this property has the value True
alarm events will be fired if there is a match between the current
date and time and the scheduled date and time.
|
|
IgnoreDate |
Boolean |
If this property has
the value True, only the time of an added alarm will be used
- the date part will be ignored. If this property has the value
False both date and time must match before an alarm event
will be fired.
|
Events
|
Name |
Description |
|
Alarm |
This event occurs when
the alarm date and time is the same as current date and time. The
ID parameter contains the alarm identifier
of the fired alarm.
|
Methods
Add (DateTime As Date, ID As Integer)
As Boolean
Adds time and date to the internal list of scheduled
alarms. The date/time is specified by the
DateTime parameter. The ID parameter
can be used to set a unique identifier for an alarm and can be used
in the Alarm event to identify the
alarm.Clear
()
Removes all added date and times from the alarm control.
|
Example
The example below add two alarm times to the
SLAlarm
control. Both date and time
must be correct before an alarm event can be fired. When the condition is
true, the alarm is fired via the Alarm event.
Dim DT As Date
DT = "2009-07-28
17:00"
' Time 1
SLAlarm1.Add DT,
1
DT = "2009-07-28 19:00"
' Time 2
SLAlarm1.Add DT,
2
SLAlarm1.IgnoreDate = False
Private Sub SLAlarm1_Alarm(ByVal
ID As Integer)
MsgBox "Alarm number: " + CStr(ID), 0, "Alarm"
End Sub
< Go back
|
|
