0 
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と、最小限の宣言ですべてを 1 行で記述しようとします。

また、c#あなたは逃げることができます c#：

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

vb.net は、for ステートメントを自身の中で宣言しようとします。

For Each group As var In beeGroups
4

2 に答える 2

0

「For Each」ステートメントは正しいですが (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

または、ユーザー Option Infer On:

Dim beeGroups = From bee In Me.world.Bees
                Group bee By bee.CurrentState Into beeGroup = Group
                Order By CurrentState
                Select beeGroup
于 2015-06-08T15:11:50.463 に答える
0 
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
于 2015-06-08T15:10:12.810 に答える