كود حفظ اللي في text2

مجدداً اذهب الي دروس التعامل مع الملفات فهانك الكثير منها

بسم الله

انا مش فاهم قصدك

انت قصدك يحفظ على الجهاز في ملف Txt ?لو كده يبقى خد الكود ده

  
 Open "c:\MyText.txt" For OutPut as #1 
 Print #1,Text1.Text 
 Close

السلام عليكم

ذهبت وبحثت مالقيت شي يفيدني انا لاقي اكود لكن حاولت اعدل فيهن ماظبطن معي

الله يعطيك العافيه

.

.

اخي الكريم انا قصدي في مشروعي عندي text2 اكتب فيه مظبوط

وعندي زر ابغى الزر هذا لما اظغط عليه يحفظ اللي مكتوب داخل text2

على امتداد text

هل واضح الامر او مافهمت

وشاكر لك على المرورو

سلام

تفضل أخي

Save___open.rar

Open "MyText.txt" For OutPut as #1
 Print #1,Text1.Text
Close

هذا الكود يفي بالغرض مع العلم ان النص سيسجل في مجلد المشروع في

MyText.txt

الله يعطيكم العافيه ومشكورين

اخي يعطيك العافيه وشاكر لك mohammed abdulzi الطريقة هي المطلوبه لكن للاسف ماظبطة معي ((تحملني ))

عدلت الكود علشان يتناسب معي

الكود الاصلي

On Error Resume Next
'This code for open dialogbox to save file type of it txt'

With Dlg
.DialogTitle = " save file "
.Filter = "Text files|*.txt"
.ShowSave
End With
rtxt.SaveFile Dlg.FileName, rtfRTF

وتم تعديل الى

On Error Resume Next
'This code for open dialogbox to save file type of it txt'

With Dlg
.DialogTitle = " save file "
.Filter = "Text files|*.txt"
.ShowSave
End With
text2.SaveFile Dlg.FileName, rtfRTF

لكن ماظبط وش المشكله

.

.

.

.

يعطيك العافيه وشاكر لك حسن التعاون kindy_ibrahim

الكود شغال ميه الميه لكن طريقة الاخ mohammed abdulzi

تعطي شكل افضل ولا وش رايك

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

يعطيكم العافيه

اخي انا عملت لك بفضل الله مثال إن شاء الله ان يفيدك

New_Folder__2_.rar

يعطيك العافيه وجزاك الله خير وكثر الله من امثالك

مشكورر

والسلام