Comment changer le fond d'écran... etc?

Voila, je cherche un API ou autre fonction pour changer le fond d'écran de windows avec des fichiers jpg, gif ou html, bref en utilisant toute les propriété du active desktop.

Ou, autre choix, comme j'ai trouvé un API qui change le fond d'écran mais seulement pour les bmp, je voudrais savoir comment je peux convertir mes jpg en bmp.

Et le tout doit être évidemment exécuter par un programme VB.

Merci

Salut !

As-tu trouvé une astuce pour résoudre ton problème ?
J'ai le même besoin, à savoir changer le fond d'écran du bureau par une appli VB
Si tu pouvais déjà m'indiquer l'API pour le changer avec des BMP ??

D'avance merci

Cordialement,

pacov


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

Voila, je cherche un API ou autre fonction pour changer le fond d'écran de windows avec des fichiers jpg, gif ou html, bref en utilisant toute les propriété du active desktop.

Ou, autre choix, comme j'ai trouvé un API qui change le fond d'écran mais seulement pour les bmp, je voudrais savoir comment je peux convertir mes jpg en bmp.

Et le tout doit être évidemment exécuter par un programme VB.

Merci

Voilà, j'ai trouvé l'astuce pour changer dynamiquement le fond d'écran du bureau Windows
MAIS avec des fichiers bmp.
L'astuce consiste à aller manipuler la clé "Wallpaper" dans la table des registres

voir le lien :
www.freevbcode.com
Rechercher "Wallpaper"
2 articles :
"Change the Windows Wallpaper"
"Randomly select the Windows Wallpaper"




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

Salut !

As-tu trouvé une astuce pour résoudre ton problème ?
J'ai le même besoin, à savoir changer le fond d'écran du bureau par une appli VB
Si tu pouvais déjà m'indiquer l'API pour le changer avec des BMP ??

D'avance merci

Cordialement,

pacov


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

Voila, je cherche un API ou autre fonction pour changer le fond d'écran de windows avec des fichiers jpg, gif ou html, bref en utilisant toute les propriété du active desktop.

Ou, autre choix, comme j'ai trouvé un API qui change le fond d'écran mais seulement pour les bmp, je voudrais savoir comment je peux convertir mes jpg en bmp.

Et le tout doit être évidemment exécuter par un programme VB.

Merci

trasjo
Moi je voudrai savoir comment faire pour qu'en cliquant sur un bouton je mette en fond ecran limage qu'il y avait dans un picture box ou autre

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

> Voilà, j'ai trouvé l'astuce pour changer dynamiquement le fond d'écran du bureau Windows
> MAIS avec des fichiers bmp.
> L'astuce consiste à aller manipuler la clé "Wallpaper" dans la table des registres
>
> voir le lien :
> www.freevbcode.com
> Rechercher "Wallpaper"
> 2 articles :
> "Change the Windows Wallpaper"
> "Randomly select the Windows Wallpaper"
>
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> Salut !
>
> As-tu trouvé une astuce pour résoudre ton problème ?
> J'ai le même besoin, à savoir changer le fond d'écran du bureau par une appli VB
> Si tu pouvais déjà m'indiquer l'API pour le changer avec des BMP ??
>
> D'avance merci
>
> Cordialement,
>
> pacov
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> Voila, je cherche un API ou autre fonction pour changer le fond d'écran de windows avec des fichiers jpg, gif ou html, bref en utilisant toute les propriété du active desktop.
>
> Ou, autre choix, comme j'ai trouvé un API qui change le fond d'écran mais seulement pour les bmp, je voudrais savoir comment je peux convertir mes jpg en bmp.
>
> Et le tout doit être évidemment exécuter par un programme VB.
>
> Merci
>
>

' J'ai la solution à ce pb, voila le code :

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 Const SPI_SETDESKWALLPAPER = 20

Private Sub ChangeWallPaper()

Dim sFileName As String
' sFileName : Fichier BITMAP (pour les autres formats, il faut fair une convertion avant)

SystemParametersInfo SPI_SETDESKWALLPAPER, 0, sFileName, 1

End Sub

' Pour la convertion, le plus simple est d'utiliser un controle PictureBox (ouvrez l'image (jpg,png,gif...), ensuite enregistrer la (au final on obtient un fichier bmp ;) )

' Pour la convertion...

Private Sub ConvertPictureFileToBitmap(sInFile As String, sOutFile As String)

Dim pd As IPictureDisp
Set pd = LoadPicture(sInFile)
SavePicture pd, sOutFile
Set pd = Nothing

End Sub

' Le controle IPictureDisp est le même qu'utilise les PictureBox ;)

merci pour la conversion, meme si je trouve nul de faire une conversion. c cool.

Bonjour,
moi j'ai un pb quand je veux changer le fond d'écran de mon PC.
Je sélectionne une image puis elle s'affiche bien dans un picturebox et après quand je clique sur un bouton pour la mettre en fond d'écran a chaque fois mon fond d'écran change mais devient noir au lieu de l'image que j'ai sélectionné.
Dans la fonction ystemParametersInfo SPI_SETDESKWALLPAPER  0, NomFDE , SPIF_UPDATEINIFILE, nomFDE est - il bien le chemin de l'image?
Pour récupérer le chemin de mon image je fais :
Dim NomFDE As String
NomFDE = Fichiers.Path
If Right(NomFDE, 1) <> "\" Then NomFDE = NomFDE & "\"
NomFDE = NomFDE & Fichiers.FileName
Merci.

Bonjour tout le monde,

Je voudrai juste le code normal, ou, le code permetttant de changer le fond d'écran, mais pas automatiquement, c a d pas tout les x minutes.
Merci a tous