Papier Peint

Bonjour/soir,

pq ?la valeur est bien retourné par l'API(0) mais le
papier ne bouge pas ou est mis sur "Aucun"

La valeur retournée est 0?
Lis ceci, tiré de la MSDN:
Return Values
If the function succeeds, the return value is a nonzero value.
If the function fails, the return value is zero. To get extended error
information, call GetLastError.

j'ai essayé avec un ByVal deavant le 0

Avec la déclaration

Public Declare Function SystemParametersInfo _
Lib "user32" _
Alias "SystemParametersInfoA" _
( _
ByVal uAction As Long, _
ByVal uParam As Long, _
ByRef lpvParam As Any, _
ByVal fuWinIni As Long _
) _
As Long
Public Const SPI_SETDESKWALLPAPER = 20

passer uParam Byval est inutile (puisque déjà dans la déclaration)....

Par contre, ajouter un caractère 0 derrière le nom de fichier pourrait être
utile:
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, "C:WINDOWSImg.bmp" &
vbNullChar, SPIF_UPDATEINIFILE

Sinon, vérifie GetLastError l'erreur qui est renvoyée..
Pour traduire le code d'erreur, voir la FAQ:
http://faq.vb.free.fr/index.php?questionf

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


zazeglu wrote:

Bonjour,

En fait je chercher à changer le papier peint(je savais le
fair il y a quelques moi mais j'ai complétement
oublié ,surtout les constantes)

SystemParametersInfo SPI_SETDESKWALLPAPER,
0, "C:WINDOWSImg.bmp", SPIF_UPDATEINIFILE

et sur le site :

CDBox.DialogTitle = "Choose a bitmap"

CDBox.Filter = "Windows Bitmaps (*.BMP)|*.bmp|All
Files (*.*)|*.*"

CDBox.ShowOpen

SystemParametersInfo SPI_SETDESKWALLPAPER, 0,
CDBox.FileName, SPIF_UPDATEINIFILE

ce qui est exactement pareil ,pourtant cela ne fonctionne
pas chez moi

pq ?la valeur est bien retourné par l'API(0) mais le
papier ne bouge pas ou est mis sur "Aucun"

j'ai essayé avec un ByVal deavant le 0

SystemParametersInfo SPI_SETDESKWALLPAPER, Byval
0, "C:WINDOWSImg.bmp", SPIF_UPDATEINIFILE

mais le résultat est le même


Merci

Zazeglu

Merci bcp !

Zazeglu

-----Message d'origine-----
Bonjour/soir,

pq ?la valeur est bien retourné par l'API(0) mais le
papier ne bouge pas ou est mis sur "Aucun"

La valeur retournée est 0?
Lis ceci, tiré de la MSDN:
Return Values
If the function succeeds, the return value is a nonzero

value.

If the function fails, the return value is zero. To get

extended error

information, call GetLastError.

j'ai essayé avec un ByVal deavant le 0

Avec la déclaration

Public Declare Function SystemParametersInfo _
Lib "user32" _
Alias "SystemParametersInfoA" _
( _
ByVal uAction As Long, _
ByVal uParam As Long, _
ByRef lpvParam As Any, _
ByVal fuWinIni As Long _
) _
As Long
Public Const SPI_SETDESKWALLPAPER = 20

passer uParam Byval est inutile (puisque déjà dans la

déclaration)....

Par contre, ajouter un caractère 0 derrière le nom de

fichier pourrait être

utile:
SystemParametersInfo SPI_SETDESKWALLPAPER,

0, "C:WINDOWSImg.bmp" &

vbNullChar, SPIF_UPDATEINIFILE

Sinon, vérifie GetLastError l'erreur qui est renvoyée..
Pour traduire le code d'erreur, voir la FAQ:
http://faq.vb.free.fr/index.php?question=66

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


zazeglu wrote:

Bonjour,

En fait je chercher à changer le papier peint(je savais

le

fair il y a quelques moi mais j'ai complétement
oublié ,surtout les constantes)

SystemParametersInfo SPI_SETDESKWALLPAPER,
0, "C:WINDOWSImg.bmp", SPIF_UPDATEINIFILE

et sur le site :

CDBox.DialogTitle = "Choose a bitmap"

CDBox.Filter = "Windows Bitmaps (*.BMP)|*.bmp|All
Files (*.*)|*.*"

CDBox.ShowOpen

SystemParametersInfo SPI_SETDESKWALLPAPER, 0,
CDBox.FileName, SPIF_UPDATEINIFILE

ce qui est exactement pareil ,pourtant cela ne

fonctionne

pas chez moi

pq ?la valeur est bien retourné par l'API(0) mais le
papier ne bouge pas ou est mis sur "Aucun"

j'ai essayé avec un ByVal deavant le 0

SystemParametersInfo SPI_SETDESKWALLPAPER, Byval
0, "C:WINDOWSImg.bmp", SPIF_UPDATEINIFILE

mais le résultat est le même


Merci

Zazeglu

.