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

Fires when one of the "Quantities Not Included In This Barlist" items change

Syntax

handler_OnNotIncludedQuantitiesChanged()

Parameters

None

Returns

None

Example

In this example, a message is displayed when the "Quantities Not Included" change

Dim With Events barlist as Barlist
Set barlist = new Barlist
...
Private Sub barlist_OnNotIncludedQuantitiesChanged()
   Dim msg as String
   msg = "Quantities Not Included Changed"

   Dim tb as String
   tb = "Traffic Barrier = " + barlist.TrafficBarrierQuantity + " kg"

   Dim bgi as String
   bgi = "Bridge Grate Inlet = " + barlist.BridgeGrateInletQuantity + " kg"

   Dim rw as String
   rw = "Retaining Wall = " barlist.RetainingWallQuantity + " kg"

   Dim newline as String
   newline = Chr$(13) + Chr$(10)

   MsgBox msg + newline + tb + newline + bgi + newline + rw
End Sub

Copyright © 1999, Washington State Department of Transportation