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
I'm absolutely stuck at this error in the conversion of a c#
project to vb.net
.
I know in c#
it goes like this
IOrderedEnumerable<IGrouping<BeeState, Bee>> beeGroups = from bee in this.world.Bees
group bee by bee.CurrentState
into beeGroup orderby beeGroup.Key select beeGroup;
But once converted into vb.net
it tries to state everything on one line with the fewest amount of declarations.
While also in c#
you can get away with
c#
:
foreach (IGrouping<BeeState, Bee> beeGroup in beeGroups)
vb.net tries to declare the for statement within itself:
For Each group As var In beeGroups