Example 6 - Accessing alarms |
|
Manual -> VBA -> Examples -> Example 6 - Accessing alarms |
   Show
all  Hide
all |
Example 6 - Accessing alarms |
|
Manual -> VBA -> Examples -> Example 6 - Accessing alarms |
| Show
all Hide
all |
Description:
In the form frmAlarm an alarm from the memory can be selected in a combobox. After the selection all data of the alalm are written to the textboxes below (group, class, variable, ...).
We use an event independent macro to display frmAlarm, because we do not link it to an element.
Sub
Alarm ()
frmAlarm.Show
End Sub
'The macro is executed with the function Execute macro.
'On opening
the form it is initialized and so the following procedure is
executed. This procedure cares, that all alarms in the memory are
written to the combobox in the form.
Private Sub UserForm _
Initialize ()
'fill combobox with all
AlarmItems
Dim i As Integer
Dim obAlarmItems As AlarmItems
Dim obAlarm As Alarm
Set obAlarm =
thisProject.Alarm
Set obAlarmItems =
obAlarm.AlarmItems (*)
If obAlarmItems.Count = 0
Then
MsgBox (# Alarms = 0 )
Exit Sub
End If
For i = 0 To obAlarmItems.Count - 1
cmbAlarmItems.AddItem obAlarmItems.Item ( i ). Name
Next i
txtAktiv.Text = obAlarm.Aktiv
cmbAlarmItems.Text = cmbAlarmItems.List ( 0 )
End Sub
'Wenn nun
ein Alarm aus der Combobox ausgewählt wird reagiert das Change -
Ereigniss der Combobox.
Private Sub cmbAlarmItems _
Change ()
'put actual properties from
AlarmItem in textboxes
Dim obAlarmItems As AlarmItems
Dim obAlar As Alarm
Set obAlarm =
thisProject.Alarm
Set obAlarmItems =
obAlarm.AlarmItems (*)
txtComputer.Text = obAlarmItems.Item ( cmbAlarmItems.ListIndex
).Computer
txtCountreactivated.Text = obAlarmItems.Item (
cmbAlarmItems.ListIndex ).Countreactivated
txtName.Text = obAlarmItems.Item ( cmbAlarmItems.ListIndex ).
Name
txtProjectname.Text = obAlarmItems.Item ( cmbAlarmItems.ListIndex
).Projectname
txtStatus.Text = obAlarmItems.Item ( cmbAlarmItems.ListIndex
).Status
txtStatusreactivated.Text = obAlarmItems.Item (
cmbAlarmItems.ListIndex ).Statusreactivated
txtTagname.Text = obAlarmItems.Item ( cmbAlarmItems.ListIndex
).Tagname
txtTimecomes.Text = obAlarmItems.Item ( cmbAlarmItems.ListIndex
).Timecomes
txtTimegoes.Text = obAlarmItems.Item ( cmbAlarmItems.ListIndex
).Timegoes
txtTimequitted.Text = obAlarmItems.Item ( cmbAlarmItems.ListIndex
).Timequitted
txtTimereactivated.Text = obAlarmItems.Item (
cmbAlarmItems.ListIndex ).Timereactivated
txtUser.Text = obAlarmItems.Item ( cmbAlarmItems.ListIndex
).User
txtUsertext.Text = obAlarmItems.Item ( cmbAlarmItems.ListIndex
).Usertext
txtValue.Text = obAlarmItems.Item ( cmbAlarmItems.ListIndex
).Value
tbGroup.Text = obAlarmItems.Item ( cmbAlarmItems.ListIndex
).AlarmGroup
tbClass.Text = obAlarmItems.Item ( cmbAlarmItems.ListIndex
).AlarmClass
End Sub
