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

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 


بالتوفيق .