Modification du papier peint/fond d'écran du bureau

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 362 fois - Téléchargée 47 fois


Contenu du snippet

Ce code sert simplement à modifier le fond d'écran de votre bureau.

Source / Exemple :


'**********************************
'Dans la partie déclaration du Form
'**********************************
Private Declare Function SystemParametersInfo Lib "user32" _
   Alias "SystemParametersInfoA" _
   (ByVal uAction As Long, _
   ByVal uParam As Long, _
   ByVal lpvParam As String, _
   ByVal fuWinIni As Long) As Long

'*******************
'Dans le programme :
'*******************

''Variable du chemin complet de l'image
' (si l'image est dans le répertoire de base Windows - c:\Windows / c:\Winnt - , la variable peut être tout simplement le nom du fichier)
Dim Fond as String
Fond="c:\image.bmp"
SystemParametersInfo 20, 0, Fond, 1

Conclusion :


On pourrait mettre la déclaration de SystemParametersInfo dans un module. Il faudrait juste changer le Private par Public :
Public Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" _
(ByVal uAction As Long, _
ByVal uParam As Long, _
ByVal lpvParam As String, _
ByVal fuWinIni As Long) As Long

A voir également

Ajouter un commentaire

Commentaires

Messages postés
15
Date d'inscription
mardi 23 février 2010
Statut
Membre
Dernière intervention
1 mai 2010

Super le code, merci!
Le seul problème qui me reste est que l'image que je choisis en fond de bureau disparait une fois que je redémarre mon ordinateur...
Savez-vous pourquoi?
Merci pour votre aide...
Messages postés
50
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
8 mars 2007

dommage, j'ai l'impression que ca ne fonctionne pas avec les .jpg sous XP...
mais sinon pour le bitmap pas de PB, changement instantané !
Messages postés
285
Date d'inscription
dimanche 14 décembre 2003
Statut
Membre
Dernière intervention
13 mars 2012

faut pas t'en faire pour si peu.... Je recherchai l'api en charge et c'est là que je l'ai trouvé alors merci et bonne année.

Dsl Filipe35, ça marche très bien sous XP, je viens de reproduire l'erreur quand l'adresse de l'image est erronée tu as un fonds bleu sinon, le fond est mis à jour.

Bon code
Messages postés
496
Date d'inscription
vendredi 14 novembre 2003
Statut
Membre
Dernière intervention
23 octobre 2007

dsl mais ca marche pas sous XP !
sinon rien à dire nickel !
sous XP le fond devient la couleur par défaut

@+
Merci de votre soutien
Afficher les 8 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.