تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تغيير الصورة في خلفية سطح المكتب
#1
كاتب الموضوع : 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 هي الصورة التي ترغب في وضعها كخلفية لسطح المكتب
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم