Home
Up
Count
Item
Add
Move
MoveUp
MoveDown
Remove
OnBarRecordAdded
OnBarRecordChanged
OnBarRecordRemoved
OnBarRecordsSorted
OnBarRecordMoved
OnGroupAdded
OnGroupChanged
OnGroupRemoved
OnGroupMoved

GroupCollection.OnBarRecordAdded

Fires when a bar record is added to a group that is a member of this group collection

Syntax

handler_OnBarRecordAdded(group,newrecord)

Parameters

group

Group to which the bar record was added

newrecord

The new bar record

Returns

None

Example

In this example, a message is displayed when a bar record is added to the group collection

Dim With Events groups as GroupCollection
Set groups = barlist.Groups
...
Private Sub groups_OnBarRecordAdded(ByVal group as Group, ByVal newRecord as BarRecord)
   MsgBox "Mark " + newRecord.Mark + " was added to Group " + group.Name
End Sub

Copyright © 1999, Washington State Department of Transportation