User manual

FieldMaxII-TO User Manual
48
Private Sub IFM2DeviceEvents_DisplayZeroDeviceProgressToClient()
‘Steer the m_CallbackMessage string and
‘m_ZeroDeviceTimeoutCounter integer to the appropriate
‘application code error handler
End Sub
‘Read/write properties
Private Property Let IFM2DeviceEvents_CallbackEvent( _
ByVal RHS As String)
m_CallbackEvent = RHS
End Property
Private Property Get IFM2DeviceEvents_CallbackEvent() As String
IFM2DeviceEvents_CallbackEvent = m_CallbackEvent
End Property
Private Property Let IFM2DeviceEvents_CallbackMessage( _
ByVal RHS As String)
m_CallbackMessage = RHS
End Property
Private Property Get IFM2DeviceEvents_CallbackMessage() As String
IFM2DeviceEvents_CallbackMessage = m_CallbackMessage
End Property
Private Property Let IFM2DeviceEvents_DeviceIndex( _
ByVal RHS As Integer)
m_DeviceIndex = RHS
End Property
Private Property Get IFM2DeviceEvents_DeviceIndex() As Integer
IFM2DeviceEvents_DeviceIndex = m_DeviceIndex
End Property
Private Property Let IFM2DeviceEvents_SerialNumber( _
ByVal RHS As String)
m_SerialNumber = RHS
End Property
Private Property Get IFM2DeviceEvents_SerialNumber() As String
IFM2DeviceEvents_SerialNumber = m_SerialNumber
End Property
‘Write only properties