چجوری میتونم عکس یه ایمیج توی رجیستری ذخیره کنم؟

[mr-mojtaba12]

سلام به همه دوستان
من چند وقت لنگ یه چیزم
من یه برنامه نوشتم و توی اون یه ایمیج(Image) گذاشتم
با استفاده از (Common Dialog) یه عکس براش انتخاب کردم
میخوام دفعه بعد که برنامه باز میشه اون عکس به طوره خودکار توش باشه
من بلدم یه متن ذخیره کنم اینم کدش
Private Sub Command1_Click()
SaveSetting "Text1", "SettingForm", "FormCaption", Text1.Text
End Sub

Private Sub Form_Load()
On Error Resume Next
Text1.Text = GetSetting("Text1", "SettingForm", "FormCaption")
End Sub

اگه میشه کمکم کنید خیلی مهمه
خواهش

[program2vb]

سلام دوست عزیز

اینم از سورس کدی که خواسته بودی

امیدوارم بدردت بخوره

یا علی :لبخند:

[mr-mojtaba12]

مرسی داداش که جواب دادی
اما این که شما دادی اون چیزی که من میخواستم نبود
اگه میشه بگو این که دادی چیکار میکنه!
و من گفتم مثلا ما یک فرم داریم به نام Form1
یه فرم دیگه هم میسازیم توی فرم 2 میزنیم
CommonDialog1.ShowOpen
Form1.Picture = LoadPicture(CommonDialog1.FileName)
یعنی یه عکس انتخاب میکنیم
و خصوصیت picture فرم یک مساوی با اون عکسی که انتخاب کردیم میکنیم
پس در این صورت عکس پس زمینه فرم یک تغییر کرد
حالا من میخوام یه کد بدی که وقتی من اون برنامه بستم و دوباره باز کردم
پس زمینه به عکس قبلی برنگرده و اون عکسی که انتخاب کردیم باشه
اگه میشه حالا یه کمکی کن
جونه من یکم زودتر جواب بدین خیلی عجله دارم

[program2vb]

خب عزیز تو میتونی از همون سورسی که من گذاشتم استفاده کنی : یعنی عکس رو تو رجیستری ذخیره کنی و دفعه بعد که فرم رو اجرا میکنی اونو از رجیستری فراخوانی کنی و ازش استفاده کنی .

[mr-mojtaba12]

داداش ممنون از کمکت
ولی من از یه راه دیگه اون کارو کردم
یعنی آدرس اون فایل که انتخاب کردیم توی یه تکس ذخیره میکنم
بعد اونو فراخوانی میکنم
اینجوری:
Private Sub Form_Load()
On Error Resume Next
Text1.Text = GetSetting("textback", "SettingForm", "FormCaption")

Me.Picture = LoadPicture(Text1.Text)
End Sub

Private Sub Command1_Click()
Text1.Text=CommonDialog1.FileName
SaveSetting "textback", "SettingForm", "FormCaption", Text1.Text
End Sub

[program2vb]

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

[mr-mojtaba12]

خب داداش تو یه کد مثل همین کدی که من دادم بده اونی که تو دادی من اصلا سر در نیاوردم

[program2vb]

میدونی من چیکار کردم :

1 . من اومدم اول اون فایلی رو که انتخاب میکنی بازش میکنم بصورت Binary
2 . اونو تو یه متغییر ذخیره میکنم private s as string
3 . بعد S رو تو رجیستری ذخیره میکنم ( یعنی همون فایل رو تو رجیستری ذخیره میکنم )
4 . در هنگام باز کردن اونو از رجیستری صدا میکنم . و دوباره اونو به یک عکس تبدیل میکنم .

[mr-mojtaba12]

داداش اگه میشه این که دادی یه ویرایش کن
همه چیو بردار 2 تا کلید بزار با یه commondialog
بعد کاری کن تصویر زمینه فرم بشه اون عکسی که انتخاب میکنیم

[program2vb]

بفرما عزیز : :متفکر:

[mr-mojtaba12]

error میده!
Me.Picture = LoadPicture(App.Path &"\Temp.jpg")

[program2vb]

داداش آی دی منو اد کن بیا اونجا : Ghader.Rose@yahoo.com