Public Class NoteListBoxItem
   Inherits VMBase

#Region "FIELD & PROPERTIES"

   Private WithEvents m_IsModified As MachiningTreeViewItem

   ' Indice dei valori nel file Note.ini
   Friend m_Id As Integer
   Public Property Id As Integer
      Get
         Return m_Id
      End Get
      Set(value As Integer)
         m_Id = value
      End Set
   End Property

   ' Tipo del valore che può essere b = boolean, d = double, l=lenght
   Friend m_Type As String
   Public Property Type As String
      Get
         Return m_Type
      End Get
      Set(value As String)
         m_Type = value
      End Set
   End Property

   ' Descrizione 
   Friend m_Description As String
   Public Property Description As String
      Get
         Return m_Description
      End Get
      Set(value As String)
         m_Description = value
      End Set
   End Property

   Public m_IsModifiedValue As Boolean = False
   Public Property IsModifiedValue As Boolean
      Get
         Return m_IsModifiedValue
      End Get
      Set(value As Boolean)
         m_IsModifiedValue = value
         NotifyPropertyChanged(NameOf(IsModifiedValue))
      End Set
   End Property

   ' Valore di default 0
   Friend m_Value As String
   Public Property Value As String
      Get
         Return m_Value
      End Get
      Set(value As String)
         m_IsModifiedValue = True
         NotifyPropertyChanged(NameOf(IsModifiedValue))
         m_Value = value
         LibMap.refMachiningTreeViewItem.IsModifiedNote(Me)
      End Set
   End Property

   ' Indice di selezione del tab per la scelta grafica se 0 viene mostrata la textbox se 1 la combobox
   Friend m_SelTypeValue As Integer = 0
   Public Property SelTypeValue As Integer
      Get
         Return m_SelTypeValue
      End Get
      Set(value As Integer)
         m_SelTypeValue = value
      End Set
   End Property

   ' Comandi
   Private m_cmdRemoveNoteItem As ICommand

#End Region    ' Fields & Properties

#Region "CONSTRUCTOR"

   Sub New(Id As Integer, Type As String, Description As String, Value As String)
      m_Id = Id
      m_Type = Type
      m_Description = Description
      m_Value = Value
   End Sub

#End Region    ' Constructor

#Region "COMMANDS"

#Region "RemoveItemNoteCommand"

   Public ReadOnly Property RemoveItemNoteCommand As ICommand
      Get
         If m_cmdRemoveNoteItem Is Nothing Then
            m_cmdRemoveNoteItem = New Command(AddressOf RemoveItemNote)
         End If
         Return m_cmdRemoveNoteItem
      End Get
   End Property

   Public Sub RemoveItemNote(ByVal param As Object)
      LibMap.refMachiningTreeViewItem.RemoveNote(Me)
   End Sub

#End Region    ' RemoveItemNoteCommand

#End Region    ' Commands

   Private Function IsModified() As Boolean Handles m_IsModified.m_IsModified
      Return LibMap.refMachiningTreeViewItem.IsModified()
   End Function

End Class