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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : تغيير الصورة في خلفية سطح المكتب (/showthread.php?tid=5845)

تغيير الصورة في خلفية سطح المكتب - RaggiTech - 17-10-12

كاتب الموضوع : AhmedEssawy

نكتب في الموديول


كود :
Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_SETDESKWALLPAPER = 20
وفي الزر

كود :
Dim lngSuccess As Long
Dim strBitmapImage As String
strBitmapImage = "C:\hh.bmp"
lngSuccess = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strBitmapImage, 0)
حيث أن C:\hh.bmp هي الصورة التي ترغب في وضعها كخلفية لسطح المكتب