منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف اجعل خلفية سطح المكتب خلفية للفورم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=4483)

كيف اجعل خلفية سطح المكتب خلفية للفورم - aftfm - 26-09-12

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

اريد اجعل خلفية سطح المكتب خلفية للفورم

كيف اجعل خلفية سطح المكتب خلفية للفورم - Sajad - 26-09-12

السلام عليكم اخي العزيز

انظر هذا الرابط

http://www.geekpedia.com/tutorial209_Setting-and-Retrieving-the-Desktop-Wallpaper.html

موفق ان شاءالله

كيف اجعل خلفية سطح المكتب خلفية للفورم - aftfm - 26-09-12

الف شكر اخي العزيز sajad

لكن في هذا المثال استخدم PictureBox وانا اريد ارسال خلفية سطح المكتب مباشرة الى الفورم (BackgroundImage)

كيف اجعل خلفية سطح المكتب خلفية للفورم - amgadtamer - 27-09-12

مرفق مثال يقوم بتغيير خلفية الفورم

كيف اجعل خلفية سطح المكتب خلفية للفورم - amgadtamer - 27-09-12

PHP كود :
المثال سوف يعمل جيدا على xp حيث تمت تجربته لكن على windows7 أو windows8 

يتم تغيير السطر 
fdialo.FileName = key.GetValue("ConvertedWallpaper").ToString

الى 
fdialo.FileName = key.GetValue("Wallpaper").ToString 


كيف اجعل خلفية سطح المكتب خلفية للفورم - aftfm - 27-09-12

الف شكر اخي العزيز amgadtamer

وهذا كود آخر تم التوصل اليه

PHP كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim RKey = Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", False)
        Me.BackgroundImage = Image.FromFile(RKey.GetValue("Wallpaper"))
    End Sub 


كيف اجعل خلفية سطح المكتب خلفية للفورم - wisamprogramer - 28-09-12

والله مبدعين