Imports EgtUILib

Public Class OperationListBoxItem

   Private 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

   Private m_Name As String
   Public Property Name As String
      Get
         Return m_Name
      End Get
      Set(value As String)
         m_Name = value
      End Set
   End Property

   Private m_Image As String
   Public Property Image As String
      Get
         Return m_Image
      End Get
      Set(value As String)
         m_Image = value
      End Set
   End Property

   Private m_Tool As String
   Public Property Tool As String
      Get
         Return m_Tool
      End Get
      Set(value As String)
         m_Tool = value
      End Set
   End Property

   Sub New(Id As Integer, Name As String, Type As Integer, Tool As String)
      Me.Id = Id
      Me.Name = Name
      Me.Image = ConvertTypeToImage(Type)
      Me.Tool = Tool
   End Sub

   Private Function ConvertTypeToImage(Type As Integer) As String
      Select Type
         Case MCH_OY.DISP
            Return ""
         Case MCH_OY.DRILLING
            Return ""
         Case MCH_OY.SAWING
            Return ""
         Case MCH_OY.MILLING
            Return ""
         Case MCH_OY.POCKETING
            Return ""
         Case MCH_OY.MORTISING
            Return ""
         Case MCH_OY.SAWROUGHING
            Return ""
         Case MCH_OY.SAWFINISHING
            Return ""
         Case Else
            Return String.Empty
      End Select
   End Function

End Class