VB.net Count умножает конкретные элементы в списке

Question

Я несколько раз просматривал интернет в течение нескольких часов и не нашел ничего, что могло бы помочь мне в моей ситуации, которая, по моему мнению, является довольно распространенной.

Я хотел был бы подсчитать конкретные пункты в моем списке и узнать, сколько их есть. Я хочу присвоить это значение переменной. Я думаю, что большинство из них покрыто, но я не могу заставить код работать.

Чтобы объяснить, я хочу что-то там, где оно подсчитывает, сколько «чесночного хлеба» у меня есть в списке, а затем назначить его переменной «item1» и т. Д. Для всех предметов.

Приветствия

Answer 1

Public Class MyListItem 
    Public Sub New(id As Integer, name As String) 
     LiId = id 
     LiName = name 
    End Sub 

    Public LiId As Integer 
    Public LiName As String 
End Class 

Private Sub Test() 
    Dim listbox2 As New ListBox() 

    Dim list As New List(Of MyListItem)() 
    list.Add(New MyListItem(1, "a")) 
    list.Add(New MyListItem(2, "a")) 
    list.Add(New MyListItem(3, "b")) 
    list.Add(New MyListItem(4, "c")) 
    listbox2.DataSource = list 
    listbox2.ValueMember = "LiId" 
    listbox2.DisplayMember = "LiName" 

    Dim countOfA = Aggregate itm In DirectCast(listbox2.DataSource, List(Of MyListItem)) 
      Where itm.LiName = "a" 
      Into Sum(1) 


End Sub 

Результат: countOfA = 2