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


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

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)