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

Question

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

pacov · Answer

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

pacov · Answer

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"

jotrash · Answer

~~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

Tellurian · Answer

' 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 ;) )

Tellurian · Answer

' 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 ;)

Philippe734 · Answer

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

Linoa05 · Answer

Bonjour,

moi j'ai un pb quand je veux changer le fond d'&#233;cran de mon PC.

Je s&#233;lectionne une image puis elle s'affiche bien dans un picturebox et
apr&#232;s quand je clique sur un bouton pour la mettre en fond d'&#233;cran a
chaque fois mon fond d'&#233;cran change mais devient noir au lieu de
l'image que j'ai s&#233;lectionn&#233;.

Dans la fonction ystemParametersInfo SPI_SETDESKWALLPAPER  0, NomFDE , SPIF_UPDATEINIFILE, nomFDE est - il bien le chemin de l'image?

Pour r&#233;cup&#233;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.

cs_MysTiKK · Answer

Bonjour tout le monde, 



Je voudrai juste le code normal, ou, le code permetttant de changer le
fond d'&#233;cran, mais pas automatiquement, c a d pas tout les x minutes.

Merci a tous

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

8 réponses

Discussions similaires