پشتیبان گیری از تکست باکس

[aminaltavista]

سلام
چه طور میتونم به وسیله common dialog و show save از متن درون یک تکست باکس یه پشتیبان بگیرم و یه محل سیوش کنم ؟:متفکر:

[kitcat_m18]

سلام،

چه طور میتونم به وسیله common dialog و show save از متن درون یک تکست باکس یه پشتیبان بگیرم و یه محل سیوش کنم ؟:متفکر:
به سختی :لبخند:

یه دکمه و یه تکست باکس و یه دونه CommonDialog بذار رو فرمت و این کد رو تو دکمه بزن:

CommonDialog1.ShowSave

Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1

[aminaltavista]

سلام،

به سختی :لبخند:

یه دکمه و یه تکست باکس و یه دونه CommonDialog بذار رو فرمت و این کد رو تو دکمه بزن:

CommonDialog1.ShowSave

Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1
جسارتا نحوه بازیابی چه طوره چون همون کد رو برای iput و show open نوشتم خطا داد!:ناراحت:

[Veteran]

با اجازه kitcat جان

Private Sub Command1_Click()
Dim str1ng As String
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
Open CommonDialog1.FileName For Input As #1
While Not (EOF(1))
Line Input #1, str1ng
Text1 = Text1 & str1ng & vbCrLf
Wend
Close #1
End Sub