>How can I change the wallpaper of Windows using VB 5.0.
>
>I found the "Wallpaper" setting in the "Desktop" entry of the registry, I change it to a new value (a valid one).
>
>Then, when I look in the control panel, the wallpaper is changed but the desktop isn't.
>
>Anybody have an idea?
Stop searching everybody, I found it and I would like to give to you...
Simply adding this calls to the Windows API:
Option Explicit
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
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_SENDWININICHANGE = &H2
Private Sub Form_Load()
Dim lngReturn As Long
lngReturn = SystemParametersInfo(SPI_SETDESKWALLPAPER, _
0, _
"c:\Windows\Clouds.bmp", _
SPIF_SENDWININICHANGE)
End Sub
Éric Moreau, MCPD, Visual Developer - Visual Basic MVP
Conseiller Principal / Senior Consultant
Moer inc.
http://www.emoreau.com