ترتيب قيم تصاعديا

يا عظيم  يا رحمن يا رحيم أسألك بكل اسم هو لك سميت به نفسك او أنزلته في كتابك او علمته احد من خلقك او استأثرت به في علم الغيب وحدك أن تلطف بأخوتنا في سوريا وتهبهم يقينا يهون  به عليهم مصائب الدنيا وتعجل بنصرهم فانه لايعجزك.

السلام عليكم

في حدث الزر الذي سيتم الضغط عليه ضع الكود التالي :

 Dim lstTexts1 As New List(Of TextBox)
        Dim lstTexts2 As New List(Of TextBox)
' نضع القائمة الاولى من مربعات النص 1من  الى 7
        lstTexts1.Add(TextBox1)
        lstTexts1.Add(TextBox2)

' نضع القائمة الثانية من مربعات النص من 1 الى 7 التي سيتم نقل الاعداد اليها
        lstTexts2.Add(TextBox3)
        lstTexts2.Add(TextBox4)
'  نقوم بترتيب القائمة تنازليا حسب الارقام
        Dim lst = (From pp In lstTexts1 Order By Integer.Parse(pp.Text) Descending Select pp).ToList
'  نقوم بنقل الارقام بعد الترتيب من القائمة الاولى الى الثانية

        For index As Integer = 0 To lst.Count - 1
            lstTexts2(index).Text = lst(index).Text
        Next

طبعا هذا جزء من الحل لكن يمكن تطبيقه على بقية المطلوب بنفس الطريقة.

السلام عليم

أخي الكريم حاولت في ايجاد الكود لكن لم افلح

يقوم بنرتيب خمس ارقام فقط

هذا مثال على ذلك

http://www.7ozn.com/do.php?filename=01_06_2012_2ae313385024211.rar

ايضا اخي الكريم انه ينقل اسم الليبل فوق اسم التكست مثال اذا كان اكبر رقم موجود في التكسن خمسة

عندتريبه تتازليا اصبح في التكست الاول الليبل الذي فوقه يكتب فيه اسم التكست وهو خمسة

اتمنى قدرت اوضح الفكرة

جزاك الله خيرأ

المفروض في lstTexts1 ان تضعي القائمة الاولى من مربعات النص وفي الثانية القائمة الثانية لكنك لم تعملي ذلك وانما اضفت القائمة الاولى لجميع القوائم اي lstTexts1 و lstTexts2 و lstTexts3 تحتوي على نفس مربعات النص

جزاكم الله خيرا تم التوصل للحل