Home
Up
BarData
BendType
Epoxy
Location
LumpSum
Mark
Mass
NumEach
NumReqd
PrimaryBend
Size
Status
StatusMessages
Substructure
Use
Varies
VariesBend
OnBarRecordChanged

BarRecord.StatusMessages

Returns the StatusMessage collection

Syntax

statusMsgs = barrecord.StatusMessages

Parameters

None

Returns

Object.  Returns a StatusMessageCollection object.

Example

This example displays the status messages for this bar record.  Note that the status messages aren't displayed for the PrimaryBend of VariesBend objects

Dim statusMsgs As StatusMessageCollection
Set statusMsgs = barrecord.StatusMessages
Dim statusMsg As StatusMessage
For Each statusMsg In statusMsgs
   MsgBox FormatStatusMessage(statusMsg)
Next

 

Copyright © 1999, Washington State Department of Transportation