[nin9e]

السلام عليكم
كنت اريد جلب خلفيه سطح المكتب في picturebox هل من مساعده. شكرا

[ربيع]

نحمده ونصلي على رسوله الكريم

كود :

Using rk As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Control Panel\Desktop\", True)
    pictureBox1.Image = Image.FromFile(rk.GetValue("Wallpaper").ToString())
End Using

[nin9e]

مشكور اخي بس الصوره بتبقي كبيره علي ال picture box انا جربت اغير في خصائص الpicture box بس ما بتتحلز واريد طلب اخر معلش لو كنت عاوز اسم الصوره تحت الpicture box بس بدوز الامتداد اسم بس شكرا

---

و ملحوظه اخري البرنامج بيديني مش كله لو الشاشه بقت لون مش صوره

[ربيع]

نحمده ونصلي على رسوله الكريم

كود :

Using rk As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Control Panel\Desktop\", True)
    Dim iPath As String = rk.GetValue("Wallpaper").ToString()
    pictureBox1.Image = Image.FromFile(iPath)
    pictureBox1.SizeMode = PictureBoxSizeMode.Zoom
    label1.Text = System.IO.Path.GetFileNameWithoutExtension(iPath)
End Using

[nin9e]

مشكور اخي علي مساعدتك. بس كان في سؤال انا عامل الخلفيه لون اسود مثلا ر جيت افتح البرنامج لقيت بيقولي الكود غلط غيرت الخلفيه لصوره لقيته اشتغل فهل في حل عشان يقبل الالوان ويجيبها برده في ال picture box. شكرا

[ربيع]

صراحة لم افهم! هل يمكن ان ترفق المثال وتشير بالتعليقات الى المشكلة؟ او تضع شرح للمشكله مع الكود المستخدم....

[nin9e]

الصوره موضحه الكلام

[nin9e]

وينك يا اخ ربيع. او اي عضو ممكن يساعدني؟؟

[ربيع]

لا اعرف لم ظهر الخطأ فالمسار هو نفسه فيه الويندوز سواء xp او 7 او الخ....

[nin9e]

انا ممكن اوضحلك اكتر ممكن يكون ليه علاقه يعني انتا كاتب Dim iPath As String = rk.GetValue("Wallpaper").ToString()
ما ممكن wallpaper دي تكون المشكله يعني wallpaper بتقري ملفات الصور ب امتداد jpg,bmp الي اخ.... ولاكن انا اكترت ان الخلفيه تبقي الوان و هوه مش لاقي مسار الخلفيه لانها لون مش صوره ممكن يكون كلامي صح؟؟