منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] سؤال حول فرز البيانات في Combobox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] سؤال حول فرز البيانات في Combobox (/showthread.php?tid=30222)

سؤال حول فرز البيانات في Combobox - Al Wilaya - 09-07-19

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

RE: سؤال حول فرز البيانات في Combobox - ابراهيم ايبو - 09-07-19

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


RE: سؤال حول فرز البيانات في Combobox - سامي محمد - 10-07-19

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

كود :
 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


RE: سؤال حول فرز البيانات في Combobox - Al Wilaya - 11-07-19

(09-07-19, 10:40 PM)ابراهيم ايبو كتب :
السلام عليكم اخي الكريم
هذا مثال يقوم بترتيب العناصر الموجودة في الكومبو بوكس ابجديا تصاعديا او تنازليا

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

RE: سؤال حول فرز البيانات في Combobox - ابراهيم ايبو - 11-07-19

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


RE: سؤال حول فرز البيانات في Combobox - Al Wilaya - 11-07-19

(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

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