+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : جلب خلفيه سطح المكتب (/showthread.php?tid=1633)
الصفحات:
1
2
جلب خلفيه سطح المكتب - nin9e - 20-01-14
السلام عليكم
كنت اريد جلب خلفيه سطح المكتب في picturebox هل من مساعده. شكرا
RE: جلب خلفيه سطح المكتب - ربيع - 21-01-14
نحمده ونصلي على رسوله الكريم
كود :
Using rk As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Control Panel\Desktop\", True)
pictureBox1.Image = Image.FromFile(rk.GetValue("Wallpaper").ToString())
End UsingRE: جلب خلفيه سطح المكتب - nin9e - 22-01-14
مشكور اخي بس الصوره بتبقي كبيره علي ال picture box انا جربت اغير في خصائص الpicture box بس ما بتتحلز واريد طلب اخر معلش لو كنت عاوز اسم الصوره تحت الpicture box بس بدوز الامتداد اسم بس شكرا
و ملحوظه اخري البرنامج بيديني مش كله لو الشاشه بقت لون مش صوره
RE: جلب خلفيه سطح المكتب - ربيع - 22-01-14
نحمده ونصلي على رسوله الكريم
كود :
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 UsingRE: جلب خلفيه سطح المكتب - nin9e - 22-01-14
مشكور اخي علي مساعدتك. بس كان في سؤال انا عامل الخلفيه لون اسود مثلا ر جيت افتح البرنامج لقيت بيقولي الكود غلط غيرت الخلفيه لصوره لقيته اشتغل فهل في حل عشان يقبل الالوان ويجيبها برده في ال picture box. شكرا
RE: جلب خلفيه سطح المكتب - ربيع - 22-01-14
صراحة لم افهم! هل يمكن ان ترفق المثال وتشير بالتعليقات الى المشكلة؟ او تضع شرح للمشكله مع الكود المستخدم....
RE: جلب خلفيه سطح المكتب - nin9e - 22-01-14
الصوره موضحه الكلام
RE: جلب خلفيه سطح المكتب - nin9e - 23-01-14
وينك يا اخ ربيع. او اي عضو ممكن يساعدني؟؟
RE: جلب خلفيه سطح المكتب - ربيع - 23-01-14
لا اعرف لم ظهر الخطأ فالمسار هو نفسه فيه الويندوز سواء xp او 7 او الخ....
RE: جلب خلفيه سطح المكتب - nin9e - 24-01-14
انا ممكن اوضحلك اكتر ممكن يكون ليه علاقه يعني انتا كاتب Dim iPath As String = rk.GetValue("Wallpaper").ToString()
ما ممكن wallpaper دي تكون المشكله يعني wallpaper بتقري ملفات الصور ب امتداد jpg,bmp الي اخ.... ولاكن انا اكترت ان الخلفيه تبقي الوان و هوه مش لاقي مسار الخلفيه لانها لون مش صوره ممكن يكون كلامي صح؟؟