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

[عنـ الشوق ـاد]

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

private 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
' ' constants
private const spi_setdeskwallpaper = 20
private const spif_sendwininichange = &h2
private const spif_updateinifile = &h1
dim ctr as integer
' form contains a command button (cmddefaultwallpaper) and a timer with
' seconds according to user choice.
' please make sure that the path of the file to be changed is correct.
Private sub cmddefaultwallpaper_click()
ret = systemparametersinfo(spi_setdeskwallpaper, 0, "(none)", spif_updateinifile or spif_sendwininichange)
end sub

private sub form_load()
form1.windowstate = 1
ctr = 0
'_________________________________
dim ret as long
dim filename as string
ctr = ctr + 1
if ctr > 20 then ctr = 1
' c:\photos folder holds bmp files from wall1.bmp to wall20.bmp.
Filename = "c:\photos\wall" & ctr & ".bmp"
ret = systemparametersinfo(spi_setdeskwallpaper, 0, filename, spif_updateinifile or spif_sendwininichange)
end sub

[الـــدانـــة]

اللــــه يعطيــــك العافيـــة أخــــوي عنـــاد
جهـــــــود تشكــــــــر عليهــــــا
دمت ودام عطائـــــك