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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 648 fois - Téléchargée 50 fois


Commenter

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
dixcie Messages postés 15 Date d'inscription mardi 23 février 2010 Statut Membre Dernière intervention 1 mai 2010
2 avril 2008 à 10:05
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...
spycollege Messages postés 50 Date d'inscription mercredi 15 juin 2005 Statut Membre Dernière intervention 8 mars 2007
14 oct. 2005 à 21:07
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é !
madbob Messages postés 285 Date d'inscription dimanche 14 décembre 2003 Statut Membre Dernière intervention 13 mars 2012
1 janv. 2005 à 13:10
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
Filipe35 Messages postés 470 Date d'inscription vendredi 14 novembre 2003 Statut Membre Dernière intervention 23 octobre 2007 1
28 févr. 2004 à 20:44
dsl mais ca marche pas sous XP !
sinon rien à dire nickel !
sous XP le fond devient la couleur par défaut

@+
Vow
3 oct. 2001 à 14:24
Merci de votre soutien
S'inscrire maintenant

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.

Du même auteur (vow)