منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : جلب خلفيه سطح المكتب
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم
كنت اريد جلب خلفيه سطح المكتب في 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
مشكور اخي بس الصوره بتبقي كبيره علي ال 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
مشكور اخي علي مساعدتك. بس كان في سؤال انا عامل الخلفيه لون اسود مثلا ر جيت افتح البرنامج لقيت بيقولي الكود غلط غيرت الخلفيه لصوره لقيته اشتغل فهل في حل عشان يقبل الالوان ويجيبها برده في ال picture box. شكرا
صراحة لم افهم! هل يمكن ان ترفق المثال وتشير بالتعليقات الى المشكلة؟ او تضع شرح للمشكله مع الكود المستخدم....

الصوره موضحه الكلام
وينك يا اخ ربيع. او اي عضو ممكن يساعدني؟؟
لا اعرف لم ظهر الخطأ فالمسار هو نفسه فيه الويندوز سواء xp او 7 او الخ....
انا ممكن اوضحلك اكتر ممكن يكون ليه علاقه يعني انتا كاتب Dim iPath As String = rk.GetValue("Wallpaper").ToString()
ما ممكن wallpaper دي تكون المشكله يعني wallpaper بتقري ملفات الصور ب امتداد jpg,bmp الي اخ.... ولاكن انا اكترت ان الخلفيه تبقي الوان و هوه مش لاقي مسار الخلفيه لانها لون مش صوره ممكن يكون كلامي صح؟؟
الصفحات : 1 2