[VB6]

[beog]

Ciao, volevo sapere come si fa ad impostare lo sfondo di windows XP da Vbasic.
Grazie, ciao

[matpez]

Devi dargli la path del file .bmp da impostare come sfondo!! :)


Private Const SPIF_UPDATEINIFILE = &H1
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPI_SETDESKWALLPAPER = 20

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 Sub CambiaSfondo(ByVal sWallPaper As String)

'cambio lo sfondo del desktop
If sWallPaper <> "" Then
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, sWallPaper, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End If

End Sub

[beog]

funzia anche con i JPEG?

[matpez]

Che io sappia no :(