gorg313
پنج شنبه 07 شهریور 1392, 22:29 عصر
با عرض سلام خدمت دوستان و برنامه نويسانه عزيز
من يه برنامه نوشتم که داري چند بخش هست
اين از مشخصات که در ماژول تعريف کردم
Public Type bank
titelsite As String
email As String
namesite As String
comment As String
End Type
در جنرال فرم اين اطلاعات
Dim O As String
Dim INFO As bank
در فرم لود
O = App.Path & "\INFO.TXT"
اين هم براي ذخيره اطلاعات
Open O For Random As #1
INFO.titelsite = Text1.Text
INFO.email = Text2.Text
INFO.namesite = Text3.Text
INFO.comment = Text4.Text
Put #1, Val(Text5.Text), INFO
Close
اين هم براي بارگذاري مقدارهاي ذخيره شده
If Text5.Text <> "" Then
Open O For Random As #1
Get #1, Val(Text5.Text), INFO
Text1.Text = INFO.titelsite
Text2.Text = INFO.email
Text3.Text = INFO.namesite
Text4.Text = INFO.comment
Close
End If
برنامه کامل و درست عمل کرد
اما مشخصه ي text4 به صورت مولتي لاين ست شده است يعني چندخطي
وقتي مقدار متن سنگين مي شود فايل را ذخيره نمي کند من ميخوام مثلآ يه مقدار سنگين مثلآ 20 خط متن را داخل خودش سيو و بارگذاري کنه
من ميخواستم مقدار text4 بيشتر از اين ها باشه ممنونم ميشم سورس ضميمه کنيد
مقدار string را زياد هم کردم ولي چيز خاصي ذخيره نکرد
ممنون ميشم سورسي بذاريد که بشه ذخيره کرد و بارگذاري هم نمود
:خجالت:
من يه برنامه نوشتم که داري چند بخش هست
اين از مشخصات که در ماژول تعريف کردم
Public Type bank
titelsite As String
email As String
namesite As String
comment As String
End Type
در جنرال فرم اين اطلاعات
Dim O As String
Dim INFO As bank
در فرم لود
O = App.Path & "\INFO.TXT"
اين هم براي ذخيره اطلاعات
Open O For Random As #1
INFO.titelsite = Text1.Text
INFO.email = Text2.Text
INFO.namesite = Text3.Text
INFO.comment = Text4.Text
Put #1, Val(Text5.Text), INFO
Close
اين هم براي بارگذاري مقدارهاي ذخيره شده
If Text5.Text <> "" Then
Open O For Random As #1
Get #1, Val(Text5.Text), INFO
Text1.Text = INFO.titelsite
Text2.Text = INFO.email
Text3.Text = INFO.namesite
Text4.Text = INFO.comment
Close
End If
برنامه کامل و درست عمل کرد
اما مشخصه ي text4 به صورت مولتي لاين ست شده است يعني چندخطي
وقتي مقدار متن سنگين مي شود فايل را ذخيره نمي کند من ميخوام مثلآ يه مقدار سنگين مثلآ 20 خط متن را داخل خودش سيو و بارگذاري کنه
من ميخواستم مقدار text4 بيشتر از اين ها باشه ممنونم ميشم سورس ضميمه کنيد
مقدار string را زياد هم کردم ولي چيز خاصي ذخيره نکرد
ممنون ميشم سورسي بذاريد که بشه ذخيره کرد و بارگذاري هم نمود
:خجالت: