[samira20]

السلام عليكم
لدي 2 ليست بوكس اريد ترتيبهما حسب ليست معينة
اليست الاولى نصية و الثانية اعداد و الترتيب حسب الاعداد تصاعدي
جزاكم الله خيرا

[مساعدة]

السلام عليكم

تفضلي الكود

كود :

Dim mSortedList As New SortedList(Of Integer, String)
For i = 0 To ListBox1.Items.Count - 1
    mSortedList.Add(ListBox1.Items(i), ListBox2.Items(i))
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
For i = 0 To mSortedList.Count - 1
    ListBox1.Items.Add(mSortedList.Keys(i))
    ListBox2.Items.Add(mSortedList.Values(i))
Next

[samira20]

جزاكم الله خيرا
ماهو الحجم الاعظمي للمصفوفة ؟

[مساعدة]

الحد الأقصى للمصفوفة هو أعلى قيمة لنوع البيانات Integer أي Integer.MaxValue
وتستطيعي معرفته بالكود

كود :

MsgBox( FormatNumber( Integer.MaxValue , 0) )

]

[samira20]

شكرا لكم
عدد عناصر الليست كبير و لا تستوعبه عناصر المصفوفة يعطي خطأ
ما الحل ؟

[مساعدة]

كم عدد عناصر المصفوفة التي تريدي التعامل معها؟

تستطيعي استغلال طريقة جدول قاعدة البيانات مثل DataTable

---

أداة الليست محدودة ولا ينفع وضع عناصر كثيرة فيه حتى لو ستوعبتها

---

ما هو الكود الذي استخدمتيه لإنشاء مصفوفة؟

[samira20]

المصفوفة هي التي لاتستوعب عناصر الليست
لا احتاج قاعدة البيانات الليست تكفي لانها وسيط للحل
شكرا على سعة صدركم