Dim bucket New SortedDictionary(Of String, String) ()
Dim bucket New SortedDictionary(Of Integer, String) ()
Dim sl As New SortedList()
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
(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