ویژوال بیسیک

پروژه های رایگان ویژوال بیسیک

ذخیره کردن متن

برای ذخیره کردن متنی که در داخل تکست باکس خود نوشته ایداز کد زیر استفاده کنید
Private Sub Command1_Click()
Dim fn As String
CommonDialog1.FileName = d
CommonDialog1.Filter = "*.txt"
CommonDialog1.ShowSave
If CommonDialog1.FileName = "" Then