Public Property ValueLeft As Boolean Get Return (Value = ValueOfLeftPosition) End Get Set(value As Boolean) ' If Me.Value <> ValueOfLeftPosition Then If value Then Me.Value = ValueOfLeftPosition ElseIf Not ValueRight Then Me.Value = ValueOfCenterPosition End If 'm_ValueLeft = value ' End If End Set End Property 'Private m_ValueRight As Boolean Public Property ValueRight As Boolean Get Return (Value = ValueOfRightPosition) End Get Set(value As Boolean) ' If Me.Value <> ValueOfRightPosition Then If value Then Me.Value = ValueOfRightPosition ElseIf Not ValueLeft Then Me.Value = ValueOfCenterPosition End If 'm_ValueRight = value ' End If End Set End Property
'***************************************** '* Property - Address in PLC to Link to '***************************************** Private m_PLCAddressClickLeft As String = "" <System.ComponentModel.Category("PLC Properties")> _ Public Property PLCAddressClickLeft() As String Get Return m_PLCAddressClickLeft End Get Set(ByVal value As String) If m_PLCAddressClickLeft <> value Then m_PLCAddressClickLeft = value '* When address is changed, re-subscribe to new address SubscribeToComDriver() End If End Set End Property '***************************************** '* Property - Address in PLC to Link to '***************************************** Private m_PLCAddressClickRight As String = "" <System.ComponentModel.Category("PLC Properties")> _ Public Property PLCAddressClickRight() As String Get Return m_PLCAddressClickRight End Get Set(ByVal value As String) If m_PLCAddressClickRight <> value Then m_PLCAddressClickRight = value '* When address is changed, re-subscribe to new address SubscribeToComDriver() End If End Set End Property