منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته
لدي سؤال حول فرز البيانات في Combobox
بعد إستدعاء بيانات حقل من جدول إكسس وتعبئتها في Combobox أريد فرزها من (أ) إلى (ي) مرة وبالعكس مرة أخرى
الكود في فيجوال بيسك 2010 (vb.net)
أرجو المساعدة بتزويدي بالكود مشكورين

أيضا هذه طريقة آخر بالإضافة إلى طريقة الاستاذ إبراهيم

(09-07-19, 10:40 PM)ابراهيم ايبو كتب : [ -> ]

السلام عليكم اخي الكريم

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

بارك الله بكم أخي الكريم هذا ما كنت أبحث عنه وجزاكم الله خير الجزاء

(10-07-19, 01:40 AM)سامي محمد كتب : [ -> ]أيضا هذه طريقة آخر بالإضافة إلى طريقة الاستاذ إبراهيم

كود :

 Dim Ls As New ArrayList
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ComboBox1.Items.Clear()
        For x As Integer = 0 To Ls.Count - 1
            ComboBox1.Items.Add(Ls(x))
        Next
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.Items.AddRange({"محمد", "أحمد", "باسم", "يارا"})
        Ls.AddRange(ComboBox1.Items)
        Ls.Sort()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ComboBox1.Items.Clear()
        For x As Integer = Ls.Count - 1 To 0 Step -1
            ComboBox1.Items.Add(Ls(x))
        Next
    End Sub

بارك الله بكم أخي الكريم وهذا أيضا ما كنت أبحث عنه جزاكم الله خير الجزاء