مهم وارجو من الاخوه الحل

المساعده من الاخوه العضاء

بسم الله الرحمن الرحيم

السلام عليكم ورحمه الله وبركاتو

الاخوه الاعضاء؟؟؟؟؟؟؟؟؟

الاخوه المشرفين؟؟؟؟؟؟؟؟؟

هذا اول برنامج لى بفضل مساعدتكم لى واكتساب الخبره منكم

ولكن المشروع متوقف بسبب كود بسيط بالنسبه لكم والعكس لى

وقد عمل المشروع ولم ينقص الى

لقد صممت المشروع بحيث يحفظ البيانات فى ملف خاص بالبرنامج

والمشكله كيف اقوم بحفظ ما بداخل الMSFlexGrid1 فى ملف له امداد خاص بالبرنامج وعند الضغط على اللف يقوم بوضع البيانات كما كانت عليه

عملت تجربه مع التكست ونجحت ولكن كيف تكو الطريقه مع الMSFlexGrid1

حاولت بهذا الكود Public Sub SaveFile()

Dim F As Integer

Dim S As String

If mNewFile And (Changed Or mFileName = "") Then

dlg.FileName = ""

dlg.ShowSave

If dlg.FileName = "" Then Exit Sub

mFileName = dlg.FileName

End If

If Dir(mFileName) <> "" Then Kill mFileName

F = FreeFile

S = txt.TabIndex

Open mFileName For Binary As F

Put F, 1, S

Close F

Form1.Caption = GetFileName(mFileName)

Changed = False

End Sub

Public Sub OpenFile(Optional FileName)

Dim S As String

Dim F As Integer

SaveChanges

If IsMissing(FileName) Then

dlg.FileName = ""

dlg.ShowOpen

If dlg.FileName = "" Then Exit Sub

mFileName = dlg.FileName

Else

If Dir(FileName) = "" Then

MsgBox "åÐÇ ÇáãáÝ ÛíÑ ãæÌæÏ ÇÕáÇð Çæ íÍÊãá Çä íßæä ãÚØæÈÇð"

Exit Sub

End If

mFileName = FileName

End If

F = FreeFile

Open mFileName For Binary As F

S = Space(LOF(F))

Get F, , S

Close F

txt.AddItem S

mNewFile = False

Changed = False

Form1.Caption = GetFileName(mFileName)

End Sub

على العلم انtxt هى الMSFlexGrid1

فارجو من اهل العلم والمعرفه الافاده

ولكم جذير الشكر