(11-07-17, 07:41 PM)mstfa1991 كتب : حسب طلبك لا ينفع استخدام Dictionary أو SortedDictionary لأنها تعتمد على Key والذي لا يقبل تكرار قيمة، بمعنى يرفض أن تضع فيه قيمة مشابهة

جرب الكود

PHP كود :

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim Items As New List(Of Item)

        Items.Add(New Item With {.Price = Val(TextBox1.Text), .Company = TextBox2.Text})
        Items.Add(New Item With {.Price = Val(TextBox3.Text), .Company = TextBox4.Text})
        Items.Add(New Item With {.Price = Val(TextBox5.Text), .Company = TextBox6.Text})
        Items.Add(New Item With {.Price = Val(TextBox7.Text), .Company = TextBox8.Text})

        Dim SortedItems As List(Of Item) = Items.OrderByDescending(Function(item) item.Price).ThenBy(Function(item) item.Company).ToList

        TextBox1.Text = SortedItems(0).Price
        TextBox2.Text = SortedItems(0).Company

        TextBox3.Text = SortedItems(1).Price
        TextBox4.Text = SortedItems(1).Company

        TextBox5.Text = SortedItems(2).Price
        TextBox6.Text = SortedItems(2).Company

        TextBox7.Text = SortedItems(3).Price
        TextBox8.Text = SortedItems(3).Company

    End Sub

    Private Class Item
        Public Company As String
        Public Price As Single
    End Class 


تم استخدام OrderByDescending للترتيب الأول وThenByوليس ThenByDescending للترتيب التالي لأننا نرتيب ترتيب حسب الأبجدية لأسماء الشركات في حال تشابة قيمتها
Descending هي للترتيب الكبير للصغير وThenBy هي اختيارية

في النهاية نحول النتيجة الى ToList لأن المتغير نوعه List Of