Imports System.Collections.ObjectModel

Public Structure IdNameStruct

   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

   Sub New(Id As Integer, Name As String)
      m_Id = Id
      m_Name = Name
   End Sub

   Public Overrides Function ToString() As String
      Return Name
   End Function

   Public Shared Function IndFromId(Id As Integer, List As ObservableCollection(Of IdNameStruct)) As Integer
      For i = 0 To List.Count - 1
         If List(i).Id = Id Then Return i
      Next
      Return 0
   End Function

   Public Shared Function IdFromInd(Ind As Integer, List As ObservableCollection(Of IdNameStruct)) As Integer
      Return List(Ind).Id
   End Function

End Structure