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.OnGroupAdded

Fires when a group is added to this barlist

Syntax

handler_OnGroupAdded(newgroup)

Parameters

newgroup

The new group

Returns

None

Example

In this example, a message is displayed when a group is added to the barlist.

Dim With Events barlist as Barlist
Set barlist = new Barlist
...
Private Sub barlist_OnGroupAdded(ByVal group as Group)
   MsgBox "Group " + group.Name + " was added"
End Sub

 

Copyright © 1999, Washington State Department of Transportation