10-03-17, 05:26 PM
السلام عليكم ورحمة الله وبركاته
بعد الصلاه على سيدنا محمد
صلى الله عليه وسلم
لاصحاب الخبرة والمعرفة
اريد كود لترتيب الاسماء
داخل اللست بوكس
وشكراً
انا قد اجتهدت وزبطت معي والحمد لله
الكود هوا
كود :
ListBox1.Sorted = True
ListBox1.Sorted = True
ListBox1.Sorted = False
Dim i As Integer
Dim count = ListBox1.Items.Count
For i = ListBox1.Items.Count - 1 To 0 Step -1
ListBox1.Items.Add(ListBox1.Items(i))
Next
For i = 0 To count - 1
ListBox1.Items.RemoveAt(ListBox1.SelectedItem)
Next