IOrderedEnumerable到vb.net IOrderedEnumerable轉換

Question

Private Sub UpdateListBox(message As String) 
    Dim beeGroups As IOrderedEnumerable(Of IGrouping(Of BeeState, Bee)) = From beeGroup In From bee In Me.world.BeesGroup bee By bee.CurrentStateOrder By beeGroup.KeybeeGroup 
    Me.listBox1.Items.Clear() 

    For Each beeGroup As IGrouping(Of BeeState, Bee) In beeGroups 
     Dim s As String 
     s = If(beeGroup.Count() = 1, String.Empty, "s") 

     Me.listBox1.Items.Add(Convert.ToString(beeGroup.Key) & ": " & beeGroup.Count() & " bee" & s) 

     If beeGroup.Key <> BeeState.Idle OrElse beeGroup.Count() <> Me.world.Bees.Count() OrElse Me.framesRun <= 0 Then 
      Continue For 
     End If 

     Me.listBox1.Items.Add("Simulation ended: all bees are idle") 
     Me.toolStripButtonStartSimulation.Text = "Simulation ended." 
     Me.statusStrip1.Items(0).Text = "Simulation ended" 
     Me.timer1.Enabled = False 
    Next 
End Sub  

我絕對堅持這個錯誤在c#項目對vb.net轉換。

我知道c#它是這樣的

IOrderedEnumerable<IGrouping<BeeState, Bee>> beeGroups = from bee in this.world.Bees 
                   group bee by bee.CurrentState 
                   into beeGroup orderby beeGroup.Key select beeGroup;  

但一旦轉換成vb.net它試圖將狀態與最少數量的聲明在同一行的一切。

雖然也c#你可以逃脫 c#：

foreach (IGrouping<BeeState, Bee> beeGroup in beeGroups)  

vb.net試圖申報的語句中本身：

For Each group As var In beeGroups  

Answer 1

Private Sub UpdateListBox(message As String) 
    Dim beeGroups = From bee In Me.world.Bees 
        Group By bee.CurrentState Into beeGroup = Group 
        Order By beeGroup.Key 

    Me.listBox1.Items.Clear() 

    For Each beeGroup In beeGroups 
     Dim beeCount = beeGroup.Count ' to avoid reevaluation 
     Dim s = If(beeCount >= 1, String.Empty, "s") 

     Me.listBox1.Items.Add(Convert.ToString(beeGroup.Key) & ": " & beeCount & " bee" & s) 

     If beeGroup.Key <> BeeState.Idle OrElse beeCount <> Me.world.Bees.Count OrElse Me.framesRun <= 0 Then 
      Continue For 
     End If 

     Me.listBox1.Items.Add("Simulation ended: all bees are idle") 
     Me.toolStripButtonStartSimulation.Text = "Simulation ended." 
     Me.statusStrip1.Items(0).Text = "Simulation ended" 
     Me.timer1.Enabled = False 
    Next 
End Sub 

Answer 2

你 '對於每個'語句是正確的（C＃和VB版本都在循環頭文件中聲明迭代器變量），但是VB LINQ查詢應該是：

Dim beeGroups As IOrderedEnumerable(Of IGrouping(Of BeeState, Bee)) = From bee In Me.world.Bees 
                     Group bee By bee.CurrentState Into beeGroup = Group 
                     Order By CurrentState 
                     Select beeGroup 

或用戶選項推斷在：

Dim beeGroups = From bee In Me.world.Bees 
       Group bee By bee.CurrentState Into beeGroup = Group 
       Order By CurrentState 
       Select beeGroup