[3ssam]

السلام عليكم
اخواني العزاء
اريد كود ان اضعه في التايمر ويقوم بانشاء txt ومن ثم يقوم بحفط كل ما يظهر بالتكست بوكس تلقائيا في الملف txt الذي انشاءه

[محمود اكرم]

السلام عليكم
اخ 3ssam
ارجو ان يكون هذا هو طلبك

إقتباس :Userfile = FileName
Open Userfile For Input As #1
txtFile.Text = Input(LOF(1), 1)
txtFile.Refresh
Close #1

------------------------
علما بان البرنامج يعمل على الحفظ وليس اضافة الى الملف
وان txtFile اسم صندوق النص تستطيع استبدالها باسم اداة النص التي عندك
وان FileName يجب ان تضع فيه اسم الملف كامل مع الامتداد txt
^_*

[3ssam]

شكرا اخي محمود اكرم
ولكن انا طلبي كود يقوم بانشاء ملف تكست ويقوم بحفظ كل ما يظهر داخل التكست بوكس تلقائي بدون ما انا اعمل ملف واضيف اسمه

[محمود اكرم]

3ssam كتب :شكرا اخي محمود اكرم
ولكن انا طلبي كود يقوم بانشاء ملف تكست ويقوم بحفظ كل ما يظهر داخل التكست بوكس تلقائي بدون ما انا اعمل ملف واضيف اسمه

تقصد انه فتح الملف تلقائي وحفظه

[3ssam]

اخ محمود اقصد يتم انشاءه ويتم الحفظ بداخله

[محمود اكرم]

السلام عليكم
اخ عزام اذا كان هذا طلبك فانصح بدل ان تستخدم عملية التايمر استخدم حدث تحميل البرنامج وعملية اغلاق البرنامج

إقتباس :dim Userfile as String
Private Sub Form_Load()
Userfile = "اسم الملف بالامتداد كامل"
Open Userfile For Input As #1
TextBox.Text = Input(LOF(1), 1)
TextBox1.Refresh
Close #1
End Sub


Private Sub Form_Unload(Cancel As Integer)
Cancel = true


Dim a = MsgBox("هل تريد حفظ التغييرات على الملف", vbYesNoCancel)
If a = vbYes Then
Open Userfile For Output As #2
Print #2, TextBox1.Text
Close #2


ElseIf a = vbNo Then
End
ElseIf a = vbCancel Then
Cancel =false
End If
End Sub

عند تحميل البرنامج يتم عملية تحميل النص من الملف النصي
وعند الاغلاق تتم عملية الاغلاق بعد التأكد ان اردت الحفظ ام لا
_______________________
ارجو ان يكون هذا طلبك
^_*

[ALBRNS]

السلام عليكم

اذا وضعت الكود في Timer سوف يكرر الحروف والكلمات

جرب التالي

حيث سيتم انشاء المستند في ملف البرنامج وسيتم نقل الكتابة من الــ Text الي المستند عند اكتمال الكتابة وغياب التركيز عن الــ Text

PHP كود :

Private Sub Text1_GotFocus()
Text1.Text = ""
End Sub

Private Sub Text1_LostFocus()
Open (App.Path & "\File.txt") For Append As #1
Print #1, Text1.Text
Close
End Sub 


بالتوفيق .

[محمود اكرم]

اخ ALBRNS
هذه الدالة Append تضيف ما يوجد في صندوق النص الى الملف
والاخ

3ssam

يريد فتح الملف لذا سيتم تكرار ما يوجد في النص الى الملف جرب بنفسك

ALBRNS كتب :السلام عليكم

اذا وضعت الكود في Timer سوف يكرر الحروف والكلمات

جرب التالي

حيث سيتم انشاء المستند في ملف البرنامج وسيتم نقل الكتابة من الــ Text الي المستند عند اكتمال الكتابة وغياب التركيز عن الــ Text

PHP كود :

Private Sub Text1_GotFocus()
Text1.Text = ""
End Sub

Private Sub Text1_LostFocus()
Open (App.Path & "\File.txt") For Append As #1
Print #1, Text1.Text
Close
End Sub 


بالتوفيق .

[ALBRNS]

السلام عليكم

اخي محمود اعتقد انه يريد انشاء مستند وحفظ ما يكتب في الـــ Text في هذا المستند

وان كان غير دالك ارجو التوضيح

بالتوفيق .

[محمود اكرم]

السلام عليكم
اخ albrns

مالمشكلة في الكود الذي كتبته في المشاركة 6