|
|
|
![]() |
|
Strumenti |
![]() |
#1 |
Senior Member
Iscritto dal: Apr 2001
Messaggi: 850
|
[VB6]
Ciao, volevo sapere come si fa ad impostare lo sfondo di windows XP da Vbasic.
Grazie, ciao |
![]() |
![]() |
![]() |
#2 |
Senior Member
Iscritto dal: Aug 2002
Città: Biella
Messaggi: 1882
|
Devi dargli la path del file .bmp da impostare come sfondo!!
![]() Codice:
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
__________________
"Analizzando e valutando ogni giorno tutte le idee, ho capito che spesso tutti sono convinti che una cosa sia impossibile, finchè arriva uno sprovveduto che non lo sa e la realizza!" A. Einstein |
![]() |
![]() |
![]() |
#3 |
Senior Member
Iscritto dal: Apr 2001
Messaggi: 850
|
funzia anche con i JPEG?
|
![]() |
![]() |
![]() |
#4 |
Senior Member
Iscritto dal: Aug 2002
Città: Biella
Messaggi: 1882
|
Che io sappia no
![]()
__________________
"Analizzando e valutando ogni giorno tutte le idee, ho capito che spesso tutti sono convinti che una cosa sia impossibile, finchè arriva uno sprovveduto che non lo sa e la realizza!" A. Einstein |
![]() |
![]() |
![]() |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 03:43.