نوشته شده توسط
rezarko
دوست عزیز چه جوری باید فایل Settings.ini رو بسازم؟
اگه میخوای یه چیزی مثل همون setting.ini درست کنی و توش تنظیمات رو ذخیره کنی و بخونی ازش کدهای پایین به دردت میخوره
اول یه Madule درست کن و توش این کد رو بنویس:
Type Settings
Op1 As String
Op2 As Integer
Op3 As Long
End Type
با این کد میتونی رکورد Settings با فیلدهای Op1 و Op2 و Op3 بسازی
که شما باید بجای Op1 و ... تنظیمات مورد نظر خودتو مشخص کنی
بعد توی کدهای فرم خودت برای اختصاص خونه های حافظه به رکوردی که ساختی از کد پایین استفاده که (میتونی توی فرم لود استفاده کنی)
Dim A As Settings
حالا وقتی میخوای ذخیره کنی از کد پایین استفاده کن
Open PATH For Random As #1
A.Op1 = ...
A.Op2 = ...
A.Op3 = ...
...
Put #1, 1, A
Close #1
PATH : آدرس فایل توی هارد
بعد از Open کردن هم میتونی تمام فیلدهای که برای رکوردت توی کد قبلی ساخته بودی مقدار دهی کنی [که شما اینجا فیلدهایی که ساختی با مقدارهای مورد نظر مقدار دهی کن]
با دستور Put شما رکوردتون رو ذخیره کردید و به دستور Close فایل رو از برنامه بستید.
حالا برای خوندن تنظیمات از کد زیر استفاده کن:
Open PATH For Random As #2
Get #2, 1, A
... = A.Op1
... = A.Op2
... = A.Op3
...
Close #2
این دفعه شما با دستور Get همون رکورد رو به خانه ی A وارد کردید
حالا همون مقدارها دوباره سرجای خودشون قرار دارن و میتونی ازشون هرجایی استفاده کنی
اگه توی برنامت لازمه که به تعداد زیاد ذخیره و لود کنی دوتا متغیر بساز
مثلاً A برای ذخیره کردن و B برای لود کردن
Dim A As Settings
Dim B As Settings
اومیدوارم جواب گرفته باشی
پاسخ با نقل قول