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

وعليكم السلام ورحمة الله وبركاته

الخاصية Sorted من النوع Boolean وليست من النوع SortOrder

لمعاملة العناصر على أنها تاريخ وقت الترتيب فأمامك عدة اختيارات

الاختيار الأول هو استخدام ListView بدلا من ListBox وكتابة فئة جديدة تستخدم الواجهة IComparer وتقوم هى بعملية المقارنة ثم إسناد نسخة جديدة منها للخاصية ListViewItemSorter

الاختيار الثانى هو عمل أداة جديدة ترث الأداة ListBox ثم إعادة توجيه/قيادة الإجراء Sort والذى يقوم بعملية الترتيب وترتيب العناصر كما تحب

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

هذا مثال على الاختيار الثالث

Public Class Form1

    Private Sub Sort(ByVal DateArray() As DateTime)
        Dim tmp As DateTime
        Dim newArray(DateArray.Length - 1) As DateTime
        For i As Integer = 0 To DateArray.Length - 1
            For j As Integer = 0 To DateArray.Length - 2
                If i <> j Then
                    If DateArray(j) > DateArray(i) Then
                        tmp = DateArray(i)
                        DateArray(i) = DateArray(j)
                        DateArray(j) = tmp
                    End If
                End If
            Next
        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim arrDates(8) As DateTime
        arrDates(0) = Today
        arrDates(1) = Today.AddDays(1)
        arrDates(2) = Today.AddDays(-2)
        arrDates(3) = Today.AddDays(2)
        arrDates(4) = Today.AddDays(-3)
        arrDates(5) = Today.AddMonths(1)
        arrDates(6) = Today.AddMonths(-2)
        arrDates(7) = Today.AddMonths(2)
        arrDates(8) = Today.AddMonths(-3)

        Sort(arrDates)

        lstFiles.DataSource = arrDates
    End Sub
End Class

استاذي الفاضل بارك الله فيك وشكرا على ردك المفصل

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

هذه الصورة قبل إضافة الكود

وهذه الصورة بعد إضافة الكود

ستجد حضرتك إن جميع التواريخ مضبوطة ومرتبة 100 % ولكن انظر إلى آخر تاريخ 24-10-2009 ستجده آخر تاريخ بالرغم من أنه لابد أن يكون آول تاريخ

وهذا هو الكود الذي استخدمته

        Dim mydir As String
        mydir = Dir(Application.StartupPath & "\backup\", vbDirectory)
        Do While mydir <> ""
            lstFiles.Items.Add(mydir)
            mydir = Dir()
            Dim arrDates(8) As DateTime
            arrDates(0) = Today
            arrDates(1) = Today.AddDays(1)
            arrDates(2) = Today.AddDays(-2)
            arrDates(3) = Today.AddDays(2)
            arrDates(4) = Today.AddDays(-3)
            arrDates(5) = Today.AddMonths(1)
            arrDates(6) = Today.AddMonths(-2)
            arrDates(7) = Today.AddMonths(2)
            arrDates(8) = Today.AddMonths(-3)
            Sort(arrDates)
        Loop

أرجو اطلاعي على الخطأ وجزيت خيرا ولو تكرمت وقدرت تدلني على طريقة اقدر بها ارتب التواريخ بهذا الشكل (يوم- شهر - سنة) أكون ممنون لك جدا جدا

والسلام عليكم ورحمة الله وبركاته

أخى الكريم لقد قمت بمراجعة الكود ولم أجد المشكلة

هل يمكنك رفع المجلد Backup بالمجلدات الفرعية حتى أتمكن من التجربة عليه؟

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

أخي الكريم مشكور جدا على حسن أخلاقك

لقد رفعت إليك البرنامج في الرابط التالي حيث أن حجمه كبير شويه أرجو التعديل عليه أو إعطائي فكرة الخطأ عندي وشكرا لك

Test.rar - 11.91MB

مع السلامة

مشرفي الجليل أتمنى يكون الملف تم تحميله عندك فلم ترد علي في حل لمشكلتي وجزاك الله خيرا

اتمنى أجد الحل فأنا تعودت على حل مشاكلي من خلال هذا المنتدى وشكرا

معذرة على التأخير فأنا لا أتواجد الجمعة والسبت على الإنترنت وبالأمس كنت فى أجازة فلم أتواجد أيضا

جارى التحميل...

الأرشيف لا يعمل...

ضع ملف نصى داخل أحد المجلدات واكتب فيه أى شئ حتى تعطى حجما للمجلد

أستاذي الكريم أعتذر جدا للتأخير فكان لدي مشكلة في تحميل البرنامج حاولت على أكثر من سيرفر ولكن النت كان عندي ضعيف

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

http://rapidshare.com/files/397451018/Test1.zip.html

Test1.zip - 12.7 Mb

http://www.uparab.com/files/KDDsrpqinE0VzLff.zip

في انتظار رد حضرتك ولو تكرمت إذا كان هناك امكانية عرض أسماء الملفات بهذا الشكل (يوم-شهر-سنه) بدلا من عرضها كما في المثال المرفق (شهر-يوم-سنه) أكون لك من الشاكرين

بارك الله فيك وربنا يزيدك من علمه

في انتظار التعديل وشكرا

استاذي الكريم سؤال فقط هل تم تحميل البرنامج من الروابط السابقة أم لا

أرجو المعذرة فأنا لم أقصد إزعاجك ولكن التأكد فقط من تحميل الملف لديك

وشكرا جزيلا

في انتظار الحل المناسب بإذن الله تعالى