Printable View
یه برنامه انتخاب رنک به وسیله کاربر ساختم میخام کار بر که برنامه رو باز کرد و پس از انتخاب رنگ که از برنامه خارج شد از اون پس که برنامه رو دو باره باز میکنه با رنگ انتخابی خودش بیات با لا یعنی تعقیراتی که به برنامه توسط کاربر اعمال میشه پس از بستن برنامه ثابت بمونه
ممنوم سید مهدی همیلی !!؟؟
تنها راهی که به ذهن من می رسد این است که مقدار رنگ را ذخیره کنید. ذخیره سازی در دو محل می تواند باشدنقل قول:
نوشته شده توسط 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
فکر میکنم خیلی واضح باشه lolکد:Private Sub Form_Load()
SavePosiTion Form1
End Sub
Private Sub Form_Unload(Cancel As Integer)
LoadPosiTion Form1
End Sub
سلام
در ویژوال بیسیک دو تابع 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 عزیز هم حل شده باشه.
ممنون كاملا اشكال رفع شد
دستوري نيست كه تمام تنظيمات رو ذخيره كنه مثلا بگيم تمام تنظيمات Form1 و دیگه همیچیش رو ذخیره کنه
میتونی بنویسی With Form1 بعد . که بزنی کنترل هاتو نشون میده و اگه بازم . بزنی ویژگی های کنترل هارو نشون میده.
شفاف تر ميفرمايد !
دیگه واضح تر از این؟
اینم مثال
البته این روش خیلی هم کار رو آسون نمیکنه.کد:Private Sub Form_Load()
With Form1
.Text1.Left = 10
.Command1.Enabled = True
.Label1.Caption = "P"
End With
End Sub
Ok
روش اسونش پس چیه !؟
Ok
روش اسونش پس چیه !؟