چطور تغييرات پس از بستن برنامه ثابت بمونه

یه برنامه انتخاب رنک به وسیله کاربر ساختم میخام کار بر که برنامه رو باز کرد و پس از انتخاب رنگ که از برنامه خارج شد از اون پس که برنامه رو دو باره باز میکنه با رنگ انتخابی خودش بیات با لا یعنی تعقیراتی که به برنامه توسط کاربر اعمال میشه پس از بستن برنامه ثابت بمونه
ممنوم سید مهدی همیلی !!؟؟

نقل قول:

---

نوشته شده توسط LOVEMT

یه برنامه انتخاب رنک به وسیله کاربر ساختم میخام کار بر که برنامه رو باز کرد و پس از انتخاب رنگ که از برنامه خارج شد از اون پس که برنامه رو دو باره باز میکنه با رنگ انتخابی خودش بیات با لا یعنی تعقیراتی که به برنامه توسط کاربر اعمال میشه پس از بستن برنامه ثابت بمونه
ممنوم سید مهدی همیلی !!؟؟

---

تنها راهی که به ذهن من می رسد این است که مقدار رنگ را ذخیره کنید. ذخیره سازی در دو محل می تواند باشد
اول در یک فایل. در این حالت قبل از خارج شدن از برنامه مقدار رنگ را در فایل ذخیره کرده و در هنگام بارگذاری برنامه آن را از فایل استخراج می کنید.
دوم در رجیستری وبا استفاده ازز دستورات
SaveSetting و GetSetting.

موفق باشید

داخل یک MDb ذخیره کن ..

ممنون دوست عزیز در باره رنک درست ولی اگه بخوام تنظیمات کلی داشته باشم که فقط رنگ مباشه باز شدن برنامه در مخل انتخابی کار بر در برنامه و یا تعدداد کار مندان در یک برنامه حساب داری اداری و یا تنظیماتی مثل تنظیمات Ie و ویندوز
ممنوم که جواب دادین

در باره رجستری بیشتر توظیح بده
ممنون !!

همنطور که گفتم داخل یک بانک اطلاعاتی ذخیره کنی خیلی راحت تر هستی .

شاید برنامش یه برنامه ساده باشه و با دیتا بیس سرو کار نداشته باشه. از رجیستری استفاده کن. آدرس بده و کلید و ولیو جدید ایجاد کن.

سلام دوست عزیز
من زیاد وب. بلد نیستم ولی خوشحال میشم کمکت کنم. برای این کار که میخوای دو روش وجود داره.
1- ساختن فایل و ذخیره اطلاعات بصورت خط به خط
خوب این روش مشکلی داره اونم اینکه همیشه باید همراه فایل اصلی باشه
تریقه ذخیره X و Y فرم در تکست (این تکست میتونه هر پسوندی داشته باشه)

مودول:

کد:

---

Private Sub GetSettings(ByVal FileName As String)
    Set strm = fso.OpenTextFile(FileName, ForReading)
    With strm
        Form1.Left = .ReadLine
        Form1.Top = .ReadLine
        .Close
    End With
End Sub

Private Sub SaveSettings(ByVal FileName As String)
    Set strm = fso.CreateTextFile(FileName, True)
    With strm
        .WriteLine Form1.Left
        .WriteLine Form1.Top
        .Close
    End With
End Sub

فرم:

Private Sub Form_Load()
GetSettings 'file name
End Sub

Private Sub Form_Unload(Cancel As Integer)
SaveSettings  'file name
End Sub

---

2- ذخیره کردن در رجیستری

مودول:

کد:

---

Public Sub SavePosiTion(nameform As Form)
Dim Xja, Yja As String
SaveSetting "Pedram", "Shahrdar", "X", nameform.Left
SaveSetting "Pedram", "Shahrdar", "Y", nameform.Top
End Sub
Public Sub LoadPosiTion(nameform As Form)
Dim Xja, Yja As String
Xja = GetSetting("Pedram", "Shahrdar", "x", "100")
Yja = GetSetting("Pedram", "Shahrdar", "Y", "100")
nameform.Top = (Yja)
nameform.Left = (Xja)
End Sub

