كيف يتم تسجيل بيانات صورة في رجستري

khreim7@hotmail.com

الرجاء التوضيح 000000

ماهو قصدك بالتحديد

السلام عليكم

عندما يتم إختيار صورة أو خلفية لسطح المكتب يتم حفظها في الرجستري على حد علمي ليتم تحميلها عند التشغيل القادم للوندوز

أو حتى تغير الخلفية بخلفيه آخري عسى ان كون وفقت في شرح ما

اريد ان ابحث عن وهذا مثال

هنا

ولكم جزيل الشكر

يمكنك ذلك باستخدام الدالتين SaveSetting وGetSetting

ضع في النموذج الاول بعد السطر

 Image1.Picture = LoadPicture(PicPath)
 'ضع الكود التالي
 SaveSetting App.EXEName, "Main", "BackGd", PicPath

وفي النموذج الثالث -في حدث التحميل

Private Sub Form_Load()
 On Error Resume Next
 Dim RetVal$
 RetVal = GetSetting(App.EXEName, "Main", "BackGd")
 Me.Picture = LoadPicture(RetVal)
End Sub

السلام عليكم

بارك الله فيك

لم أتمكن من الحصول على المطلوب وقد حاولت تطبيق

ما كتبته من أكواد ولكن لم يعمل فهل تكرمت بتطبيقة على المثال هذا علما بأنى قد نسخت الكود

هنا

السلام عليكم

ممكن أساعدك يا اخي

Private Sub Command1_Click()
    CommonDialog1.ShowOpen
    SaveSetting App.EXEName, "Main", "BackGd", CommonDialog1.FileName
    Me.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

Private Sub Form_Load()
Dim RetVal As String
On Error Resume Next
RetVal = GetSetting(App.EXEName, "Main", "BackGd")
If RetVal <> Empty Then
    Me.Picture = LoadPicture(RetVal)
Else
    CommonDialog1.ShowOpen
    SaveSetting App.EXEName, "Main", "BackGd", CommonDialog1.FileName
    Me.Picture = LoadPicture(CommonDialog1.FileName)
End If
End Sub

السلام عليكم

مشكورين على هذه الجهود وبارك الله فيكم ونفعكم بما علمكم وزادكم علماً.

الأخ programmer2001 تم تجربة الكود وهو شغال مئه في المئة ولكن

المشكة تكمن في أنني لم أتمكن من أستخدامة في هذا البرنامج فهل

من مساعدة في

تطبيقه على هذا المثال

السلام عليكم ورحمة الله

الاخ العزيز NASSER ALSAIDI

تم تعدي لالمثال وبامكانك تحميله من هنا

http://mypage.ayna.com/bmbsa/pic.zip

اذا لم تستطع التحميل من هذا الرابط فقط قم بحذف http://

وشكرا

جزاك الله خيرا الجزاء وبارك الله فيكم

مشكورين كل الشكر والتقدير

اللهم ربنا إنا نسألك بأنا نشهد بأنك أنت الله؛ لا إله إلا أنت، الواحد الأحد، الفرد الصمد، الذي لم يلد ولم يولد، ولم يكن له كفوا أحد. نسألك ربنا أن لا تدع لنا في مقامنا هذا ذنبا إلا غفرته، ولا عيبا إلا أصلحته، ولا غما إلا فرجته ، ولا كربا إلا نفسته، ولا دينا إلا قضيته، ولا مريضا إلا عافيته، ولا غائبا إلا حفظته ورددته، ولا ضالا إلا هديته، ولا عدوا إلا كفيته، ولا دعاء إلا استجبته، ولا رجاء إلا حققته، ولا بلاء إلا كشفته، ولا سائلا إلا اعطيته، ولا محروما إلا رزقته، ولا جاهلا إلا علمته، ولا حاجة من حوائج الدنيا والآخرة هي لك رضى ولنا صلاح ومنفعة إلا قضيتها ويسرتها في يسر منك وعافية.

سجل فقط مسار الصور في الرجيستر

وهند تنفيذ برنامجك اقرأ المسار

واخيرا حمل الصورة الموجودة بالمسار

السلام عليكم طب يا جماعة مش انا عندى زر البرانت اسكرين بياخذ صورة من الديسك توب مش هو بيخزنها فين اعتقد فى الذاكرة بس اكيد مش كتاكد طيب اين كان هو بيخزن فين لو انا عايز الصور تتحفظ فى قاعدة بيانات اكسس او نسخة منها يعنى كود ياخد الصور كابى بيست لقاعدة البيانات اكسس