Get only distinct makes

     
Public Class Car
  Public PetName As String = String.Empty
  Public Color As String = String.Empty
  Public Speed As Integer
  Public Make As String = String.Empty

  Public Overloads Overrides Function ToString() As String
    Return String.Format("Make={0}, Color={1}, Speed={2}, PetName={3}", Make, Color, Speed, PetName)
  End Function
End Class

Module Program
  Sub Main()
    Dim myCars As New List(Of Car)(New Car() { _
    New Car With {.PetName = "D", .Color = "Silver", .Speed = 100, .Make = "BMW"}, _
    New Car With {.PetName = "C", .Color = "Tan", .Speed = 90, .Make = "BMW"}, _
    New Car With {.PetName = "B", .Color = "Rust", .Speed = 5, .Make = "Yugo"}, _
    New Car With {.PetName = "A", .Color = "White", .Speed = 43, .Make = "Ford"}})

    Dim makes = From c In myCars Select c.Make Distinct
    For Each m In makes
      Console.WriteLine("Make: {0}", m)
    Next
  End Sub
End Module

Related examples in the same category

1.	Distinct result
2.	Distinct with Key
3.	uses Distinct to find the unique Category names
4.	Distinct with Object and IEqualityComparer

Get only distinct makes : Distinct « LINQ « VB.Net

Related examples in the same category