---

فرم

کد:

---

Private Sub Form_Load()
SavePosiTion Form1
End Sub
Private Sub Form_Unload(Cancel As Integer)
LoadPosiTion Form1
End Sub

---

فکر میکنم خیلی واضح باشه lol

سلام
در ویژوال بیسیک دو تابع Save Setting و Getsetting
وجود داره که هر کدوم رو توضیح میدم:

SaveSetting(appname, section, key, setting)
از این تابع میتونین برای ذخیره سازی یک مقدار دلخواه در رجیستری و ذخیره تنظیمات برنامه استفاده کنید.
مقادیر در یک مسیر اصلی ، یک شاخه، یک زیر شاخه و در نهایت به صورت یک مقدار رشته ای ذخیره میشن.
مسیر اصلی توسط VB تعیین میشه و نیازی به وارد کردن مسیر نیست.
اگه مسیر رو خواستین بدونین اینم مسیر اصلی :
HKEY_CURRENT_USER>>Software>VB and VBA Program Settings
آرگومان appname :
نام شاخه یا پوشه اصلی است که تمام زیر شاخه ها و مقادیر آنها در این شاخه ذخیره می شه .
آرگومان section:
نام زیر شاخه ای در شاخه ی appname است که مقادیر رو ذخیره میکنه
آرگومان key نام مقدار و آرگومان setting خود مقداری است که باید ذخیره بشه.
نکته: نام آرگومان ها اختیاری است.
نکته : بهترین مکان برای استفاده از این تابع در Form_unload است
---------------------------------------------------------------------
GetSetting(appname,section,key [,default ])
وقتی که مقادیر رو در رجیستری نوشتیم با این تابع مقادیر رو می خونیم.
سه آرگومان اول رو که توضیح دادم.
آرگومان اختیاری default یک مقدار پیش فرض که در صورت نبودن مقداری در مسیر ذکر شده ، توسط تابع برگشت داده می شه.
نکته : بهترین مکان برای استفاده از این تابع در Form_load است
---------------------------------------------------------------------
اینم یک مثال ساده برای دوستان :

کد:

---

Private Sub Form_Load()
    Me.Height = GetSetting("Size_Form", "Startup", "height", Me.Height)
    Me.Width = GetSetting("Size_Form", "Startup", "width", Me.Width)
    Me.BackColor = GetSetting("Backcolor_Form", "Startup", "Color", Me.BackColor)
    HScroll1.Value = GetSetting("Backcolor_Form", "Startup", "HScroll1", HScroll1.Value)
    HScroll2.Value = GetSetting("Backcolor_Form", "Startup", "HScroll2", HScroll2.Value)
    HScroll3.Value = GetSetting("Backcolor_Form", "Startup", "HScroll3", HScroll3.Value)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SaveSetting "Size_Form", "Startup", "height", Me.Height
    SaveSetting "Size_Form", "Startup", "width", Me.Width
    SaveSetting "Backcolor_Form", "Startup", "Color", Me.BackColor
    SaveSetting "Backcolor_Form", "Startup", "HScroll1", HScroll1.Value
    SaveSetting "Backcolor_Form", "Startup", "HScroll2", HScroll2.Value
    SaveSetting "Backcolor_Form", "Startup", "HScroll3", HScroll3.Value
End Sub

Private Sub HScroll1_Change()
    Me.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

Private Sub HScroll2_Change()
    Me.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

Private Sub HScroll3_Change()
    Me.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

---

---------------------------------------------------------------------
توضیحات:
این برنامه طول و عرض فرم رو در شاخه Size_Form ذخیره می کنه و
رنگ زمینه فرم و مقادیر hscroll ها رو در شاخه Backcolor_Form ذخیره میکنه.
---------------------------------------------------------------------
فکر کنم با این توضیحات مشکل LoveMT عزیز هم حل شده باشه.