BESMELLAH هذا الكود قمت به لتخزين معلومات
TO SAVE
open "c:/mair2003agenda.txt"for append as #1
print #1,text1.text
print#1,text2.text
close#1
TO OPEN INFORMATION
Open "C:Mair2003agenda.txt" For Input As #1
For i = 0 To 50
On Error GoTo 22
Input #1, x
Input #1, y
List1.AddItem x
Next
22 Close #1
On the list box
o = List1.ListIndex
Open "C:Mair2003agenda.txt" For Input As #1
For i = 0 To o
On Error GoTo 22
Input #1, x
Input #1, y
Text2.Text = y
Next
22 Close #1
BUT------------------>
أريد أن يتم ترتيب القائمة بالأبجدية
و الكود الخاص كي استطيع تغير احد المعلومات
I NEED HELP PLEASE
THANK FOR ALL(f)(f)(f)