[Al Wilaya]

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

[ابراهيم ايبو]

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

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

[سامي محمد]

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

كود :

 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

[Al Wilaya]

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

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

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

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

[ابراهيم ايبو]

الحمد لله والشكر لله

ولك اخي الكريم

[Al Wilaya]

(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

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