اگر می خواهید این طور باشه اول این متغیر ها رو به صورت Public در فرم تون تعریف کنید:برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط hamalous برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
سپس در دکمه ی ذخیره تون این کد رو قرار بدید:کد:Dim saveas As Boolean saveas = True Dim filepath As String
در مورد سوال دوم تون پیرامون متن تکراری، لطفا" بفرمایید که وقتی متنی وارد جعبه ی متنی میشه به چه شکلی ذخیره میشه تا با بشه با متن هایی که در آینده وارد میشن بشه مقایسه اش کرد؟!کد:If saveas = True Then cmdg6.Filter = "*.txt | *.txt |*.xls|*.xls" On Error Resume Next cmdg6.ShowSave filepath = cmdg6.FileName Open filepath For Output As #6 Print #6, FlatEdit Close #6 saveas = False Else On Error Resume Next Open filepath For Output As #6 Print #6, FlatEdit Close #6 End If






پاسخ با نقل قول
Bookmarks