|
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 SPIF_SENDWININICHANGE = &H2 Public Const SPI_SETDESKWALLPAPER = 20 Public Const SPIF_UPDATEINIFILE = &H1 'Subroutine Sub CambiaSfondo(NomeFile as string) ' Nella variabile Nome va indicato ' il nome del file .BMP completo di path ' se si passa una stringa vuota si elimina ' l'immagine di sfondo esistente SystemParametersInfo SPI_SETDESKWALLPAPER, 0, NomeFile, _ SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE end sub |