Wallpaper du bureau !

Bonjour!

Voici mon problème...

J'ai créé une application, et dans laquelle il y a des graphiques bitmap.

Le client doit pouvoir choisir une image, et le programme remplace le fond d'écran du bureaupar celle-ci.

Merci d'avance, Wizard.

' pour gerer les fond d'ecran ( WALLPAPER ) ATTENTION : en BMP les fichiers images

1 - Declare dans 1 module .bas la fonction suivante


Public 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

2 - dans ton programme ( apres clic sur 1 bouton branchement sur Papierpeint )


Sub Papierpeint()

Dim RetVal As Long, foto As String

' ----> La ligne suivante pour mettre toujours dans le dossier Windows le mme fichier ça evite la multiplication de fichiers , mais tu n'es pas obligé ...

SavePicture picTempon.Picture, "c:\Windows\image.bmp"
foto = "c:\Windows\image.bmp"

RetVal = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, foto, 1)

' ----> le 4eme parametre =1 pour appliquer definitivement l'image au bureau , sinon, met 0 et ton image sera perdu au prochain boot .



-------------------------------
Réponse au message :
-------------------------------

Bonjour!

Voici mon problème...

J'ai créé une application, et dans laquelle il y a des graphiques bitmap.

Le client doit pouvoir choisir une image, et le programme remplace le fond d'écran du bureaupar celle-ci.

Merci d'avance, Wizard.

salut
moi jaimeré bien mettre un bmp en fond decran ms ta source marche pa sur mon os
c win98 se
tu pourré maider stp ??
merci

-------------------------------
Réponse au message :
-------------------------------

> ' pour gerer les fond d'ecran ( WALLPAPER ) ATTENTION : en BMP les fichiers images
>
> 1 - Declare dans 1 module .bas la fonction suivante
>
>
> Public 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
>
> 2 - dans ton programme ( apres clic sur 1 bouton branchement sur Papierpeint )
>
>
> Sub Papierpeint()
>
> Dim RetVal As Long, foto As String
>
> ' ----> La ligne suivante pour mettre toujours dans le dossier Windows le mme fichier ça evite la multiplication de fichiers , mais tu n'es pas obligé ...
>
> SavePicture picTempon.Picture, "c:\Windows\image.bmp"
> foto = "c:\Windows\image.bmp"
>
> RetVal = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, foto, 1)
>
> ' ----> le 4eme parametre =1 pour appliquer definitivement l'image au bureau , sinon, met 0 et ton image sera perdu au prochain boot .
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> Bonjour!
>
> Voici mon problème...
>
> J'ai créé une application, et dans laquelle il y a des graphiques bitmap.
>
> Le client doit pouvoir choisir une image, et le programme remplace le fond d'écran du bureaupar celle-ci.
>
> Merci d'avance, Wizard.
>

bonjour
je suis une dobe en vb moi j'aime l'informatique mais c l'info qui m'aime po
jvoudrai faire un prog qui change le wallpaper tte les 1 ,5,30 ...minutes
donc pour le moment je voudrais juste la fonction qui change le fond d'ecran windows 98 par une autre image (jpg bmp ...)
merci de me donner cett ligne de commande je verrai apres pour les tempos et otres
merci et @ bientot

je c pu c quoi l'email que g rentrer alors voila celle dont jme sert tt le tps
T O T O F R O C H @ A O L . C O M
merci de me repondre ici ou a aol

Roch@Product