|
Home
Up
Groups
TrafficBarrierQuantity
BridgeGrateInletQuantity
RetainingWallQuantity
SuperstructureMass
SuperstructureMassEpoxy
SubstructureMass
SubstructureMassEpoxy
Status
Project
JobNumber
Engineer
Company
Comments
OnBarRecordAdded
OnBarRecordChanged
OnBarRecordRemoved
OnBarRecordsSorted
OnBarRecordMoved
OnGroupAdded
OnGroupChanged
OnGroupRemoved
OnGroupMoved
OnNotIncludedQuantitiesChanged
| |
Barlist.OnBarRecordAdded
Fires when a bar record is added to a group that is a member
of this barlist
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 barlist.
Dim With Events barlist as Barlist
Set barlist = new Barlist
...
Private Sub barlist_OnBarRecordAdded(ByVal group as Group, ByVal newRecord as
BarRecord)
MsgBox "Mark " + newRecord.Mark + " was added to Group
" + group.Name
End Sub
|