تغییر رنگ فرم [بایگانی]

sara_t

یک شنبه 10 بهمن 1389, 13:22 عصر

سلام دوستان
من با commondialog.showcolor رنگ زمینه فرمم رو عوض میکنم اما میخام هر بار که برنامه اجرا میشه رنگ قبلی سیو بشه و کاربر نخاد هربار رنگ رو انتخاب کنه.
ممنون میشم راهنمایی کنید.

ali.rezaei7

یک شنبه 10 بهمن 1389, 13:50 عصر

درود. راه هاي مختلفي وجود داره، از جمله استفاده از رجيستري يا ذخيره اطلاعات در داخل يه فايل ini... . من استفاده از رجيستري رو بهتون پيشنهاد مي كنم. VB هم يه سري تابع براي ذخيره و بازيابي اطلاعات تو رجيستري را داره. براي ذخيره اطلاعات مي تونيد از تابع SaveSetting استفاده كنيد و براي بازيابي هم از تابع GetSetting.

براي ذخيره رنگ تو رجيستري از اين كد استفاده كن:

CommonDialog1.ShowColor

SaveSetting "YouProjectName", "Inteface", "Color", CommonDialog1.Color
بجاي YouProjectName هر نامي رو كه مايل هستي بزار.(پارامتر اول و دوم تابع براي ايجاد كليد اصلي و يك زير كليد براي كليد اصلي است و بايد مقداردهي بشه و پارمتر سوم و جهارم براي ايجاد يه Value و مقدار دان به آن است و بايد مقداردهي بشه و مي توني هرچي دلت خواست بزاري!)

براي بازيابي رنگ از اين كد استفاده كن.

BackColor = GetSetting("YouProjectName", "Inteface", "color", BackColor)

sara_t

سه شنبه 26 بهمن 1389, 18:37 عصر

دوستان اگه من الان بخام مواردی رو که با commondialog باز میکنم سیو کنم چه کدی بنویسم؟
Dim strFiles() As String
Dim sep As String
sep = Chr(0)
cd.Flags = cdlOFNExplorer Or cdlOFNAllowMultiselect
cd.ShowOpen
strFiles = Split(cd.FileName, sep)
من این خط رو اضافه میکنم اما درست جواب نمیده؟

SaveSetting "YouProjectName", "Inteface", "FileName", cd.FileName
strFiles = GetSetting("YouProjectName", "Inteface", "filename", strFiles)

returnx

سه شنبه 26 بهمن 1389, 22:05 عصر

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

sara_t

چهارشنبه 27 بهمن 1389, 15:00 عصر

ممنون منظورم محتویات بود نه رنگ با فونت.
اومدم همه رو ریختم توی یه تکست باکس و تکست باکس رو سیو کردم. اینجوری جواب داد.