التعامل مع المفكرة

بسم الله :

أخي الكريم "hajahmed" إليك الكود المعدل وقد جربته :

زر الكتابة في النص :

Private Sub Command1_Click()

APPPATH = App.Path & "TEST.TXT"

f = FreeFile

Open APPPATH For Output As #f

Print #f, Text1.Text

Close #f

End Sub

زر القراءة من النص :

Private Sub Command2_Click() 

Dim M As String

f = FreeFile

Open App.Path & "test.txt" For Input As #f

Text1.Text = Input(LOF(f), f)



Close f





End Sub

'

مسح الكتابة المكتوبة في الملف

Private Sub Command3_Click() 



APPPATH = App.Path & "TEST.TXT"

f = FreeFile

Open APPPATH For Output As #f

Print #f, ""

Close #f

End Sub

الكتابة في مربع النص ثم الحفظ :

Private Sub Command5_Click()

Text1.Text = "بسم الله ألرحمن الرحيم"

APPPATH = App.Path & "TEST.TXT"

f = FreeFile

Open APPPATH For Output As #f

Print #f, Text1.Text

Close #f

End Sub

اما حفظ صورة في المفكرة فلم أفهم قصدك ....

والسلام عليكم

(gift)(f)

أخي الكريم الورد الظاهرة خلال كود

زر القراءة من النص :

ليست وردة بل هي المتحول f ومحطا باقوسين ......

والله ظبطت بالصدفة .................

:):D

شكرا استاذى العزيز موفق

ساقوم بتعديل الكود حسب ما اوضحته لى و سأفيدك لاحقا

جزاك الله خيرا وبارك الله فيك

هل من الممكن ان تكملوا البرنامج و حد يقولي ازاي نعمل Save للتكست??