Home
Up
BarRecords
Name
Status
SuperstructureMass
SuperstructureMassEpoxy
SubstructureMass
SubstructureMassEpoxy
OnBarRecordAdded
OnBarRecordChanged
OnBarRecrodRemoved
OnBarRecordsSorted
OnBarRecordMoved
OnGroupChanged

Group.OnBarRecordAdded

Fires when a bar record is added to this group

Syntax

handler_OnBarRecordAdded(newrecord)

Parameters

newrecord

The new bar record

Returns

None

Example

In this example, a message is displayed when a bar record is added to the 1st group in the barlist

Dim With Events group as Group
Set group = barlist.Groups(1)
...
Private Sub group_OnBarRecordAdded(ByVal newRecord as BarRecord)
   MsgBox "Mark " + newRecord.Mark + " was added"
End Sub

Copyright © 1999, Washington State Department of Transportation