VB.net計數列表框中特定項目的倍數

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